Discussion :

[MrJack]

Bonjour à tous,

Je viens vers vous pour deux petites interrogations...
J'ai un code vba simple qui cherche, par exemple, le mot "garage" dans les Colonnes A, B et C, et si il trouve me renvoie, sur la même ligne, "Garage" en colonne D. Rien de bien compliqué...

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
Sub Test_Garage()
 
Dim FL1 As Worksheet
Dim c As Range, Donnee1 As String
 
 
   Set FL1 = Worksheets("Données") 
 
 
    For Nolig = 2 To FL1.Range("A65535").End(xlUp).Row
        Donnee1 = "Garage" 
        With FL1.Range("a1:c" & FL1.Range("A65535").End(xlUp).Row) 
           Set c = .Find(Donnee1, LookIn:=xlValues)
 
        If Not c Is Nothing Then
          FirstAddress = c.Address
            Do
                FL1.Cells(c.Row, 4) = "Garage"
                 Set c = .FindNext(c)
           Loop While Not c Is Nothing And c.Address <> FirstAddress
 
            Else
              ' FL1.Cells(Nolig, 4).Value = 0
            End If
 
            'Set c = Nothing
        End With
    Next
 
End Sub

Mon premier problème est devant mon nez, mais ne trouve pas de solutions.
Quand je fais des tests, avec des données sur les 30 premières lignes et les colonnes A,B et C: tout marche .
Mais quand je lance cette macro sur 8 000 lignes, j'ai l'impression qu'elle boucle à l'infini
J'ai repris les aides sur Loop mais ne comprends pas l'erreur?
Si cela marche pour 10, cela marche pour 100000 non?
Est-ce du fait qu'il cherche sur plusieurs colonnes, et que celles-ci sont mal définis?


Ma seconde question est: comment faire pour qu'il cherche "garage" et "essence" (par ex.) et renvoie dans les deux cas "Garage".
J'ai cherché du côté de Array, And et par les Tableaux mais ne trouve pas.
Auriez-vous une piste?


En vous remerciant par avance

[MarcelG]

Bonjour et bienvenu sur le forum,

Normal.
Tu boucles 2 fois.
La méthode Do ... Loop suffit
Il te suffit de renseigner la plage de recherche de la dernière ligne trouvée.

Apparemment, tu as copié l'aide en ligne de la méthode Find.
Ce qui peut se concevoir, certes, mais à la condition de comprendre un tant soit peu le code proposé.

[MrJack]

Bonjour MarcelG,

Merci pour votre réponse rapide!
Quelque chose m'échappe alors.
J'ai repris ce code, de travaux précédents, et pour lequel j'avais déjà sollicité l'aide de ce forum (https://www.developpez.net/forums/d1...mpte-doublons/).
Ce qui veut donc dire que ce dernier a le même soucis...mais je n'ai pas constaté de problème avec ce dernier.
J'ai, tout de même, le sentiment de comprendre, au moins dans la structure, la manière dont ce code fonctionne.

Et dans ce cas, pourquoi le problème ne se pose pas lors de mes tests sur 30lignes?


Merci d'avance.

[MarcelG]

Salut,

Tiens compte de ma remarque précédente.
Adapte ton code et procède à son exécution.
Est-il effectif?
Dans la négative, tu peux le retourner ici.

[MrJack]

Je viens de comprendre mon erreur, grâce à vous, la boucle For ne servait à rien...
Trop habitué à la voir, je n'y prêtais plus attention.

J'avais essayé en déclarant Derlig, mais c'est bien la boucle For le problème!

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
Sub Test_Garage()
 
 
Dim FL1 As Worksheet
Dim c As Range, Donnee1 As String
'Dim Derlig As Long
 
 
   Set FL1 = Worksheets("Données") 
 ' Derlig = FL1.Range("A65535").End(xlUp).Row
 
 
        Donnee1 = "Garage" 'ajouté
        With FL1.Range("a1:c" & FL1.Range("C65535").End(xlUp).Row) 'tu désignes ta plage de recherche
           Set c = .Find(Donnee1, LookIn:=xlValues)
 
        If Not c Is Nothing Then
         FirstAddress = c.Address
            Do
                FL1.Cells(c.Row, 4) = "Garage"
                Set c = .FindNext(c)
          Loop While Not c Is Nothing And c.Address <> FirstAddress
 
           ' Else
              ' FL1.Cells(Nolig, 4).Value = 0
            End If
 
            'Set c = Nothing
 
         End With
 
End Sub

Merci beaucoup pour vos indications!

Désormais, auriez-vous une piste pour faire cette même recherche sur plusieurs variables "garage", "essence", "automobile", etc. ?
Array, And, Tableau, Autres?

[MarcelG]

Salut,

Il te suffit de boucler sur un tableau à 1 dimension (Array)
Il pourrait être opportun de libérer les variables affectées à des objets après utilisation (valeur : Nothing)

En partant de ton code

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
Option Explicit
 
Sub Test_Garage()
 
Dim FL1 As Worksheet
Dim c As Range, Donnee1 As String
 
Set FL1 = Worksheets("Données")
 
For Each don In Array("Garage", "Essence")
        With FL1.Range("a1:c" & FL1.Range("C65535").End(xlUp).Row) '
                Set c = .Find(don, LookIn:=xlValues)
                If Not c Is Nothing Then
                        FirstAddress = c.Address
                        Do
                                FL1.Cells(c.Row, 4) = "Garage"
                                Set c = .FindNext(c)
                        Loop While Not c Is Nothing And c.Address <> FirstAddress
                End If
                Set c = Nothing
        End With
Next don
 
Set FL1 = Nothing
 
End Sub