Afficher la cellule trouver

Bonjour, quel est la syntaxe pour afficher la cellule trouver lors de ma recherche. "cel.Interior.ColorIndex=6" couleur la cellule trouver, mais ne l'affiche pas.

Set cel = .find(What:=Sheets("ASS compile").Range("AG4"), LookIn:=xlValues, LookAt:=xlPart) 'premiere recherche avec critere 2

             cel.Interior.ColorIndex = 6    ' Colorise ce que l'on trouve
                                                        ' affichage de la cellule

je crois etre en mesure d'afficher grace a "location= cel.row qui mettra dans "location" la rangee trouve.

   Set cel = .find(What:=Sheets("ASS compile").Range("AG4"), LookIn:=xlValues, LookAt:=xlPart) 'premiere recherche avec critere 2

                 cel.Interior.ColorIndex = 6    ' Colorise ce que l'on trouve
                 location=cel.row                  

Bonjour

Apparemment, la cellule que tu colorises et que tu veux afficher se trouve sur un autre classeur.

Il te faut donc activer ce classeur, puis la feuille sur laquelle elle se trouve et enfin sélectionner la cellule. Ce qui donne :

WorkBooks(« Nom du Classeur »).activate
Sheets(« Nom de la feuille »).activate
Cel.select

Bye !

Salut, il me manquait Cel.select. Merci pour le bout de code!

Capucin