XL 2010 Résolu par Roland et SI : code recherche + format n° tel

[Usine à gaz]

Bonsoir à toutes et à tous,

pour mon boulot, j'ai besoin de faire des recherches dans tout mon classeur.
J'ai d'abord tenté de faire un code, LOL catastrophe je n'y suis pas arrivé.
J'ai donc cherché sur le net et j'ai trouvé 2 codes géniaux qui fonctionnent super dans leur classeur d'origine.
Je remercie au passage les 2 auteurs.
Tout content, j'ai tenté de transférer les macros dans mon classeur et ..... ça coince !!! 🙁

Malgré mes tentatives, je n'ai pas trouvé ce qui ne va pas.
J'ai encore besoin de votre aide.
Je ne peux pas joindre mon classeur avec toutes ses données et il est très "lourd".
J'ai tenté de faire un classeur pour reproduire les blocages mais je n'ai pas réussi.
je joins les photos qui montrent où ça coince et les 2 classeurs qui fonctionnement parfaitement.
Avec mes remerciements,
Bonne fin de soirée à toutes et à tous,
Amicalement,
Lionel,

 

[DoubleZero]

Bonjour, arthour973, le Forum,

En début de code, la mention "Option Explicit" rend obligatoire la déclaration des variables.

Peut-être faudrait-il mentionner en seconde ligne...

Dim texte_a_rechercher as string

suivi de...

Dim  i

A bientôt 🙂

 

[Usine à gaz]

Merci DoubleZero de m'avoir répondu si vite.
sniffff !!! mais vba n'accepte pas le Dim texte_a_rechercher as string suivi de Dim i
je viens de tenter en enlevant Option explicit de mon classeur, ça ne fonctionne toujours pas.
Amicalement,
Lionel,

 

[DoubleZero]

Re-bonjour,

... vba n'accepte pas le Dim texte_a_rechercher as string suivi de Dim i...

Mille excuses, j'aurais dû 😳 préciser l'emplacement des variables.

Soit :

Dim texte_a_rechercher as string, i

Soit :

Dim texte_a_rechercher as string
Dim i

A bientôt 🙂

 

[grisan29]

bonsoir a vous
j'ai fait un essai avec les fichiers mis en ligne et n'ai observé aucuns bugs

 

[Usine à gaz]

Merci encore pour votre réponse et pas besoin d'excuses, vraiment.
ça passe mieux mais ça bloque plus loin LOL.
Voir photo jointe :
Amicalement,
Lionel,

 

[Usine à gaz]

bonsoir a vous
j'ai fait un essai avec les fichiers mis en ligne et n'ai observé aucuns bugs

Bonsoir Grisan,

Oui, les deux classeurs fonctionnent super mais c'est quand je copie les macros dans mon classeur que ça ne marche plus.
Amicalement,
Lionel,

 

[DoubleZero]

Re-bonjour, bonjour, grisan29,

C'est "plus mieux bien" lorsqu'on v😉it le code intégral.

Dim texte_a_rechercher as string, feuille as object, i

A bientôt 🙂

 

[Usine à gaz]

Re-bonjour, bonjour, grisan29,

C'est "plus mieux bien" lorsqu'on v😉it le code intégral.

Dim texte_a_rechercher as string, feuille as object, i

A bientôt 🙂

Merci pour le code DoubleZero,
ça avance mais ça bloque plus loin LOL.
Photo jointe
Lionel,

 

[DoubleZero]

Re-bonjour,

... ça bloque plus loin...

Dim texte_a_rechercher as string, feuille as object, c as range, i

?

A bientôt 😵🙂

 

[Usine à gaz]

Re-bonjour,

Dim texte_a_rechercher as string, feuille as object, c as range, i

?

A bientôt 😵🙂

Encore merci ..... LOL ça bloque plus loin snifff

 

[DoubleZero]

Re-bonjour,

...ça bloque plus loin snifff

Dim texte_a_rechercher as string, feuille as object, c as range, firstAdress as range, i

?..

A bientôt 😵🙂

 

[Usine à gaz]

Re-bonjour,

Dim texte_a_rechercher as string, feuille as object, c as range, firstAdress as range, i

?..

A bientôt 😵🙂

Re,
je suis désolé de vous embêter avec mon souci.
ça bloque au même endroit;
Photo jointe

 

[DoubleZero]

Re-bonjour,

... ça bloque au même endroit...

Remplacer "firstAdress" par "firstAddress"

?..

A bientôt 🙂

 

[Usine à gaz]

Re et Rere,
Merci vraiment pour vos efforts 🙂
la modification address, j'aurais du la voir celle-là.
Donc ça passe et ça avance ... LOL ça bloque plus loin.
Photo jointe.