Macro recherche
xa25
Messages postés
1
Date d'inscription
vendredi 1 février 2002
Statut
Membre
Dernière intervention
1 février 2002
-
1 févr. 2002 à 12:09
cs_Fabio Messages postés 12 Date d'inscription mercredi 23 janvier 2002 Statut Membre Dernière intervention 2 février 2002 - 2 févr. 2002 à 10:02
cs_Fabio Messages postés 12 Date d'inscription mercredi 23 janvier 2002 Statut Membre Dernière intervention 2 février 2002 - 2 févr. 2002 à 10:02
A voir également:
- Macro recherche
- Barre de recherche php - Forum PHP
- Moteur de recherche PHP - MySQL ✓ - Forum PHP
- Php/Mysql formule de recherche Mysqli ✓ - Forum PHP
- Activer macro outlook - Forum Visual Basic
- Les macros sur Outlook ne fonctionnent plus et ne sont plus accessibles ! - Forum VBA Office (Excel, Word ...)
2 réponses
cs_Fabio
Messages postés
12
Date d'inscription
mercredi 23 janvier 2002
Statut
Membre
Dernière intervention
2 février 2002
2 févr. 2002 à 09:54
2 févr. 2002 à 09:54
Tu devrais plutôt essayer comme cela :
With Worksheets("Histo").Cells
Set cel = .Find(What:=DateValue("29/01/2002"), _
After:=ActiveCell, _
LookIn:=xlValues, _
LookAt:=xlPart, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False)
If Not cel Is Nothing Then
adrToFisrtcel = cel.Address
Do
cel.Activate
Set cel = .FindNext(cel)
Loop While cel.Address <> adrToFisrtcel _
And Not cel Is Nothing
End If
End With
Salut.
With Worksheets("Histo").Cells
Set cel = .Find(What:=DateValue("29/01/2002"), _
After:=ActiveCell, _
LookIn:=xlValues, _
LookAt:=xlPart, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False)
If Not cel Is Nothing Then
adrToFisrtcel = cel.Address
Do
cel.Activate
Set cel = .FindNext(cel)
Loop While cel.Address <> adrToFisrtcel _
And Not cel Is Nothing
End If
End With
Salut.
cs_Fabio
Messages postés
12
Date d'inscription
mercredi 23 janvier 2002
Statut
Membre
Dernière intervention
2 février 2002
2 févr. 2002 à 10:02
2 févr. 2002 à 10:02
Désolé pour la mise en page du msg préc. voilà en plus clair :
With Worksheets("Histo").Cells
Set cel = .Find(What:=DateValue("29/01/2002"), _
After:=ActiveCell, _
LookIn:=xlValues, _
LookAt:=xlPart, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False)
If Not cel Is Nothing Then
adrToFisrtcel = cel.Address
Do
cel.Activate
Set cel = .FindNext(cel)
Loop While cel.Address <> adrToFisrtcel _
And Not cel Is Nothing
End If
End With
With Worksheets("Histo").Cells
Set cel = .Find(What:=DateValue("29/01/2002"), _
After:=ActiveCell, _
LookIn:=xlValues, _
LookAt:=xlPart, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False)
If Not cel Is Nothing Then
adrToFisrtcel = cel.Address
Do
cel.Activate
Set cel = .FindNext(cel)
Loop While cel.Address <> adrToFisrtcel _
And Not cel Is Nothing
End If
End With