Fonction Range.Find en VBA

Bjr à tous,

Je suis dubitatif avec la fonction .Find de l'objet Range.
Quand il s'agit de rechercher des 'strings' dans une feuille ou un colonne de Strings, pas de pb.
Pour les dates, c'est déjà plus coton : il semble qu'il faille tenir compte du .NumberFormat de la colonne
Ex /

Code:

---

1 2 3 4

Set le_Range=Sheet.range("A1:A20") ' La première ligne est celle d'un libellé Form=le_Range.cells(2).Numberformat Set cellule=le_Range.Find(What:=Format(la_date,Form), etc ...)

---

Ce qui semble fonctionner
En revanche, pour rechercher une valeur numérique dans une colonne, l'action manuelle fonctionne, mais la même chose en VBA ne fonctionne pas. Je tiens le code à la disposition de ceux qui savent ...

Cordialement
FB

Il faut utiliser Find avec xlFormulas et rechercher une valeur de type date (Short Date).
vWhat = cdate(vardata) ou vWhat = Format(varData, "Short Date")


Il trouve alors toutes les cellules au format date (qu'importe le format date).

Si tu cherches avec xlValues, il trouvera seulement dans les cellules au format Short Date

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Dim vWhat As Variant Dim varData As Variant varData = InputBox(Prompt:="Taper la valeur recherchée!")   If IsDate(varData) Then vWhat = CDate(varData) ' ou Format(varData, "Short Date") ElseIf IsNumeric(varData) Then vWhat = CDbl(varData) Else vWhat = varData End If   Set cell = Cells.Find(What:=(vWhat), After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder _ :=xlByRows, SearchDirection:=xlNext, MatchCase:=False)

---

Bjr,
Merci de cette réponse

Mais après quelques tests, j'ai l'impression que le pb est plus complexe, selon que l'on fait des recherches sur des valeurs entières ou partielles, etc ...
Dès que j'aurai tout investiguer à partir de ce que tu m'as indiquer, je reviendrai vers le forum

Cdlt
FB

Bonjour,

Une recherche Google avec par exemple Excel chercher (rechercher) date devrait te fournir de nombreuse pistes

D'autre part, j'avais lu un exposé intéressant à ce sujet.

Je n'arrive pas à le retrouver. Et je me permets de le mettre en pièce jointe.

Voir aussi la discussion Impossible de trouver des date existantes …