Discussion :

[lulu85]

Bonjour

J'ai une macro qui boucler sur des colonnes
je bugue sur un

Code :

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

Set c =  Sheets("Données mensuelles").Range(Cells(45, Colonne), Cells(1044, Colonne)).Find(CodeMarque, LookAt:=xlWhole)

si je le remplace par

Code :

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

Set c = Sheets("Données mensuelles").Range("BH45:BH1044").Find(CodeMarque, LookAt:=xlWhole)

ça fonctionne mais mon numéro de colonne doit être variable...

vue plus large du 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
For Colonne = ColonneCodeMarqueDeb To ColonneCodeMarqueFin Step 70
 
        Set c =  Sheets("Données mensuelles").Range(Cells(45, Colonne), Cells(1044, Colonne)).Find(CodeMarque, LookAt:=xlWhole)
 
        If Not c Is Nothing Then
               FirstAddress = c.Address
               Do
                      ....
 
 
                      Set c = Sheets("Données mensuelles").Range("BH45:BH1044").FindNext(c)
 
                Loop While Not c Is Nothing And c.Address <> FirstAddress
        End If
 
Next Colonne

Si vous avez une solution, je vous en remercie d'avance

[Menhir]

Tu n'indiques pas à quelle feuille appartiennent les Cells.

Remplace ton code par :

Code :

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

Set c =  Sheets("Données mensuelles").Range(Sheets("Données mensuelles").Cells(45, Colonne), Sheets("Données mensuelles").Cells(1044, Colonne)).Find(CodeMarque, LookAt:=xlWhole)

Mais il serait plus propre d'écrire :

Code :

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

1
2
3
With Sheets("Données mensuelles")
   Set c =  .Range(.Cells(45, Colonne), .Cells(1044, Colonne)).Find(CodeMarque, LookAt:=xlWhole) 
End With

[Fvandermeulen]

Bonjour,

A première vue la syntaxe est bonne, il faut donc probablement chercher du côté des valeurs (ColonneCodeMarqueDeb, ColonneCodeMarqueFin et donc Colonne)

En faisant un pas à pas le problème devrait facilement être identifié.

[unparia]

Bonjour Fvandermeulen
C'est là, que le demandeur cherche la raison d'un bug

je bugue sur un

Code :

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

Set c = Sheets("Données mensuelles").Range(Cells(45, Colonne), Cells(1044, Colonne)).Find(CodeMarque, LookAt:=xlWhole)

Et comme le précise clairement Menhir, que je salue : il y aura bug si la feuille active au moment de l'exécution de cette ligne de code n'est pas la feuille "Données Mensuelles"

La notation Range et la notation Cells sont des notations distinctes d'un objet Range. La seconde impose la spécification de la feuille (si elle n'est pas celle active)

[Menhir]

il y aura bug si la feuille active au moment de l'exécution de cette ligne de code n'est pas la feuille "Données Mensuelles"

Si c'était le cas, le Sheets("Données mensuelles") avant le Range serait inutile.
Donc la nécessité de le mettre aussi devant les Cells semble logique.

Il y aurait une autre solution :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim CurRange As Range
 
Set c =  Sheets("Données mensuelles").Range("A45:A1044").Offset(0, ColonneCodeMarqueDeb - 1)
 
While CurRange.Column <= ColonneCodeMarqueFin
        Set c =  CurRange.Find(CodeMarque, LookAt:=xlWhole)
 
        If Not c Is Nothing Then
            ...
        End If
 
        Set CurRange = CurRange.Offset(0, 70)
Wend

[Fvandermeulen]

Bonjour Fvandermeulen
C'est là, que le demandeur cherche la raison d'un bug

Et comme le précise clairement Menhir, que je salue : il y aura bug si la feuille active au moment de l'exécution de cette ligne de code n'est pas la feuille "Données Mensuelles"

La notation Range et la notation Cells sont des notations distinctes d'un objet Range. La seconde impose la spécification de la feuille (si elle n'est pas celle active)

En effet, je n'ai pas été attentif...désolé pour la pollution du post

[lulu85]

Tu n'indiques pas à quelle feuille appartiennent les Cells.

Remplace ton code par :

Code :

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

Set c =  Sheets("Données mensuelles").Range(Sheets("Données mensuelles").Cells(45, Colonne), Sheets("Données mensuelles").Cells(1044, Colonne)).Find(CodeMarque, LookAt:=xlWhole)

Mais il serait plus propre d'écrire :

Code :

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

1
2
3
With Sheets("Données mensuelles")
   Set c =  .Range(.Cells(45, Colonne), .Cells(1044, Colonne)).Find(CodeMarque, LookAt:=xlWhole) 
End With

Merci beaucoup Menhir,
tu as solutionné mon pb, je manquais clairement de recul

le bon code (en effet l'idée est de ne pas activer la feuille "Données mensuelles"

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
For Colonne = ColonneCodeMarqueDeb To ColonneCodeMarqueFin Step 70
 
                With Sheets("Données mensuelles")
                    Set c = .Range(.Cells(45, Colonne), .Cells(1044, Colonne)).Find(CodeMarque, LookAt:=xlWhole)
 
                    If Not c Is Nothing Then
                        FirstAddress = c.Address
                        Do
                            ...
                            Set c = .Range(.Cells(45, Colonne), .Cells(1044, Colonne)).FindNext(c)
                        Loop While Not c Is Nothing And c.Address <> FirstAddress
                    End If
                End With
 Next Colonne