Bonjour,
j'ai cherché sur le net une solution à mon problème ou de trouver une autre macro mais je calle et suis bien obligé de demander de l'aide sur le forum.
Explication:
je saisie une date (ex 15/01/2001) en f7 puis j'active la macro qui place le curseur à l'endroit ou l'on retrouve cette même date dans la colonne A.
Sub RECHERCHEET()
Dim r As Range 'déclare la variable r (Recherche)
Set r = Columns(1).Find(Range("f7"), LookAt:=xlWhole) 'définit la variable r
If Not r Is Nothing Then 'condition : si il existe au moins une occurrence de r dans la colonne A
r.Select 'sélectionne la première occurrence trouvée
Else 'sinon
MsgBox "Valeur exacte non trouvée !" 'message
End If 'fin de la condition
End Sub
Cela fonctionne bien sous 97 (même si je dois dans la colonne A mettre les valeurs numériques des dates mais ce n'est pas le problème).
Mon problème est que le fichier est utilisé sur plusieurs postes et qu’avec ceux qui sont sous excel 2003 la macro ne fonctionne pas ou du moins fonctionne mal. Au lieu de placer le curseur au bon endroit quand j'active la macro, cela ouvre direct la msgbox.
Auriez-vous une solution ou même une autre macro qui passerai sous les 2 versions.
D'avance un grand merci.
j'ai cherché sur le net une solution à mon problème ou de trouver une autre macro mais je calle et suis bien obligé de demander de l'aide sur le forum.
Explication:
je saisie une date (ex 15/01/2001) en f7 puis j'active la macro qui place le curseur à l'endroit ou l'on retrouve cette même date dans la colonne A.
Sub RECHERCHEET()
Dim r As Range 'déclare la variable r (Recherche)
Set r = Columns(1).Find(Range("f7"), LookAt:=xlWhole) 'définit la variable r
If Not r Is Nothing Then 'condition : si il existe au moins une occurrence de r dans la colonne A
r.Select 'sélectionne la première occurrence trouvée
Else 'sinon
MsgBox "Valeur exacte non trouvée !" 'message
End If 'fin de la condition
End Sub
Cela fonctionne bien sous 97 (même si je dois dans la colonne A mettre les valeurs numériques des dates mais ce n'est pas le problème).
Mon problème est que le fichier est utilisé sur plusieurs postes et qu’avec ceux qui sont sous excel 2003 la macro ne fonctionne pas ou du moins fonctionne mal. Au lieu de placer le curseur au bon endroit quand j'active la macro, cela ouvre direct la msgbox.
Auriez-vous une solution ou même une autre macro qui passerai sous les 2 versions.
D'avance un grand merci.
