Encrypter et décrypter des données en Vba Excel

[@GeorgeBander]

C'est fait, enfin !! J'avais tout bonnement mis ce fichier sur un autre...Ayant alors deux titres, cela ne pouvait point fonctionner, j'ai alors tous refait, et ça fonctionne correctement désormais !! Un grand merci et continuer à nous faire de ces supers, hypers, tutos !!! Bonne soirée !!!

Merci George, je vais poursuivre les tutos bien entendu, surtout que les encouragements comme les vôtres motivent particulièrement.

[@Salyanov5]

Merci beaucoup pour cette astuce combinée. Encore quelques efforts de ma part et je suis prêt à déchiffrer les messages d'Enigma ! ;-)

🤣 Oui quelques nombreux efforts. Oui c'était une machine incroyable et mécanique pourtant mais qui n'a pas servi du bon côté. Merci beaucoup pour ce message.

[@frogeregis]

Merci Stéphane

Je vous en prie François

[@kloolkklopolk]

merci

Je vous en prie

[@patricianeve6039]

Bonjour Stéphane. Bravo et merci pour ce code très astucieux. Une petite question : je comprends bien le décryptage du message codé qui donne des majuscules (qui sont en colonnes A,B,C). Par contre, le message à crypter est en minuscule. N'y -a-t-il pas de différence entre majuscules et minuscules qui correspondent à des codes ASCII différents ?

Oui tout à fait Patricia, les codes ASCII font la différence mais ici nous raisonnons sur l'équivalence entre les cellules. Les minuscules et majuscules sont considérées comme identiques. Comme les codes sont inscrits en majuscules dans le tableau, il en résulte une transcription en majuscules.

[@patricianeve6039]

@ Merci de votre réponse

Je vous en prie Patricia.

[@f.d.1338]

Bonjour, je ne comprends pas pourquoi le cryptage se fait à rebours avec step -1 car si l'on regarde votre exemple la première lettre du mot à encrypter correspond aussi à la première lettre du mot crypter il n'y a donc pas d'inversion, je m'attendais à ce que la 1ère lettre du mot à encrypter corresponde au dernier caractère du mot crypter... sinon très bon support vba

Bonjour Flonana et tout d'abord merci beaucoup pour votre message. En effet, l'inversion (Step - 1) n'est pas forcément nécessaire. Elle est simplement proposée pour ajouter un niveau de sécurité supplémentaire dans l'encodage. Après encryptage, la première lettre du mot encodé n'est pas le résultat crypté de la première lettre du mot d'origine et inversement.

[@jacquesdehaas2132]

Bonjour, J'ai un seul problème, l'espace ne prend pas, en plus j'ai copie exactement le même module que vous. Mon ordi est en système anglais ainsi que le clavier. Merci d'avance pour la réponse. Bonne journée.

Bonjour, dans le tableau d'encodage, êtes vous certains que l'espace est saisi ? Toutes les fonctions utilisées par VBA et Excel en l’occurrence pour la rechercheV gèrent l'espace comme n'importe quel autre caractère. Sinon pouvez vous essayer de saisir une apostrophe suivi d'un espace. Touche 4 du clavier pour l'apostrophe. Cette apostrophe (') permet de demander à Excel de ne pas interpréter la saisie qui suit, il doit donc conserver l'espace dans tous les cas et ne pas le considérer comme un caractère vide. Donc l'encodage et le décodage VBA doit fonctionner en interprétant l'espace.

[@jacquesdehaas2132]

Bonjour, Merci pour la réponse je vais essaye et je suis sur que ça va fonctionner. Bonne journée ainsi merci de vos TUTO super

Je vous en prie, dites moi si ça fonctionne et merci à vous pour vos retours

[@jacquesdehaas2132]

Bonjour, Impeccable ça fonctionne. Grand merci. Avez-vous fait un TUTO sur un CATALOGUE? J'ai un model mais il me manque pas mal d'expérience dans le Macro, je rame!!!Bonne journée

Parfait, merci pour le retour. Sur un catalogue, c'est à dire, type facturation ?

[@GeorgeBander]

J'ai un petit souci !! Il me refuse "For i=nombre to 1 step-1" en me disant erreur de compilation, et me met en jaune la première ligne "encrypter" ? J'ai tout essayé, mais ne voit pas l'erreur !! Merci....

Cette boucle est tout à fait conforme avec un pas de -1 pour décrémenter, l'erreur ne semble pas venir de là. Il doit manquer autre chose comme une variable non déclarée, comme nombre ? Difficile à dire sans capture d'écran ou le code source.

[@GeorgeBander]

Je vais regarder cela d'un peu plus près, et vous tiendrez au courant dès que j'aurais trouvé la solution !! Merci pour votre rapide réponse !! Toujours aussi agréable de recevoir un petit mot !! Bonne soirée...

C'est avec plaisir pour moi aussi.

[@guyvano6605]

Travail très instructif, mais cela ne fonctionne pas avec les chiffres est ce normal ?

Bonjour Guy. Merci beaucoup. Dans le tableau des correspondances, il faut veiller à ce que les chiffres soient inscrits et formatés en texte et ça fonctionnera.

[@guyvano6605]

@ Ok merci pour l'info Bonne journée

​@@guyvano6605 Je vous en prie Guy. Bonne journée à vous aussi.

[@kevindehaese1502]

J'ai besoin d'aide je n'arrive pas

Bonjour Kevin, je vous suggère de suivre le pas à pas détaillé fourni à cette adresse : www.bonbache.fr/encrypter-et-decrypter-des-donnees-en-vba-excel-142.html Tout le code VBA y est donné et décomposé.

[@kevindehaese1502]

Merci beaucoup je vais réessayer

[@jacquesdehaas2132]

Non pas vraiment, en fait c’est pour la gestion des stocks, Faire un modul de stock, puis savoir entrée et sortie des pièces, mais avec les bordereaux pour savoir le suivit, en plus il y a le Min & Max et à chaque mouvement la QTY du stock doit évolue avec chaque opération sortie ou entrée. J’ai déjà fait le model si vous aviez un mail vous pouvez regarder si vous aviez le temps.

Je n'ai pas encore de formation de ce type. J'ai bien une facturation automatisée avec gestion de stocks en VBA, mais pas exactement ce que vous demandez. Je trouverai en revanche difficilement le temps de me concentrer sur le projet pour l'instant car j'ai d'autres actions en cours. Mais si vous le souhaitez, vous pouvez me transmettre le modèle Excel via la page Facebook. Peut être que je pourrai regarder à l'avenir

[@jacquesdehaas2132]

Pas de probleme merci