Discussion :

[luca.donati]

Bonjour.
J'ai un gros souci avec la commande Find.
Dans le code ci-dessous, le premier Find, qui doit trouver un numéro de ligne, fonctionne correctement.
Les suivants, qui cherchent des numéros de colonne, par contre, plantent: erreur de run-time 91.
Pourquoi?

N.B.: je ne peux pas joindre de fichier, la gestion informatique de mon bureau l'empêche.
En tout cas, tous les élémeents appelés dans le code sont présent dans la même feuille, il s'agit d'un Workbook avec un seul Sheet. Les plages sont nommées.

Merci à quiconque peut me filer un coup de main, parce que je dois résoudre rapidement.

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
33
34
35
36
Sub remplir()
Dim nom As String, note As String, dern As Date, prem As Date
Dim ligne As Long, colDer As Long, colPrem As Long, colDebut As Long, colFin As Long
 
NrRgLista = Range("lista").Rows.Count
For i = 2 To NrRgLista  'la 1ère ligne contient des noms de champs
With Range("lista").Rows(i)
    nom = .Cells(1).Value
    dern = .Cells(2).Value
    prem = .Cells(3).Value
    note = .Cells(4).Value
    iniCong = dern + 1
    finCong = prem - 1
End With
If nom <> "" Then
 
    ligne = Range("caleNomi").Find(nome).Row 'ça marche !
 
With ActiveSheet.Range("caleDate")
    Set colDer = .Find(dern, LookIn:=xlValues).Column   ' ça bloque! Run-time 91
    Set colPrem = .Find(prem, LookIn:=xlValues).Column
    Set colDebut = .Find(iniCong, LookIn:=xlValues).Column
    Set colFin = .Find(finCong, LookIn:=xlValues).Column
    If colDer Is Nothing And colPrem Is Nothing Then
        MsgBox "date dernier jour hors calendrier"
        Exit Sub
    Else
        MsgBox "trouvé: " And colDer
        Exit Sub
    End If
' ensuite il faudra mettre ces données dans le tableau
 
End With
End If
Next
End Sub

[joe.levrai]

Bonjour,

Find renvoie un objet Range lorsque la recherche a abouti
Dans le cas contraire, elle renvoie un objet Nothing

Or, un objet Nothing n'a pas de propriété .Column

Il faut tester ce que renvoie ton find avant de vouloir en extraire des propriétés ou y appliquer des méthodes

[Patrice740]

Bonjour,

Set sert affecter un objet, colDer est un Long !
Enlèves le Set :

Code :

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

colDer = .Find(dern, LookIn:=xlValues).Column

[joe.levrai]

je n'avais même pas relevé

[luca.donati]

Merci Joe et Patrice pour ces observations qui effectivement m'apportent quelques détails en plus.
Toutefois:

1) Set je l'ai ajouté par dispération, puis enlevé, puis rajouté... ça ne marche ni avec ni sans!

2) je pensais gérer les "Nothing" par la suite, donc je me suis assuré simplement que les toutes premières données sont présentes dans le Range("lista"): il n'y a donc pas de "nothing" possible dans mes données dans le cas présent.

[Menhir]

On n'utilise pas Set pour une simple valeur.
Cette commande est réservée à la transmission de références d'objets.

Une remarque supplémentaire : Il est conseillé de vérifier le résultat d'un Find avant d'exploiter ce résultat.

Par exemple pour ton cas :

Code :

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

1
2
3
4
5
6
7
8
Dim Trouve As Range
 
    Set Trouve = Range("caleDate").Find(dern, LookIn:=xlValues).Column
    If Trouve Is Nothing Then
        MsgBox(dern & "non trouvée dans caleDate")
        Exit Sub
    End If
    colDer = Trouve.Column

[luca.donati]

D'accord.
J'ai bien compris que Set est pour les objets et pas pour les données.
Comme je le disais il y a quelques minutes, cela a été une tentative... 'hystérique" due au désespoir, mais Find ne marchais pas non plus avant que je mette Set.
Par ailleurs, le Range("caleDate") contient des dates du 1/1/19 au 25/1/19 et j'ai fait attention à ne mettre QUE des dates de début janvier.
Par conséquent, le "Nothing" que je voulais affronter plus tard, n'a pas lieu d'être pour l'instant.

Pour tout dire, le If qui me donne l'information, dans mon code est carrément annulé par un apostrophe en début de ligne: il servait seulement dans ce forum pour montrer comment je pensais traiter l'info. Et en tout cas, le code s'arrête avant.

[joe.levrai]

Bonjour,

Find et les dates, c'est un peu capricieux

il me semble qu'il faut plutôt zieuter dans les xlFormulas que dans les xlValues

et attention au formatage de la date, Find y est très sensible

Ps : Menhir, t'as laissé un .column à tort à la ligne 3 de ton code

[luca.donati]

