Bonsoir
je cherche à trouver le jour d'une date avec la méthode find
la date est obtenue avec la formule aujourdhui() dans la feuille
j'ai essayé ceci mais çà ne marche pas
ladate = sh2.Columns("A:M").Find(What:="=aujourdhui()",
LookIn:=xlFormulas, lookat:=xlWhole, MatchCase:úlse)
merci de votre aide
ptck
Bonsoir
je cherche à trouver le jour d'une date avec la méthode find
la date est obtenue avec la formule aujourdhui() dans la feuille
j'ai essayé ceci mais çà ne marche pas
ladate = sh2.Columns("A:M").Find(What:="=aujourdhui()",
LookIn:=xlFormulas, lookat:=xlWhole, MatchCase:úlse)
merci de votre aide
ptck
Bonsoir
je cherche à trouver le jour d'une date avec la méthode find
la date est obtenue avec la formule aujourdhui() dans la feuille
j'ai essayé ceci mais çà ne marche pas
ladate = sh2.Columns("A:M").Find(What:="=aujourdhui()",
LookIn:=xlFormulas, lookat:=xlWhole, MatchCase:úlse)
merci de votre aide
ptck
Bonsoir
je cherche à trouver le jour d'une date avec la méthode find
la date est obtenue avec la formule aujourdhui() dans la feuille
j'ai essayé ceci mais çà ne marche pas
ladate = sh2.Columns("A:M").Find(What:="=aujourdhui()",
LookIn:=xlFormulas, lookat:=xlWhole, MatchCase:úlse)
merci de votre aide
ptck
Bonsoir
je cherche à trouver le jour d'une date avec la méthode find
la date est obtenue avec la formule aujourdhui() dans la feuille
j'ai essayé ceci mais çà ne marche pas
ladate = sh2.Columns("A:M").Find(What:="=aujourdhui()",
LookIn:=xlFormulas, lookat:=xlWhole, MatchCase:úlse)
merci de votre aide
ptck
Bonsoir
je cherche à trouver le jour d'une date avec la méthode find
la date est obtenue avec la formule aujourdhui() dans la feuille
j'ai essayé ceci mais çà ne marche pas
ladate = sh2.Columns("A:M").Find(What:="=aujourdhui()",
LookIn:=xlFormulas, lookat:=xlWhole, MatchCase:úlse)
merci de votre aide
ptck
Plutôt que de chercher la formule,
cherche la valeur résultant de la formule
en utilisant les paramètres What:Úte, LookIn:=xlValues
Exemple:
Dim today As Date
today = Date
Cells.Find(What:=today, After:¬tiveCell, LookIn:=xlValues, _
lookat:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:úlse).Activate
Mishell
"ptck" wrote in message
news:Bonsoir
je cherche à trouver le jour d'une date avec la méthode find
la date est obtenue avec la formule aujourdhui() dans la feuille
j'ai essayé ceci mais çà ne marche pas
ladate = sh2.Columns("A:M").Find(What:="=aujourdhui()",
LookIn:=xlFormulas, lookat:=xlWhole, MatchCase:úlse)
merci de votre aide
ptck
Plutôt que de chercher la formule,
cherche la valeur résultant de la formule
en utilisant les paramètres What:Úte, LookIn:=xlValues
Exemple:
Dim today As Date
today = Date
Cells.Find(What:=today, After:¬tiveCell, LookIn:=xlValues, _
lookat:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:úlse).Activate
Mishell
"ptck" <nospamptck@neuf.fr> wrote in message
news:ehSmrNN1JHA.1644@TK2MSFTNGP02.phx.gbl...
Bonsoir
je cherche à trouver le jour d'une date avec la méthode find
la date est obtenue avec la formule aujourdhui() dans la feuille
j'ai essayé ceci mais çà ne marche pas
ladate = sh2.Columns("A:M").Find(What:="=aujourdhui()",
LookIn:=xlFormulas, lookat:=xlWhole, MatchCase:úlse)
merci de votre aide
ptck
Plutôt que de chercher la formule,
cherche la valeur résultant de la formule
en utilisant les paramètres What:Úte, LookIn:=xlValues
Exemple:
Dim today As Date
today = Date
Cells.Find(What:=today, After:¬tiveCell, LookIn:=xlValues, _
lookat:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:úlse).Activate
Mishell
"ptck" wrote in message
news:Bonsoir
je cherche à trouver le jour d'une date avec la méthode find
la date est obtenue avec la formule aujourdhui() dans la feuille
j'ai essayé ceci mais çà ne marche pas
ladate = sh2.Columns("A:M").Find(What:="=aujourdhui()",
LookIn:=xlFormulas, lookat:=xlWhole, MatchCase:úlse)
merci de votre aide
ptck
Bonjour Ptck,
2 façons de faire :
A ) Si tu veux rechercher une cellule par la
formule qu'elle contient :
'-----------------------------------------
Sub test()
Dim X As String
X = "=today()"
With sh2.Columns("A:M")
Set rg = .Cells.Find(What:=X, LookIn:=xlFormulas, _
SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:úlse, lookat:=xlWhole)
End With
If Not rg Is Nothing Then
MsgBox rg.Address
Else
Err = 0
MsgBox "Pas trouvé"
End If
End Sub
'-----------------------------------------
B ) Pour rechercher par sa valeur, une cellule contenant une date
'-----------------------------------------
Sub Test2()
Dim Y As Date
Y = Date
With sh2.Columns("A:M")
Set rg = .Cells.Find(What:=Y, LookIn:=xlValues, _
SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:úlse, lookat:=xlWhole)
End With
If Not rg Is Nothing Then
MsgBox rg.Address
Else
MsgBox "Pas trouvé"
End If
End Sub
'-----------------------------------------
"ptck" a écrit dans le message de groupe de
discussion :
Bonsoir
je cherche à trouver le jour d'une date avec la méthode find
la date est obtenue avec la formule aujourdhui() dans la feuille
j'ai essayé ceci mais çà ne marche pas
ladate = sh2.Columns("A:M").Find(What:="=aujourdhui()",
LookIn:=xlFormulas,
lookat:=xlWhole, MatchCase:úlse)
merci de votre aide
ptck
Bonjour Ptck,
2 façons de faire :
A ) Si tu veux rechercher une cellule par la
formule qu'elle contient :
'-----------------------------------------
Sub test()
Dim X As String
X = "=today()"
With sh2.Columns("A:M")
Set rg = .Cells.Find(What:=X, LookIn:=xlFormulas, _
SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:úlse, lookat:=xlWhole)
End With
If Not rg Is Nothing Then
MsgBox rg.Address
Else
Err = 0
MsgBox "Pas trouvé"
End If
End Sub
'-----------------------------------------
B ) Pour rechercher par sa valeur, une cellule contenant une date
'-----------------------------------------
Sub Test2()
Dim Y As Date
Y = Date
With sh2.Columns("A:M")
Set rg = .Cells.Find(What:=Y, LookIn:=xlValues, _
SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:úlse, lookat:=xlWhole)
End With
If Not rg Is Nothing Then
MsgBox rg.Address
Else
MsgBox "Pas trouvé"
End If
End Sub
'-----------------------------------------
"ptck" <nospamptck@neuf.fr> a écrit dans le message de groupe de
discussion :
ehSmrNN1JHA.1644@TK2MSFTNGP02.phx.gbl...
Bonsoir
je cherche à trouver le jour d'une date avec la méthode find
la date est obtenue avec la formule aujourdhui() dans la feuille
j'ai essayé ceci mais çà ne marche pas
ladate = sh2.Columns("A:M").Find(What:="=aujourdhui()",
LookIn:=xlFormulas,
lookat:=xlWhole, MatchCase:úlse)
merci de votre aide
ptck
Bonjour Ptck,
2 façons de faire :
A ) Si tu veux rechercher une cellule par la
formule qu'elle contient :
'-----------------------------------------
Sub test()
Dim X As String
X = "=today()"
With sh2.Columns("A:M")
Set rg = .Cells.Find(What:=X, LookIn:=xlFormulas, _
SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:úlse, lookat:=xlWhole)
End With
If Not rg Is Nothing Then
MsgBox rg.Address
Else
Err = 0
MsgBox "Pas trouvé"
End If
End Sub
'-----------------------------------------
B ) Pour rechercher par sa valeur, une cellule contenant une date
'-----------------------------------------
Sub Test2()
Dim Y As Date
Y = Date
With sh2.Columns("A:M")
Set rg = .Cells.Find(What:=Y, LookIn:=xlValues, _
SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:úlse, lookat:=xlWhole)
End With
If Not rg Is Nothing Then
MsgBox rg.Address
Else
MsgBox "Pas trouvé"
End If
End Sub
'-----------------------------------------
"ptck" a écrit dans le message de groupe de
discussion :
Bonsoir
je cherche à trouver le jour d'une date avec la méthode find
la date est obtenue avec la formule aujourdhui() dans la feuille
j'ai essayé ceci mais çà ne marche pas
ladate = sh2.Columns("A:M").Find(What:="=aujourdhui()",
LookIn:=xlFormulas,
lookat:=xlWhole, MatchCase:úlse)
merci de votre aide
ptck
Bonjour Mishell,
Je ne répéterais pas ici ce que tu peux lire dans le commentaire
que j'ai commis sur le sujet là : http://excelabo.net/pasapas/find-date
avec la méthode "Find" pour rechercher une date, il n'y a pas une
façon de définir les paramètres qui fassent mouche à tout coup.
A ) L'usager doit savoir d'abord ce qu'il cherche (une date émanant
d'une formule ou d'une saisie dans une cellule ou peut-être les 2
avant de déterminer la nature des paramètres, voire si la méthode
est appropriée dans les circonstances.
B ) Que contiennent les autres cellules dans la plage scrutée par la
méthode Find ?
C ) Se rappeler que la méthode "Find" recherche toujours une chaîne
de caractères passée par l'argument "What" à la méthode.
D ) La méthode "Find" utilise la propriété "Formula" ou "Value"
que retourne un objet "Range" pour évaluer si la chaîne du
paramètre "What" est "=" à la chaîne de caractère retournée
par la propriété "Formula" ou "Value" de la cellule selon que l'on
a retenue l'une ou l'autre lorsque l'on a défini le paramètre "LookIn".
C'est là la vraie signification des constantes "XlFormulas" ou
"xlvalues"
de l'argument "LookIn" de la méthode Find.
Ceci étant dit,
| Pour Chercher une date avec Find(),
| le critère LookIn:= doit être xlFormulas.
****Ça dépend du contenu de la plage de cellules !
| Si on Cherche une date avec xlFormulas :
| Les cellules au format Date
| et les cellules au format Texte contenant une date valide
| feront partie des résultats de la recherche.
****Sauf erreur, cet énoncé est inexact :
Si A1 contient une date reconnue dans un format date compris par
Excel
x = Range("A1").Formula -> renvoie : "39949"
Si B1 est au format texte, mais contient une date habituellement
reconnue par Excel
x = Range("B1").Formula -> renvoie : "16-05-09"
La méthode "Find" ne peut pas trouver les 2 cellules avec
XlFormulas
SAUF si on passe à l'argument "What" une variable d'un type
"String"
une fois et une variable d'un type "Date" une autre fois.
Variable type date - > elle trouve A1
Variable Type String -> elle trouve B1
En conséquence, tu dois faire un choix et l'une des
2 sera exclue selon ton choix.
| Si on Cherche une date avec xlValues :
**** Je pourrais répéter le même commentaire que précédemment
mais cette fois avec XlValues
P.S - J'arrête ici. Il y a un grand professeur qui me coure après
avec sa piqure. J'arrête avant qu'il s'énerve un peu trop !
Bonjour Mishell,
Je ne répéterais pas ici ce que tu peux lire dans le commentaire
que j'ai commis sur le sujet là : http://excelabo.net/pasapas/find-date
avec la méthode "Find" pour rechercher une date, il n'y a pas une
façon de définir les paramètres qui fassent mouche à tout coup.
A ) L'usager doit savoir d'abord ce qu'il cherche (une date émanant
d'une formule ou d'une saisie dans une cellule ou peut-être les 2
avant de déterminer la nature des paramètres, voire si la méthode
est appropriée dans les circonstances.
B ) Que contiennent les autres cellules dans la plage scrutée par la
méthode Find ?
C ) Se rappeler que la méthode "Find" recherche toujours une chaîne
de caractères passée par l'argument "What" à la méthode.
D ) La méthode "Find" utilise la propriété "Formula" ou "Value"
que retourne un objet "Range" pour évaluer si la chaîne du
paramètre "What" est "=" à la chaîne de caractère retournée
par la propriété "Formula" ou "Value" de la cellule selon que l'on
a retenue l'une ou l'autre lorsque l'on a défini le paramètre "LookIn".
C'est là la vraie signification des constantes "XlFormulas" ou
"xlvalues"
de l'argument "LookIn" de la méthode Find.
Ceci étant dit,
| Pour Chercher une date avec Find(),
| le critère LookIn:= doit être xlFormulas.
****Ça dépend du contenu de la plage de cellules !
| Si on Cherche une date avec xlFormulas :
| Les cellules au format Date
| et les cellules au format Texte contenant une date valide
| feront partie des résultats de la recherche.
****Sauf erreur, cet énoncé est inexact :
Si A1 contient une date reconnue dans un format date compris par
Excel
x = Range("A1").Formula -> renvoie : "39949"
Si B1 est au format texte, mais contient une date habituellement
reconnue par Excel
x = Range("B1").Formula -> renvoie : "16-05-09"
La méthode "Find" ne peut pas trouver les 2 cellules avec
XlFormulas
SAUF si on passe à l'argument "What" une variable d'un type
"String"
une fois et une variable d'un type "Date" une autre fois.
Variable type date - > elle trouve A1
Variable Type String -> elle trouve B1
En conséquence, tu dois faire un choix et l'une des
2 sera exclue selon ton choix.
| Si on Cherche une date avec xlValues :
**** Je pourrais répéter le même commentaire que précédemment
mais cette fois avec XlValues
P.S - J'arrête ici. Il y a un grand professeur qui me coure après
avec sa piqure. J'arrête avant qu'il s'énerve un peu trop !
Bonjour Mishell,
Je ne répéterais pas ici ce que tu peux lire dans le commentaire
que j'ai commis sur le sujet là : http://excelabo.net/pasapas/find-date
avec la méthode "Find" pour rechercher une date, il n'y a pas une
façon de définir les paramètres qui fassent mouche à tout coup.
A ) L'usager doit savoir d'abord ce qu'il cherche (une date émanant
d'une formule ou d'une saisie dans une cellule ou peut-être les 2
avant de déterminer la nature des paramètres, voire si la méthode
est appropriée dans les circonstances.
B ) Que contiennent les autres cellules dans la plage scrutée par la
méthode Find ?
C ) Se rappeler que la méthode "Find" recherche toujours une chaîne
de caractères passée par l'argument "What" à la méthode.
D ) La méthode "Find" utilise la propriété "Formula" ou "Value"
que retourne un objet "Range" pour évaluer si la chaîne du
paramètre "What" est "=" à la chaîne de caractère retournée
par la propriété "Formula" ou "Value" de la cellule selon que l'on
a retenue l'une ou l'autre lorsque l'on a défini le paramètre "LookIn".
C'est là la vraie signification des constantes "XlFormulas" ou
"xlvalues"
de l'argument "LookIn" de la méthode Find.
Ceci étant dit,
| Pour Chercher une date avec Find(),
| le critère LookIn:= doit être xlFormulas.
****Ça dépend du contenu de la plage de cellules !
| Si on Cherche une date avec xlFormulas :
| Les cellules au format Date
| et les cellules au format Texte contenant une date valide
| feront partie des résultats de la recherche.
****Sauf erreur, cet énoncé est inexact :
Si A1 contient une date reconnue dans un format date compris par
Excel
x = Range("A1").Formula -> renvoie : "39949"
Si B1 est au format texte, mais contient une date habituellement
reconnue par Excel
x = Range("B1").Formula -> renvoie : "16-05-09"
La méthode "Find" ne peut pas trouver les 2 cellules avec
XlFormulas
SAUF si on passe à l'argument "What" une variable d'un type
"String"
une fois et une variable d'un type "Date" une autre fois.
Variable type date - > elle trouve A1
Variable Type String -> elle trouve B1
En conséquence, tu dois faire un choix et l'une des
2 sera exclue selon ton choix.
| Si on Cherche une date avec xlValues :
**** Je pourrais répéter le même commentaire que précédemment
mais cette fois avec XlValues
P.S - J'arrête ici. Il y a un grand professeur qui me coure après
avec sa piqure. J'arrête avant qu'il s'énerve un peu trop !