Rechercher une date

[famu]

Bonjour,
J'ai un code VBA qui fonctionne lorsque la date est inscrite (ex: B3 = 19/06/2013). Par contre, lorsque la date est calculée : B4 = B3+1 par exemple, mon code ne va plus.
De plus, lorsqu'il ne trouve pas, il "beug" !
Merci beaucoup pour votre aide,
Famu.

 

[Pierrot93]

Re : Rechercher une date

Bonjour,

essaye avec ceci :

Sub Macro10()
Dim x As Date
Dim Cel As Range

x = CDate(InputBox("date"))

Set Cel = Sheets("feuil1").Range("3:3").Find(what:=x, LookIn:=xlValues, lookat:=xlWhole)

If Not Cel Is Nothing Then Columns(Cel.Column).Select

End Sub

bonne journée
@+

 

[famu]

Re : Rechercher une date

Bonjour Pierrot,

Merci pour ton aide. Effectivement ça marche bien mais, comme toujours, on ne dit pas tout !
En fait, la date, par manque de place dans mon fichier est sous la forme "j" et là, rien ne va plus !
J'ai modifié mon fichier (cellule en rouge).
À te lire,
Famu.

 

[Pierrot93]

Re : Rechercher une date

Re,

en espérant que toutes les dates de la ligne soit au même format...

Sub Macro10()

Dim x As String
Dim Cel As Range
x = Format(CDate(InputBox("date")), "d")

Set Cel = Sheets("Feuil1").Range("3:3").Find(what:=x, LookIn:=xlValues, lookat:=xlWhole)

If Not Cel Is Nothing Then Columns(Cel.Column).Select

End Sub

 

[famu]

Re : Rechercher une date

Pierrot,
c'est mieux mais ce n'est pas encore "top".
Pour exemple: si j'insère dans l'imputBox la date du 19/06/2013, il me trouve la date du 19/09/2012, le premier "19" qu'il trouve sur la ligne.
pas simple tout ça 🙁
Fichier mis à jour.

 

[Pierrot93]

Re : Rechercher une date

Re,

perso, vois pas de solution avec la méthode "Find".... regarde peut être du coté d'une boucle "for" sur la ligne en question... tu trouveras des exemples sur le forum...

 

[job75]

Re : Rechercher une date

Bonjour famu, Pierrot,

Avec la fonction Match (EQUIV) :

Sub Macro10()
Dim x As String, col As Variant
x = InputBox("date")
If IsDate(x) Then
  col = Application.Match(CDbl(CDate(x)), [3:3], 0)
  If IsNumeric(col) Then Columns(col).Select
End If
End Sub

A+

 

[MJ13]

Re : Rechercher une date

Bonjour à tous

Pour exemple: si j'insère dans l'imputBox la date du 19/06/2013, il me trouve la date du 19/09/2012, le premier "19" qu'il trouve sur la ligne.
pas simple tout ça

C'est pas un peu normal, vu les paramètres mis dans le find 😕.