Menhir, excuse-moi.
Je viens maintenant de comprendre le sens de ton code.
Je vais essayer et je reviens plus tard.
(Désolé, je n'avais pas saisi...)

[luca.donati]

Voilà, donc j'ai modifié le code, que re-voici:

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
33
34
35
36
37
38
Sub remplir()
Dim nom As String, note As String, dern As Date, prem As Date
Dim ligne As Long, colDer As Range, colPrem As Range, colDebut As Range, colFin As Range
 
NrRgLista = Range("lista").Rows.Count
For i = 2 To NrRgLista  'la 1ère ligne contient des noms de champs
With Range("lista").Rows(i)
    nom = .Cells(1).Value
    dern = .Cells(2).Value
    prem = .Cells(3).Value
    note = .Cells(4).Value
    iniCong = dern + 1
    finCong = prem - 1
End With
If nom <> "" Then
 
    ligne = Range("caleNomi").Find(nom).Row 'ok, ça marche comme avant
 
With ActiveSheet.Range("caleDate")
    Set colDer = .Find(dern, LookIn:=xlValues) '.Column   ' ça ne marche plus
    Set colPrem = .Find(prem, LookIn:=xlValues) '.Column
    Set colDebut = .Find(iniCong, LookIn:=xlValues) '.Column
    Set colFin = .Find(finCong, LookIn:=xlValues) '.Column
 
    If colDer Is Nothing And colPrem Is Nothing Then
 
        MsgBox "date dernier jour hors calendrier - " & nom & " " & ligne
        Exit Sub
    Else
        MsgBox "trouvé: " And colDer.Column
        Exit Sub
    End If
' ensuite il faudra mettre ces données dans le tableau
 
End With
End If
Next
End Sub

Maintenant les variables des colonnes sont des objets, donc Set. Mais - malgré que les dates sont BIEN comprises dans le calendrier - il ne les trouve pas.
J'ai aussi contrôlé le format des dates, en donnant le même (ggg gg/mm/aa) à TOUTES les cellules des deux plages (lista et caleDate).
Comme le "Nothing" est géré (merci Menhir), je n'ai plus d'erreur run-time, mais... les variables des colonnes que je cherche sont toujours Nothing (testé avec F8) et à la fin j'obtiens la MsgBox "hors calendrier" alors que je devrais obtenir l'autre.

Je dois tout fermer, désormais. Si vous avez d'autres suggestions, je suis preneur et je les lirai demain.
Merci à tous!

[Menhir]

Find et les dates, c'est un peu capricieux

+1
Et il faut aussi être sûr que les données sont des dates "entières", c'est-à-dire ne comportant pas d'heures.
Et attention : ce n'est pas parce que les heures ne sont pas affichées qu'elles ne sont pas présente dans la donnée.

Sans compter les cas où de soit-disant "dates" ne sont en fait que du texte ressemblant à des dates.

Bref, pour de nombreuses raisons, les dates dans Excel sont à manipuler comme de la nitroglycérine.

il me semble qu'il faut plutôt zieuter dans les xlFormulas que dans les xlValues

Perso, avec les dates, je préfère utiliser une boucle testant la propriété .Text plutôt qu'un Find : c'est plus lent mais plus sûr.
Ou alors, passer par les fonction Excel avec un Evaluate ou un WorksheetFunction.

Ps : Menhir, t'as laissé un .column à tort à la ligne 3 de ton code

Mea Culpa.

Code :

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

    If colDer Is Nothing And colPrem Is Nothing Then

Ce n'est pas un And mais un Or qu'il faut utiliser : il suffit qu'un seul soit Nothing pour avoir un problème.

Maintenant les variables des colonnes sont des objets, donc Set. Mais - malgré que les dates sont BIEN comprises dans le calendrier - il ne les trouve pas.

Voir tout ce qui a été dit sur les dates dans ce qui précède.

[Theze]

Bonjour,

Une possibilité, passer le format de la plage en Long si il n'y a que la date (si il y a les heures, ça va être plus compliqué), faire une recherche sur les Long avec la date en Long et remettre le format après recherche. Pour le test, entrer des dates de A1 à A25, donner une date à la variable :

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
 
Sub Test()
 
    Dim Plage As Range
    Dim Cel As Range
    Dim LaDate As Date
    Dim AutreDate As Long
    Dim F As String
 
    LaDate = CDate("14/01/2019")
 
    Set Plage = Range("A1:A25")
 
    'mémorise le formatage
    F = Plage.NumberFormat
 
    'récupère la date en Long
    AutreDate = CLng(LaDate)
 
    'passe la plage au format standard
    Plage.NumberFormat = "General"
 
    'effectue la recherche sur des Long
    Set Cel = Plage.Find(AutreDate, , xlValues, xlWhole)
 
    'remet en place le format
    Plage.NumberFormat = F
 
    If Not Cel Is Nothing Then MsgBox Cel.Address(0, 0)
 
End Sub

[luca.donati]

Theze, merci pour ta suggestion.
C'est un peu compliqué, mais apparemment, le souci doit être là... donc je vais essayer comme tu le dis à la mi-journée, quand le boulot me laissera respirer.

En attendant, ton système de mémoriser un format (F = Plage.NumberFormat) m'intéresse aussi pour autre chose. Est-ce que tu pourrais me suggérer comment mémoriser un format couleur? F = Plage.ColorFormat pourrait marcher?
C'est un hors sujet, ici, donc ne t'y attarde pas (par exemple si tu as une simple ligne de code ou un lien à consulter...). Si c'est plus compliqué que ça j'en ferai un autre post plus tard.

[Menhir]

comment mémoriser un format couleur? F = Plage.ColorFormat pourrait marcher?

Plage.Interior.Color
https://docs.microsoft.com/fr-FR/off...or%28object%29
https://docs.microsoft.com/fr-FR/off...interior.color

[luca.donati]

(Merci Menhir pour les couleurs)

Theze, j'ai appliqué tes conseils comme suit:

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
33
34
35
36
37
38
39
40
41
42
43
44
45
 
Sub remplir()
Dim nom As String, note As String, dern As Date, prem As Date, dernLg As Long, premLg As Long
Dim ligne As Long, colDer As Range, colPrem As Range, colDebut As Range, colFin As Range
 
NrRgLista = Range("lista").Rows.Count
For i = 2 To NrRgLista  'la 1ère ligne contient des noms de champs
'With Range("lista").Rows(i)
    nom = Range("lista").Rows(i).Cells(1).Value
    dern = CDate(Range("lista").Rows(i).Cells(2).Value)
    dernLg = CLng(dern)
    prem = CDate(Range("lista").Rows(i).Cells(3).Value)
    premLg = CLng(prem)
    note = Range("lista").Rows(i).Cells(4).Value
    'iniCong = dern + 1 ' à utiliser plus tard
    'finCong = prem - 1
'End With
If nom <> "" Then
 
    ligne = Range("caleNomi").Find(nom).Row 'ça marche !
    F = Range("caleDate").NumberFormat
    Range("caleDate").NumberFormat = "General"
With ActiveSheet.Range("caleDate")
    Set colDer = .Find(dernLg, LookIn:=xlValues)
    Set colPrem = .Find(premLg, LookIn:=xlValues)
    'Set colDebut = .Find(iniCong, LookIn:=xlValues)
    'Set colFin = .Find(finCong, LookIn:=xlValues)
 
    If colDer Is Nothing Then
 
        MsgBox "au moins une date est hors calendrier - " & nom & " " & ligne
        'Exit Sub
    Else
        MsgBox "trouvé: " And colDer.Column
        'Exit Sub
    End If
' ensuite il faudra mettre ces données dans le tableau
 
End With
 
    Range("caleDate").NumberFormat = F
 
End If
Next
End Sub

Le résultat est que pour chaque ligne du Range("lista"), j'obtiens un msgbox "hors calendrier" dans caleDate.
Donc il y a autre chose...
Y arriverai-je un jour...?

[luca.donati]

Coucou, c’est de nouveau moi!
J’ai retourné la question dans tous les sens.
J’ai étudié plein de pages, surtout celle de Pearson, cité ci-dessus par quelqu’un que je ne retrouve pas.
Il semblerait effectivement que tout le monde attire l’attention sur le format de la date, qui est celui qui pose le plus de problèmes à Find. Il semblerait que Find raisonne uniquement en format américain (mm/jj/aaaa), j’avoue que je ne me suis pas embêté jusque-là, mais j’ai aussi essayé en « General », donc 07/01/2019 = 43472 et là je ne vois pas de raison de ne pas trouver avec une variable déclarée en Long.
Le Range(«CaleDate ») c’est des formules à l’origine, mais j’ai essayé également en les remplaçant par des valeurs. J’ai mis les formats « jjj jj/mm/aaaa », « General » (donc 43472 cité plus haut) et aussi « Text ».
Quant aux variables, je les ai re-déclarées comme Date, Long et String, en leur passant les valeurs à travers CDate, CLng et CStr, en accord avec le format qu’avaient les cellules à ce moment-là.
Dans le calendrier, les dates vont pour l’instant de mar 01/01/2019 à ven 25/01/2019 et la première date que mon code doit chercher est le lun 07/01/2019, donc elle est dedans et ce n’est ni la première ni la dernière valeur de l’intervalle Range(«CaleDate »).
Maintenant, en suivant le parcours du code avec F8 dans le VBE, je vois que toutes les variables se valorisent correctement jusqu’à celles qui doivent contenir la date prise dans Range(« lista ») : les valeurs sont les bonnes à leur prise depuis la cellule et aussi après éventuelle conversion dans un autre format (càd CStr, CLng ou CDate).
Même la recherche du nom, donc String, dans les lignes d’une colonne, fonctionne.
Ce n’est qu’au moment de trouver la première date dans les colonnes d’une ligne, que ça échoue toujours, systématiquement, quelle que soit la valeur présente, quel que soit le format de la cellule et celui de la variable, et ceci, que je mette LookIn:=xlValues, LookIn:=xlFormulas ou rien du tout.
Je n’en sors pas.
Quelqu’un pourrait m’aider encore, s’il vous plaît ?
C'est vraiement rageant de ne pouvoir joindre un fichier. Ce serait tellement plus simple...
Merci.