[RESOLU] Macro atteindre cellule dont valeur = "Validation"

[Adc]

Bonjour à tous,

Je cherche, mais ne trouve pas, comment à l'aide d'une macro atteindre une cellule qui contient le texte "Validation". Les coordonnées de la cellule peuvent changer en fonction des insertions ou suppressions de lignes sur la feuille. Par contre, "Validation" n'existe que dans cette cellule.

Je suppute qu'il y a une histoire de GoTo et de Find mais je ne sais pas comment articuler le schmilblick...

Par avance, merci de votre aide.

Adc.

 

[tashiqi]

Re : Macro atteindre cellule dont valeur = "Validation"

quelque chose du genre

Dim x As Range
Set x = Cells.Find("Validation", , xlValues, xlWhole)
x.Activate

 

[Pierrot93]

Re : Macro atteindre cellule dont valeur = "Validation"

Bonjour,

regarde peut être ceci :

Option Explicit
Sub test()
Dim x As Range
Set x = Cells.Find("Validation", , xlValues, xlWhole, , , False)
If Not x Is Nothing Then x.Select
End Sub

sans plus de détails...

bon après midi
@+

 

[Adc]

Re : Macro atteindre cellule dont valeur = "Validation"

Merci Pierrot, ça fonctionne très bien !
Est-ce qu'en prime il y un moyen pour que la cellule s'affiche tout en haut à gauche de la fenêtre ?

 

[Pierrot93]

Re : Macro atteindre cellule dont valeur = "Validation"

Re,

avec ceci :

Option Explicit
Sub test()
Dim x As Range
Set x = Cells.Find("Validation", , xlValues, xlWhole, , , False)
If Not x Is Nothing Then Application.Goto x, scroll:=True
End Sub

 

[Adc]

Re : Macro atteindre cellule dont valeur = "Validation"

Super ! Merci à toi, et à Tashiqi.