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

Usine à gaz · 9 Novembre 2016

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 · 9 Novembre 2016

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...

Code:

Dim texte_a_rechercher as string

suivi de...

Code:

Dim  i

A bientôt 🙂

Usine à gaz · 9 Novembre 2016

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 · 9 Novembre 2016

Re-bonjour,

arthour973 à dit:
... 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 :

Code:

Dim texte_a_rechercher as string, i

Soit :

Code:

Dim texte_a_rechercher as string
Dim i

A bientôt 🙂

grisan29 · 9 Novembre 2016

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

Usine à gaz · 9 Novembre 2016

Mille excuses à dit:
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 · 9 Novembre 2016

grisan29 à dit:
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 · 9 Novembre 2016

Re-bonjour, bonjour, grisan29,

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

Code:

Dim texte_a_rechercher as string, feuille as object, i

A bientôt 🙂

Usine à gaz · 9 Novembre 2016

DoubleZero à dit:
Re-bonjour, bonjour, grisan29,

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

Code:

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 · 9 Novembre 2016

Re-bonjour,

arthour973 à dit:
... ça bloque plus loin...

Code:

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

?

A bientôt 😵🙂

Usine à gaz · 9 Novembre 2016

DoubleZero à dit:
Re-bonjour,

Code:

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 · 9 Novembre 2016

Re-bonjour,

arthour973 à dit:
...ça bloque plus loin snifff

Code:

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

?..

A bientôt 😵🙂

Usine à gaz · 9 Novembre 2016

DoubleZero à dit:
Re-bonjour,

Code:

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 · 9 Novembre 2016

Re-bonjour,

arthour973 à dit:
... ça bloque au même endroit...

Remplacer "firstAdress" par "firstAddress"

?..

A bientôt 🙂

Usine à gaz · 9 Novembre 2016

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.

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

Usine à gaz

XLDnaute Barbatruc

Pièces jointes

DoubleZero

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

DoubleZero

XLDnaute Barbatruc

grisan29

XLDnaute Accro

Usine à gaz

XLDnaute Barbatruc

Pièces jointes

Usine à gaz

XLDnaute Barbatruc

DoubleZero

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Pièces jointes

DoubleZero

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Pièces jointes

DoubleZero

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Pièces jointes

DoubleZero

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Pièces jointes

Discussions similaires

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

XLDnaute Barbatruc

Pièces jointes

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Accro

XLDnaute Barbatruc

Pièces jointes

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

Pièces jointes

XLDnaute Barbatruc

XLDnaute Barbatruc

Pièces jointes

XLDnaute Barbatruc

XLDnaute Barbatruc

Pièces jointes

XLDnaute Barbatruc

XLDnaute Barbatruc

Pièces jointes

Discussions similaires

Privacy & Transparency

Privacy & Transparency