Range avec colonnes variables

Version imprimable

Bonjour

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

Code:

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

si je le remplace par

Code:

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:

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

16/01/2017, 17h20
Menhir
Tu n'indiques pas à quelle feuille appartiennent les Cells.

Remplace ton code par :

Code:

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:

1 2 3 With Sheets("Données mensuelles") Set c = .Range(.Cells(45, Colonne), .Cells(1044, Colonne)).Find(CodeMarque, LookAt:=xlWhole) End With
16/01/2017, 17h23
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é.
16/01/2017, 17h39
unparia

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

Citation:

je bugue sur un

Code:

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)

Citation:

Envoyé par unparia

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:

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

16/01/2017, 17h56
Fvandermeulen

Citation:

Envoyé par unparia

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 :oops:

Citation:

Envoyé par Menhir

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

Remplace ton code par :

Code:

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:

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:

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