Trouver une valeur dans une colonne

salut!

J'ai une cellule sur la feuille 1 où il y aura un nom, qui changera manuellement et il y a une colonne sur une feuille 2 où il y a plusieurs noms, dont celui qui il y a dans la cellule de la feuille 1.

Je suis encore débutant dans le VBA et je voudrais faire une macro qui dit ceci:

Si le nom de la cellule de la feuille 1 est dans la colonne de la feuille 2 alors se placer sur la première cellule de la colonne de la feuille 2 ou il y a le nom de la feuille 1

Voila, ca m'aiderait beaucoup beaucoup! merci d'avance!

Bonsoir à tous,

Sub test()
Sheets("Feuil2").Activate
Range("A" & [MATCH(feuil1!a2,a2:a100,0)] + 1).Select
End Sub

Claude.

Merci beaucoup, mais il y a encore un petit problème.

En effet, quand le nom dans la cellule de la feuille 1 n'est pas présent dans la colonne de la feuille 2, il y a un message d'erreur de debogage. Moi, j'aimerai qu'il apparaisse une message box qui dirait "ce nom n'existe pas"

Ca je sais le faire mais je n'arrive pas intégrer tout ca dans une macro avec If

Pourriez-vous m'aider svp!

merci d'avance

Bonsoir,

d'après ce que j'ai compris....

Modifie la valeur dans la cellule C2 de la feuille 1

Tu iras dans la 1 ère cellule de la colonne qui contient cette valeur, sur la feuille 2

Regarde le fichier joint...

PS, tu peux supprimer les lignes comportant .Interior.ColorIndex, c'est juste pour la Démo....

https://www.excel-pratique.com/~files/doc2/dabom1.xls

Une partie du code dans le code de la feuille (clic droit sur le nom de l'onglet, Visualiser le code), l'autre partie dans un module standard

Bonne soirée

re,

Nom en A2

Sub test()
Sheets("Feuil2").Activate
On Error GoTo Fin
Range("A" & [MATCH(feuil1!a2,a2:a100,0)] + 1).Select
Exit Sub
Fin: MsgBox ("n'existe pas !")
End Sub

et avec çà ?

Amicalement

Claude.

Bonsoir,

Voici une autre solution :

Sub Rechercher()

Dim rPlage As Range, rCell As Range

Set rPlage = Worksheets("Feuil2").Range("A1:A6")

Set rCell = rPlage.Find(Worksheets("Feuil1").Range("A1").Value, , LookIn:=xlValues, lookat:=xlWhole)

If Not rCell Is Nothing Then

Worksheets("Feuil2").Select

Range("A" & rCell.Row).Select

Else

MsgBox "Ce nom n'existe pas."

End If

End Sub

Merci à tous! j'ai réussi!

bonne soirée

re,

t'as réussi, bravo !

mais n'oublie pas la petite formalité,

C'est une habitude chez toi de l'oublier.

Amicalement

Claude.