Bonjour Didier, Éric, Stéphane, le forum,

Ce sujet est présenté je ne sais plus combien de fois dans tous les forums de discussion Excel depuis Excel 97. Du simple mot de passe du code VBA jusqu’à “l’obfuscation” (obscurcissement)  avec des noms du genre aaaaaaaaafffffffeeeeeeee en passant par quelques entourloupes puériles, nulle méthode ne résiste à l’opiniâtreté.  Le masquage en obscurcissement est le plus difficile à contrer mais avec un petit gueuleton, une expérience du code avérée et une journée ou deux à perdre c’est tout à fait faisable. Acyd n'a  pas résisté.

Paul Claudel "L’obscurcissement comme d’un ombrage très obscur."
 
J’ai craqué je ne sais plus combien de pages de code depuis 1997 (Eh oui, je suis bien vieux mais comme disait l’autre « L’âge ne  fait rien à l’affaire, quand on est bon, on est bon.»).

Une fois révélés ces bouts de code j’ai aperçu de beaux exemples d’habileté, des astuces impressionnantes, oui. Par contre je n’ai jamais découvert de perles de codes ni de Saint Graal digne d’une médaille Turing.

Ce sujet n’a que peu à voir avec le code mais, selon moi, tout avec l’estime peut-être narcissique que le développeur entretient avec son code chéri.

Pourquoi chercher à cacher du code? Surtout du code de néophytes. Quel est le but de l’exercice? Le droit d’auteur? Soit. Les plus brillants codeurs VBA laissent volontiers des perles de codes sans en cacher le contenu. Simplement ils invitent les utilisateurs à laisser la note de propriété intellectuelle en  place. C’est tout.

Pourquoi chercher à cacher du code qui est, je le sais par expérience, tout à fait ordinaire? Pourquoi au juste?

Le sujet, selon moi, à plus à voir avec la psychologie qu’avec l’informatique.

Cordialement,

Guy

Bonjour Thomas,

Il me semble que tu aiderais ta cause en fournissant un fichier exemple histoire d'y voir plus clair.

Cordialement,

Guy

Bonjour Polygos et bienvenue au forum,

Si j'ai bien compris tu cherches à monter une plage dynamique de dimension 2, bien.

S'agissant de la façon dont est structurée la plage de données ...

Je sais déterminer le nombre de cellules non vide du tableau, je peux même en mettre la valeur ds une cellule en en tête de ce tableau de sorte à ce que par exemple A6 (disponible car les données démarrent à 8) soit égal à 2656

... ce n'est pas clair.

• Les données ne semblent pas tabulaire, le sont-elle?
• Y a-t-il des noms de champs ou sommes-nous en présence d'une java entre B52, AK47 ou A380?

Bref un petit classeur exemple serait indiqué.

Cordialement,

Guy

Bonjour MDLF,

J'ai zieuté le classeur Exemple.xlsx et je te propose une modification Exemple_mod.xlsx.

La feuille Pour voir dispose de trois plages nommées :

• CHOIX (Y1)
• LANGUE (C2, liste déroulante)
• LANGUES (AC1:AC2)

Les cellules qui portent les expressions à traduire sont en noir sur fond gris. À la modification de la cellule LANGUE (C2), les expressions apparaissent dans la langue choisie.

En espérant que cette piste soit le début d'une réponse à ta question.

Cordialement,

Guy

Bonjour olindo,

Malheureusement je crois que ton entreprise consiste à scier la branche sur laquelle ton code repose.

Petit classeur joint, appelé toto.xlsm, qui pourra peut-être t'en convaincre. S'il s'avérait qu'une solution existât tout de même, j'apprécierais qu'on me la montre.

Voir le code de la procédure CestParti().

Cordialement,

Guy

Bonjour ABACAFREE et bienvenue dans le forum,

Le format du nombre présenté 123,45.00 n'est pas valide. La représentation des nombres doit porter deux séparateurs : le séparateur décimal et le séparateur de milliers. À première vue le nombre donné en exemple porte le point comme séparateur décimal et la virgule comme séparateur de milliers. Seul petit problème, il  n'y a pas de milliers à droite de la virgule, que des centaines.

Il s'agit peut-être d'une faute de frappe et on aurait dû lire 123,456.00 auquel cas la fonction SOMME devrait faire son boulot correctement à condition qu'Excel utilise les séparateurs donnés. On peut valider les séparateurs dans le menu Options/Options avancées/Séparateur décimal et Séparateur de milliers.

Cordialement,

Guy

C'est l'histoire de ma vie, je suis un incompris.

Mais, bof, mieux vaut tard que jamais.

Bonne suite, fellow.

Guy

Bonjour snieg53,

Passe à la formule CELLULE("filename"; A1). Ça devrait fonctionner même en chinois.

Cordialement,

Guy

Bonjour abatous et bienvenue dans ce forum,

Comme indiqué dans mon message du 30 décembre 2015, il vaudrait mieux ouvrir un nouveau fil, plus il serait impérieux que tu le fasses. Ce fil est largement surchargé. Aussi aucun fichier n'est joint à ton message.

Tu pourras suivre les instructions à la page http://www.mdf-xlpages.com/modules/ne ... p?topic_id=50&forum=1

Cordialement,

Guy

Bonsoir Pierre,

Effectivement il y a un os, tout petit mais néanmoins.

Une solution à tester, modifier

If Len(Target) = 0 Or Not ValidOk Then Exit Sub

en

If Len(Target.Text) = 0 Or Not ValidOk Then Exit Sub

Sait-on jamais.

Guy