Rechercher une date

Pierrot93

XLDnaute Barbatruc

• 19 Juin 2013

• #2

Re : Rechercher une date

Bonjour,

essaye avec ceci :

Code:

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
@+

 

Vote positif 0 Vote négatif

F

famu

XLDnaute Occasionnel

• 19 Juin 2013

• #3

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.

 

Pièces jointes

• RechercheDate.xlsm

  16.5 KB · Affichages: 21
• RechercheDate.xlsm

  16.5 KB · Affichages: 22
• RechercheDate.xlsm

  16.5 KB · Affichages: 23

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 19 Juin 2013

• #4

Re : Rechercher une date

Re,

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

Code:

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

 

Vote positif 0 Vote négatif

F

famu

XLDnaute Occasionnel

• 19 Juin 2013

• #5

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.

 

Pièces jointes

• RechercheDate.xlsm

  20.8 KB · Affichages: 24
• RechercheDate.xlsm

  20.8 KB · Affichages: 28
• RechercheDate.xlsm

  20.8 KB · Affichages: 30

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 19 Juin 2013

• #6

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...

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 19 Juin 2013

• #7

Re : Rechercher une date

Bonjour famu, Pierrot,

Avec la fonction Match (EQUIV) :

Code:

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+

 

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 19 Juin 2013

• #8

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif