Pardon si je vous ai semblé pas courtois, ce n'était pas voulu comme ça ! C'était plutôt le désespoir qui parlait après 3 heures de recherche.
J'ai regardé le sujet que vous indiquez mais pour l'appliquer concrètement, il va falloir que je m'y plonge un peu plus longuement.
Ce que j'ai remarqué c'est que dans les parametres régionaux de windows les années sont indiqué "aaaa" et non pas "yyyy", je ne sais pas si c'est à ce niveau que ça ce joue ou plustôt dans excel.
je vais essayer ce soir,
je maintenant autre chose a faire, et je ne comprends pas bien vos méthodes, car je ne les connais pas, comme j'ai dit, ça va etre un peu plus long...
Si tu regardes l'aide excel sur la méthode Find tu verras que celles-ci conserve certains paramètres d'une recherche à l'autre. Si l'utilisateur modifie ces paramètres par l'interface en faisant Edition/rechercher et que ton instruction Find ne spécifie pas ces même paramètres alors la recherche par macro peut échouer.
Réécris ton instruction .find avec tous les paramètres constants (voir l'aide).
Si tu n'y arrive toujours pas mets en pièce jointe, ici un fichier exemple avec ta macro et quelques données et nous verrons.
J'ai trouvé cela en suivant un lien dans un autre message sur ce forum.
Sur cette page j'ai trouvé une methode emploiant Application.Match
Cette exemple étant peut-etre un peu plus explicite, ou alors le froid ambiant ayant ravivé mon cerveau, vas savoir, toujours est il que j'y suis arrivé a le faire marcher !
Et surtout SUR LES DEUX ORDINATEURS !!
En plus (j'ai essayé avec un InputBox) elle est capable de convertir des formats de date !! Très pratique donc.
Voici le code :
Code:
Dim Aller As Date
Aller = Date
If IsDate(Aller) Then 'ça c'est pour vérifier les données inputbox'
p = Application.Match(CDbl(CDate(Aller)), [F11:F10000], 0)
If IsError(p) Then
MsgBox "Date en dehors du calendrier !"
Else
[F11].Offset(p - 1, 1).Select
End If
End If
Je vois ce que tu (Hasco) veut dire par rapport au formats de Find. C'est parreil pour les filtres n'est ce pas ?
C'était peut-etre ça, mais pourtant, j'avais fait un essai en remplacant les date pour des numéros (1, 2, 3 etc.) et la ça marchait sur les deux ordis.
En tout cas, Find a l'air capricieux comme vous avais déja mentionné(e)s (en temoigne déja le nombre de messages dans les forums a ce sujet.