"Pierre TISSENDIER" a écrit dans le message de news:
Bonjour, Je vous assure que j'ai cherché partout. excellabo.fr, developpez.com, forums divers et variés....
Je n'arrive pas à faire fonctionner le code suivant dans Excel (erreur1004)
Dim maDate as String Dim maLigne as Long
maDate=Inputbox("Entrer la date sous la forme jj/mm/aa") .... maLigne = Activesheet.Columns(1).Find(CDate(maDate),,xlValues).Row
NB: La colonne 1 ne contient pas que des dates
J'espère que l'objet de mon message sera suffisamment explicite pour d'éventuelles recherches.
Merci à tous pour votre réponse.
JB
Bonjour,
1-Le format de la date cherchée est le même que le format des dates du champ de recherche:
Sub RechercheDateFind() d = InputBox("Date? jj/mm/aa") If d <> "" Then On Error Resume Next [L:L].Find(What:Íate(d), LookIn:=xlValues).Select If Err <> 0 Then MsgBox "Inconnu" End If End Sub
2-On adapte le format de la date recherchée au format des dates du champ de recherche:
Sub RechercheDateFind2() d = InputBox("Date? jj/mm/aa") If d <> "" Then On Error Resume Next [N:N].Find(What:=Format(CDate(d), "dddd d mmmm yyyy"), LookIn:=xlValues).Select If Err <> 0 Then MsgBox "Inconnu" End If End Sub
3-Avec la fonction Equiv(), le format des dates du champ de recherche n'a pas d'importance
Sub RechercheDateColonneEquiv() d = InputBox("Date?") If IsDate(d) Then p = Application.Match(CDbl(CDate(d)), [L2:L10000], 0) If IsError(p) Then MsgBox "Inconnu" Else [L2].Offset(p - 1, 0).Select End If Else MsgBox "n'est pas une date" End If End Sub
Bonjour, Je vous assure que j'ai cherché partout. excellabo.fr, developpez.com, forums divers et variés....
Je n'arrive pas à faire fonctionner le code suivant dans Excel (erreur1 004)
Dim maDate as String Dim maLigne as Long
maDate=Inputbox("Entrer la date sous la forme jj/mm/aa") .... maLigne = Activesheet.Columns(1).Find(CDate(maDate),,xlValues).Row
NB: La colonne 1 ne contient pas que des dates
J'espère que l'objet de mon message sera suffisamment explicite pour d'éventuelles recherches.
Merci à tous pour votre réponse.
Bonjour,
1-Le format de la date cherchée est le même que le format des dates du
champ de recherche:
Sub RechercheDateFind()
d = InputBox("Date? jj/mm/aa")
If d <> "" Then
On Error Resume Next
[L:L].Find(What:=CDate(d), LookIn:=xlValues).Select
If Err <> 0 Then MsgBox "Inconnu"
End If
End Sub
2-On adapte le format de la date recherchée au format des dates du
champ de recherche:
Sub RechercheDateFind2()
d = InputBox("Date? jj/mm/aa")
If d <> "" Then
On Error Resume Next
[N:N].Find(What:=Format(CDate(d), "dddd d mmmm yyyy"),
LookIn:=xlValues).Select
If Err <> 0 Then MsgBox "Inconnu"
End If
End Sub
3-Avec la fonction Equiv(), le format des dates du champ de recherche
n'a pas d'importance
Sub RechercheDateColonneEquiv()
d = InputBox("Date?")
If IsDate(d) Then
p = Application.Match(CDbl(CDate(d)), [L2:L10000], 0)
If IsError(p) Then
MsgBox "Inconnu"
Else
[L2].Offset(p - 1, 0).Select
End If
Else
MsgBox "n'est pas une date"
End If
End Sub
1-Le format de la date cherchée est le même que le format des dates du champ de recherche:
Sub RechercheDateFind() d = InputBox("Date? jj/mm/aa") If d <> "" Then On Error Resume Next [L:L].Find(What:Íate(d), LookIn:=xlValues).Select If Err <> 0 Then MsgBox "Inconnu" End If End Sub
2-On adapte le format de la date recherchée au format des dates du champ de recherche:
Sub RechercheDateFind2() d = InputBox("Date? jj/mm/aa") If d <> "" Then On Error Resume Next [N:N].Find(What:=Format(CDate(d), "dddd d mmmm yyyy"), LookIn:=xlValues).Select If Err <> 0 Then MsgBox "Inconnu" End If End Sub
3-Avec la fonction Equiv(), le format des dates du champ de recherche n'a pas d'importance
Sub RechercheDateColonneEquiv() d = InputBox("Date?") If IsDate(d) Then p = Application.Match(CDbl(CDate(d)), [L2:L10000], 0) If IsError(p) Then MsgBox "Inconnu" Else [L2].Offset(p - 1, 0).Select End If Else MsgBox "n'est pas une date" End If End Sub
"Pierre TISSENDIER" <tissendier.pierre@numericable.fr> a écrit dans le message de news:
euIlqhapHHA.3320@TK2MSFTNGP05.phx.gbl...
Bonjour,
Je vous assure que j'ai cherché partout. excellabo.fr, developpez.com,
forums divers et variés....
Je n'arrive pas à faire fonctionner le code suivant dans Excel (erreur1004)
Dim maDate as String
Dim maLigne as Long
maDate=Inputbox("Entrer la date sous la forme jj/mm/aa")
....
maLigne = Activesheet.Columns(1).Find(CDate(maDate),,xlValues).Row
NB: La colonne 1 ne contient pas que des dates
J'espère que l'objet de mon message sera suffisamment explicite pour
d'éventuelles recherches.
"Pierre TISSENDIER" <tissendier.pierre@numericable.fr> a écrit dans le
message de news:
euIlqhapHHA.3320@TK2MSFTNGP05.phx.gbl...
Bonjour,
Je vous assure que j'ai cherché partout. excellabo.fr, developpez.com,
forums divers et variés....
Je n'arrive pas à faire fonctionner le code suivant dans Excel
(erreur1004)
Dim maDate as String
Dim maLigne as Long
maDate=Inputbox("Entrer la date sous la forme jj/mm/aa")
....
maLigne = Activesheet.Columns(1).Find(CDate(maDate),,xlValues).Row
NB: La colonne 1 ne contient pas que des dates
J'espère que l'objet de mon message sera suffisamment explicite pour
d'éventuelles recherches.
