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