Atteindre une cellule

Bonjour à tous

J'aimerais atteindre une cellule de la colonne B en fonction de la date choisie dans une liste déroulante en B2.

Exemple :Si je choisis 15 sept 2015 en B2, je voudrais que le curseur se déplace automatiquement sur 15 sept 2015 qui se trouvera sur la même colonne B.

J'ai essayé ce code mais ça m'affiche ' erreur de syntaxe" :

Private Sub Worksheet_Change(ByVal Target As Range)

Dim lig As Integer

If Not Intersect(Target, Range("B2")) Is Nothing Then

lig = Range("B3:A" & Range("B" & Rows.Count).End(xlUp).Row).Find(Target, LookIn:=xlValues, LookAt:= _

xlWhole, SearchOrder:=xlByRows).Row

Range("B" & lig).Select

End If

End Sub

Merci de votre aide.

Manes6

Bonjour,

Essaie comme cela

Private Sub Worksheet_Change(ByVal Target As Range)
Dim C As Range
    If Not Intersect(Target, Range("B2")) Is Nothing Then
        Set C = Range("B3:B" & Range("B" & Rows.Count).End(xlUp).Row).Find(Target, LookIn:=xlFormulas, LookAt:= _
        xlWhole, SearchOrder:=xlByRows)
        If Not C Is Nothing Then
            C.Select
        Else
            MsgBox "Date non trouvée"
        End If
    End If
End Sub

A+

Bonjour,

Une autre proposition, qui active le défilement :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Plg As Range
If Target.Address = "$B$2" Then
    Set Plg = Range("B3:B" & Cells(Rows.Count, "B").End(xlUp).Row)
    If Not IsError(Application.Match(CLng(Target), Plg, 0)) Then _
        Application.Goto Cells(Application.Match(CLng(Target), Plg, 0) + 2, "B"), True
End If
End Sub

Bon W-E

Bonjour ,

Merci pour vos réponses mais toujours pas . Je pense qu'il y'a un problème avec le format des cellules puisque ça fonctionne avec des nombre mais pas avec des dates.

Manes

Re-,

Dans ce cas, il va falloir joindre un fichier exemple...(avec uniquement, la colonne B de ton fichier réel, ce sera suffisant), juste pour voir comment sont enregistrées tes dates.

Bonne journée

Voilà cousinhub. Fichier en pièce jointe

Merci

Re-,

Le code fourni fonctionne parfaitement....

Regarde ton fichier en retour (j'ai juste changé "B" en "A", dans le Goto)

Aucun problème de fonctionnement constaté de mon coté

A+

Merci à vous deux le code fonctionne parfaitement !

A bientôt