Discussion :

[informer]

Bonjour à tous,

Je sais que ce problème est récurrent mais malgré la lecture de nombreux posts, je n’arrive pas à résoudre la recherche avec FIND sur une date.

J'ai les lignes suivantes



Le format des dates est le suivant



Enfin le code suivant dans un un module:

Code :

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

1
2
3
dim dDate as date
dDate = Format(Now(), "mm/dd/yyyy")
Set oRgFind = oShtGraphe.Range(3).EntireRow.Find(What:=dDate, LookIn:=xlFormulas, SearchOrder:=xlByRows)

Cela génère l'erreur suivante



Même chose si utilise

Code :

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

LookIn:=xlValues

Merci par avance pour toute aide !

[Patrice740]

Bonjour,

Comme ça :

Code VBA :

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

1
2
3
4
5
6
7
8
9
Option Explicit
Sub Test()
Dim oShtGraphe As Worksheet
Dim oRgFind As Range
Dim dDate As Date
  dDate = Date
  Set oShtGraphe = Worksheets(1)
  Set oRgFind = oShtGraphe.Rows(3).Find(What:=dDate, LookIn:=xlValues)
End Sub

Notes que Format() renvoi un String, même si le transtypage fonctionne il est déconseillé, il est plus simple d'écrire =Date.

[Menhir]

Enfin le code suivant dans un un module:

Code :

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

1
2
3
dim dDate as date
dDate = Format(Now(), "mm/dd/yyyy")
Set oRgFind = oShtGraphe.Range(3).EntireRow.Find(What:=dDate, LookIn:=xlFormulas, SearchOrder:=xlByRows)

Cela génère l'erreur suivante

Quelle ligne de code est désignée par le débugage lorsque l'erreur se produit ?

Parce que si c'est la ligne du Find, une recherche infructueuse ne génère pas d'erreur. Elle se contente de placer Nothing dans la variable.
Donc l'erreur serait générée par une autre ligne utilisant cette variable.

Un conseil : lorsqu'on utilise un Find, il faut toujours qu'il soit suivi d'un test pour vérifier que le résultat n'est pas Nothing.
Quelque chose ressemblant à :

Code :

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

1
2
3
4
If oRgFind Is Noting Then
    MsgBox("Date " & dDate & "non trouvée")
    Exit Sub
End If

[informer]

Bonjour à tous les deux,

J'ai implémenté la solution sans transtypage (merci Patrice740) et l'erreur vient de ligne ci-desous Menhir

Code :

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

Set oRgFind = oShtGraphe.Range(3).EntireRow.Find(What:=dDate, LookIn:=xlValues, SearchOrder:=xlByRows)

Avec les données vérifiées ci-dessous



Merci pour votre aide

[informer]

A l'origine j'utilisais un variant



Qui prend le format date comme on le voit sur la copie d'écran mais erreur identique

[Patrice740]

Re,

L'erreur vient de l'utilisation de Range(3) au lieu de Rows(3)

[Menhir]

Autre détail : EntireRow juste après un Rows(3), c'est inutile, une sorte de pléonasme informatique.

Comme je l'ai dit, si c'est le Find qui est coupable, le problème n'apparaitra pas sur cette ligne mais sur les suivantes.
Un Find qui ne trouve rien renvoie Nothing sans générer d'erreur.
C'est un coupable discret qui brouille les pistes...

[TonyNiort79]

Bonjour,

il y a une différence quand on utilise
Maintenant et Aujourdhui

maintenant indique le jour, l'heure, les minutes, les secondes,...
aujourd'hui indique juste le jour,

quand on utilise Now en VBA l'équivalent de maintenant, on ne peux pas trouver une valeur identique dans un classeur,
en VBA, il vaut mieux utiliser Date

[MarcelG]

Bonsoir,

D'accord avec Menhir.
Une règle est de savoir déjà si la valeur cherchée existe avant de lui en lire/affecter une méthode ou une propriété.
Dans le cas contraire, l'erreur est très vite arrivée.

Pour ma part, j'ai une démarche qui consiste à chercher le numéro de série plutôt que la date elle-même.
Pour ce faire, 3 étapes
- retirer le format au champ de recherche
- chercher le n° de série
- rétablir le format

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Option Explicit
 
Public Sub recherche_date()
 
Dim valcherchéelong As Long
Dim leformat As String
Dim t As Range
 
Application.ScreenUpdating = False
 
With Feuil1
 
        valcherchéelong = DateValue(.[C7])
 
        With .Range("A1:A3")
                leformat = .NumberFormat
                .NumberFormat = "0"
                 Set t = .Find(valcherchéelong, LookIn:=xlValues)
                If Not t Is Nothing Then
                   MsgBox _
                        Prompt:="La cellule trouvée a pour adresse " & t.Address, _
                        Buttons:=vbInformation, _
                        Title:="Info"
                End If
                Set t = Nothing
                .Range("A1:A3").NumberFormat = leformat
        End With
End With
 
Application.ScreenUpdating = True
 
End Sub

Cela vaut ce que cela vaut.
Peut-être pas grand chose.

[informer]

Bonsoir,

D'accord avec Menhir.
Une règle est de savoir déjà si la valeur cherchée existe avant de lui en lire/affecter une méthode ou une propriété.
Dans le cas contraire, l'erreur est très vite arrivée.

