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,

 

[Usine à gaz]

C'est bien ça Roland,

Mais je n'ai pas besoin (enfin je pense) que tu modifies le code.
je voudrais juste que le code s'exécute comme il le fait quand le numéro est sur d'autres feuilles, c'est à dire qu'il se positionne sur le numéro trouvé de la même feuille.

 

[Roland_M]

re

mais tu ne comprends rien à ce que je t'explique ! alors voilà:
la macro telle quelle est conçue ne peut faire ce que tu demandes !
il faut modifier pour rajouter une boucle avec FindNext ! que tu connais certainement pas !

actuellement la boucle ne s'effectue que sur les feuilles et s'arrête une seule fois si recherche ok
puis elle passe à la feuille suivante !
pour ce que tu souhaites il faut que je rajoute un boucle avec FindNext pour continuer la recherche dans cette même feuille !
as tu compris ? es-tu d'accord pour que j'y regarde ?
de toute manière tu n'as pas le choix pour faire ce que tu demandes!

 

[Usine à gaz]

LOL, OUI, j'ai compris, 😕
Je suis d'accord

 

[Roland_M]

re

bon ok, je vais faire ça ! à tantôt !

 

[Usine à gaz]

Merci Roland 🙂

 

[Roland_M]

re

voilà !

EDIT:
tu n'as pas précisé que tu avais cette macro à deux endroits !
j'ai fais le nécessaire, heureusement !

 

[Usine à gaz]

Bonjour Roland,
Le Forum,

Merci Roland ça marche super !!!
C'est magique

Effectivement, je vais même pour ne pas perdre de temps à changer de fuille, mettre la recherche dans 4 ou 5 fuilles LOL
Vraiment Merci Roland,
Bonne journée et à toutes et tous,
Amicalement,
Lionel,

 

[Roland_M]

Bonjour,

tu sais qu'avec une seule macro dans un module pour la recherche
et l'autre dans thisworkbook pour le double clic dans n'importe quelle feuille suffirait !
tout le code serait simplifié !

inutile de mette les mêmes macros à chaque code feuille !
je prépare ça, c'est assez simple à faire ! si ça t'intéresse tu fais signe !

 

[Usine à gaz]

AH Roland, tu es super vraiment 🙂

Bien sûr que ça m'intéresse mais la cellule à rechercher n'est pas la même dans chaque feuille.
Dans mon fichier de travail voici les cellules par feuille :
Feuille : Ne pas Appeler cellule C3,
Feuille : SuivisAppels cellule H1,
Feuille : RendezVous cellule H1,
Feuille : Annonces Clients cellule G1

Amicalement,
Lionel,

 

[Roland_M]

re

évidemment que ce n'est pas les mêmes paramètres, mais ça ce n'est pas un problème !
le tout est de définir les paramètres de chaque feuille !
encore faut il être clair et précis ce qui (je m'excuse) mais n'est pas ton fort !

déjà ton explication n'est pas claire !?
ensuite tu as mis Feuille partout et pas leur nom !?
------------------------------------------------------
Feuille : Ne pas Appeler cellule C3, < qu'entends tu par ne pas appeler ?
Feuille : SuivisAppels cellule H1, < je suppose que c'est la cellule avec le no à rechercher ?
Feuille : RendezVous cellule H1, < qu'est ce que ceci à voir avec la recherche ?
Feuille : Annonces Clients cellule G1 < idem ?
-----------------------------------------------

perso j'ai vu dans ton classeur:
1) ceci pour la recherche:
Feuil1 : N5 = le no à rechercher dans toutes les feuilles
Telephone : E9 = le no à rechercher . . .

2) ceci dans la macro avec double clic
Feuil1 : doubleclic uniquement dans "N2:N20" et recopie en "P5"
Telephone : doubleclic uniquement dans "E9:E16" et recopie en "G7"

tu vois ceci c'est clair et compréhensible par tous !

pour le reste je vois rien d'autre !?

 

[Usine à gaz]

Re Roland,
Je tente de répondre :
Je n'aurais pas dû parler des feuilles de mon classeur de travail.

On va donc faire avec le classeur test que je joins :
Noms des Feuilles
- Telephone cellule E9 à chercher dans la feuille et toutes les feuilles
- Feuil1 cellule G9 à chercher dans la feuille et toutes les feuilles
- Feuil2 cellule G10 à chercher dans la feuille et toutes les feuilles
- Feuil3 cellule G11 à chercher dans la feuille et toutes les feuilles
- Feuil4 cellule G12 à chercher dans la feuille et toutes les feuilles

LOL, c'est plus clair j'espère (c'est vrai que ce n'est pas mon point fort d'être clair)
Merci Roland,

 

[Roland_M]

re

bon, je vais regarder à ça !
tu ne me parles pas de la macro double clic !?
mais c'est pas grave je vais voir avec le code de chaque feuille et je vais t'arranger ça !

à tout à l'heure !

 

[Usine à gaz]

Re-Roland,

La macro doublesClic (comme tu l'as certainement compris) me sert à formater mes numéros collés.
Comme ton code, elle fonctionne super bien.

La cerise sur le gâteau serait que, comme pour ton code, je ne soit pas obligé de la mettre dans le code de chaque feuille.
Amicalement,
Lionel,

 

[Roland_M]

re

tous les codes sont supprimés puis regroupés comme ceci:

1) dans le Thisworkbook pour double clic, voir:
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)

2) dans Module1 pour la recherche, voir:
Public Sub BoutonRechercheNoTel() ' appel depuis le bouton recherche des feuilles

on peut pas plus simple !
reste à voir si tout tourne comme tu le souhaites !?
si besoin de modif ce sera plus simple !

 

[Usine à gaz]

Merci Roland,
Je regarde.