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

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
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,
 

Pièces jointes

  • Rectangle1.jpg
    Rectangle1.jpg
    101.8 KB · Affichages: 129
  • RechercheMot.jpg
    RechercheMot.jpg
    133.5 KB · Affichages: 86
  • RECHERCHE SUR UN CLASSEUR COMPLET.xls
    49 KB · Affichages: 80
  • RechercheMotDansFeuilles.xls
    38 KB · Affichages: 77

Roland_M

XLDnaute Barbatruc
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!
 

Roland_M

XLDnaute Barbatruc
re

voilà !

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

Pièces jointes

  • Recherche Classeur + Format + 33 Roland.xlsm
    39.7 KB · Affichages: 73
Dernière édition:

Roland_M

XLDnaute Barbatruc
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 !
 
Dernière édition:

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
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

XLDnaute Barbatruc
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 !?
 
Dernière édition:

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
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,
 

Pièces jointes

  • Recherche Classeur + Format + 33 Roland.xlsm
    58.5 KB · Affichages: 66

Roland_M

XLDnaute Barbatruc
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 !
 

Pièces jointes

  • Recherche Classeur + Format + 33 Roland_2.xlsm
    41.3 KB · Affichages: 68

Discussions similaires

Statistiques des forums

Discussions
311 729
Messages
2 081 971
Membres
101 852
dernier inscrit
dthi16088