Pour ma part, j'ai une démarche qui consiste à chercher le numéro de série plutôt que la date elle-même.
Pour ce faire, 3 étapes
- retirer le format au champ de recherche
- chercher le n° de série
- rétablir le format

.

Merci MarcelG pour ton code qui pourra m’aider sur d’autres problématiques.

[informer]

Bonjour,

il y a une différence quand on utilise
Maintenant et Aujourdhui

maintenant indique le jour, l'heure, les minutes, les secondes,...
aujourd'hui indique juste le jour,

quand on utilise Now en VBA l'équivalent de maintenant, on ne peux pas trouver une valeur identique dans un classeur,
en VBA, il vaut mieux utiliser Date

Merci TonyNiort79 pour cette précision qui permet d’éviter les pièges du VBA

[TonyNiort79]

Merci TonyNiort79 pour cette précision qui permet d’éviter les pièges du VBA

Bonjour,
il y a les mêmes pièges sur Excel.
Bonne journée à tous

[informer]

Re,

L'erreur vient de l'utilisation de Range(3) au lieu de Rows(3)

Merci Patrice740 pour ta sagacité, je teste demain en espérant avoir réglé ce problème.

[Patrice740]

Que de temps perdu !!!
Au post 2 j'avais déjà écrit :

Code :

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

1
2
3
  dDate = Date 
  '...
  Set oRgFind = oShtGraphe.Rows(3).Find(What:=dDate, LookIn:=xlValues)

(avec =Date et sans Entirerow)

[Thumb down]

bonjour,

Code :

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

Set oRgFind = oShtGraphe.Range(3).EntireRow.Find(What:="2019-01-01", LookIn:=xlFormulas, SearchOrder:=xlByRows)

[Pierre Fauconnier]

Salut.

Quand je ne peux pas faire autrement qu'utiliser Find pour retrouver des dates, j'utilise Application.FindFormat

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub Macro1()
  Dim r As Range
  Dim d As Date
 
  d = DateSerial(2018, 4, 16)
 
  Application.FindFormat.NumberFormat = "m/d/yyyy"
  Set r = Range("b1:b38").Find(What:=Format(d, "m/d/yyyy"), After:=Range("b1"), LookIn:=xlValues, _
    LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
    MatchCase:=False, SearchFormat:=True)
  If Not r Is Nothing Then MsgBox r.Address
End Sub

Attention à bien préciser toutes les options, car FIND "singe" l'utilisation de la boite de dialogue de recherche d'Excel, et les options utilisées antérieurement restent actives.

[MarcelG]

Bonsoir Pierre,

Je ne connaissais pas. Bien!
Je me posais la question quant à l'adaptation de ce processus à une Textbox. Il faudrait alors considérer la fonction DateValue.
A priori, il n'y aurait pas de problème.
A l'occasion, je testerai à partir de demain.

Bonne soirée à toi. Bonne soirée au Forum.

[Theze]

Re,

comme dit MarcelG

Le champ de recherche ne contiendrait que des nombres au format date.
Le changement de format les considérerait en Long.
Et la recherche devient alors plus facile.
Certes, la rigueur des données est, comme toujours, fondamentale.
Ce qui n'empêche pas une restitution au format initial en fin de traitement.

pour moi, une date valide dans Excel ne peut être qu'un numéro de série, le reste n'est que formatage ! Mais bon, ça n'engage que moi

[MarcelG]

Bonjour le Forum,

Theze,

J'ai testé la proposition de Pierre sur un formulaire.

Code fonctionnel, avec une déclaration, comme je le pressentais, en Long

Code :

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

1
2
Dim d As Long
d = DateValue(Me.TextBox1)

Quelques remarques:
- Il y a inversion des formats entre le code ("m/d/yyyy") et la feuille de travail ("d/m/yyyy").
La cause en est, je pense, la gestion des dates américaines
- La fonctionnalité de la propriété FindFormat est, comme le reporte l'aide Microsoft et comme il est démontré ici, le format de recherche.
Ce qui signifie qu'elle peut servir à tous les formats de cellules (police, couleur...). Et donc, au passage, est elle affectée à l'objet Application. Je la trouve donc très utile.
- L'aide Microsoft quant à la fonction DateValue indique une

Renvoie une Variante (Date

J'aurais plutôt pensé à Long, comme d'ailleurs pour DateSerial

Conclusion: 1 élément de plus dans ma documentation, partie "Dates".
Merci.

Bonne journée à tous.

[informer]

Excel, un boulet, preuve en est, j'ai implémenté la solution de Pierre et voici le résultat


Avec
oRgFind.Address = $B$3:$D$3
dDate = 23/10/2019

Code :

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

1
2
oRgFind.Find(What:=Format(dDate, "m/d/yyyy"), LookIn:=xlValues, _
LookAt:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=True)

Renvoie nothing

J'ai également essayé en ajoutant After:=oRgFind.Columns(1)

Code :

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

1
2
oRgFind.Find(What:=Format(dDate, "m/d/yyyy"), After:=oRgFind.Columns(1), LookIn:=xlValues, _
LookAt:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=True)

Toujours Nothing