aller a la cellule

[Arctica67]

Bonjour,

j'ai un tableau qui va de A1 a D949, dans la colonne B j'ai des codes postaux . je souhaiterai en tapant un code dans la cellule E2 aller al la ligne correspondante je sais qu'il y a la méthode find mais je ne sais l'utiliser, pourriez vous m'aider?

 

[vgendron]

Bonjour

en mettant ce code dans la feuille qui contient tes données

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("E2")) Is Nothing Then
    Set c = ActiveSheet.Range("B:B").Find(Target)
    If Not c Is Nothing Then
        c.Select
    End If
End If
End Sub

 

[Jacky67]

Bonjour,
Autre proposition (possibilité de mettre la ligne en haut de la feuille)

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$E$1" Then
Application.Goto Range("a" & Application.Match(Target, [b:b], 0))
'pour mettre ce code postal en ligne 1
'Application.Goto Range("a" & Application.Match(Target, [b:b], 0)), True
End If
End Sub

 

[Arctica67]

Merci a vous vgendron et Jacky67 cela marche bien , je ne connaissais pas cette solution
encore quelque chose d'appris