Liste déroulante pour rediriger sur une cellule

Bonjour

J'ai une liste déroulante dans laquelle se trouve une liste de date (01.01.2013 au 31.01.2013) que j'ai ajouté sur une ligne de E10:AI10 (en horizontal). Je cherche une solution que lorsque je selectionne l'une de ces dates dans la liste, qu'il se déplace automatiquement dans la celulle correspondante à la date. L'objectif est de permettre de se diriger automatiquement vers la cellule sans avoir à utliser le scroll horizontal.

J'ai ajouté le fichier excel en annexe

En vous remerciant pour votre aide et espérant que mes explications sont suffisantes.

Meilleures salutations

Bonjour

Un essai

A coller dans le module de la feuille

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$B$4" Then
  Application.Goto Rows(10).Find(what:=Target, LookIn:=xlValues, lookat:=xlWhole)
  End If
End Sub

Bonjour Banzai64

Merci pour votre aide, malheureusement ça ne fonctionne pas

Salutations

Bonjour

De rien, mais je persiste cela fonctionne

Envoies ton fichier avec la macro si tu veux

Re bonjour

Voilà je t'ai ajouté le fichier dans l'attachement.

Merci d'avance pour ton aide

Salutations

Bonjour

C'est bizarre ton fichier ne fonctionne pas , mais le fichier sur lequel j'ai teste la macro (à partir de ton 1er fichier) lui fonctionne

A voir et je regarde si je trouve pourquoi le tien n'en veut pas

Bonjour

Oui ce sont les formats de date, dans le 2ème fichier les dates sont au format Anglais, et Find ne "doit travailler" qu'avec des dates au format Français (supposition)

Si tu passes tes dates au format français plus de problème

Re bonjour

Je pensais à un truc dans VBA, il y a un menu Outils/références, Pourrait-il y avoir une fonction que je devrais activer? Mais laquelle?

Salutations

Bonjour moanajmg,

Bonjour Banzai64,

Ca semble fonctionner correctement avec xlFormulas

A+

Bonjour

Bonjour frangy et merci

A tester

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Col

  If Target.Address = "$B$4" Then
    Col = Application.Match(Target, Rows(10), 0)
    If Not IsError(Col) Then
      Application.Goto Cells(10, Col)
    End If
  End If
End Sub

moanajmg a écrit :

Je pensais à un truc dans VBA, il y a un menu Outils/références, Pourrait-il y avoir une fonction que je devrais activer? Mais laquelle?

Moi aussi je serais intéressé

Bonjour Banzai64

Le dernier code fonctionne parfaitement.

Merci à tous pour votre aide

Salutations