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

Adc · 17 Juillet 2013

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 · 17 Juillet 2013

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 · 17 Juillet 2013

Re : Macro atteindre cellule dont valeur = "Validation"

Bonjour,

regarde peut être ceci :

Code:

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 · 17 Juillet 2013

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 · 17 Juillet 2013

Re : Macro atteindre cellule dont valeur = "Validation"

Re,

avec ceci :

Code:

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 · 17 Juillet 2013

Re : Macro atteindre cellule dont valeur = "Validation"

Super ! Merci à toi, et à Tashiqi.

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

Adc

XLDnaute Nouveau

tashiqi

XLDnaute Occasionnel

Pierrot93

XLDnaute Barbatruc

Adc

XLDnaute Nouveau

Pierrot93

XLDnaute Barbatruc

Adc

XLDnaute Nouveau

Discussions similaires