Recherche de date

Bonjour le forum,

j'ai fait un petit bout de code afin de rechercher, dans une colonne, une date définie

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim x As Long
If Target.Column = 6 Then
x = Target.Value
Range("B:B").Find(what:=x).Select
End If
End Sub

Malheureusement cela me met une erreur d'exécution 91.

Je voit où est le problème (je pense que c'est du au format date) mais je ne voit pas comment y remédier

Quelqu'un aurait une solution à me proposer?

Merci d'avance et portez-vous bien

Bonjour,

Si tu recherches une date pourquoi ne pas définir la viable "x" en date

Dim x As Date

Salut,

Range("B:B").Find(what:=CDate(x)).Select

La prochaine fois, joins un bout de fichier.

Cordialement

Bonjour M12,

Parfois la solution est tellement simple....

Étant débutant en VBA je ne maîtrise pas trop les variables (bon la j'avoue cela paraît évident...)

En tout cas merci pour ta réponse

Bonjour yvouille,

La solution de M12 marche parfaitement mais merci de ta réponse.

Pour le fichier je pensais que dans ce cas cela n'était pas utile mais je prend note de la remarque

Bonne journée

Nico68 a écrit :

La solution de M12 marche parfaitement

Je n'en doute pas

Du coup une autre petite colle sur le même principe (ce coup-ci je joint le fichier

Actuellement, en double-cliquant sur un mois de la colonne "E", je sélectionne en colonne "A" la cellule correspondante à la date (située en "F") .

J'aimerais maintenant avec la même action (double-click sur un mois en colonne "E") pouvoir sélectionner la plage de dates correspondante (l'exemple en pièce jointe est plus explicite...)

En espérant être assez clair, merci d'avance

Re-salut,

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim x As Integer, y As Integer

If Target.Column = 5 Then
    x = WorksheetFunction.Match(Range("F" & Target.Row), Range("B:B"), 0)
    y = WorksheetFunction.Match(Range("G" & Target.Row), Range("B:B"), 0)
    Range("A" & x & ":A" & y).Select
End If

End Sub

Bonne soirée.

Re Yvouille,

testé et amplement approuvé.

Merci infiniment et bonne soirée