Discussion :

[FrançoisLaterite]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Docmarti]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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)

[FrançoisLaterite]

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

[MarcelG]

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.

[Marc-L]

Voir aussi la discussion Impossible de trouver des date existantes …