Boucle For à deux variables

Version imprimable

09/05/2019, 17h49
Mido54

Boucle For à deux variables
Bonjour à tous,

Toujours novice en VBA, je tente d'apprendre par moi même et je bloque sur quelque chose de pourtant très simple et ce n'est pas la première fois que ça m'arrive. Ne trouvant pas la réponse à ma question sur le net, je me tourne vers vous.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Dim i as integer dim k as integer For i = 2 To 2100 If Cells(i, 12) = "1" Then For k = 1 To 12 Cells(i, k).Interior.ColorIndex = 6 Next k Next i
Le but est de mettre en couleur les 12 premières colonnes en fonction d'un repère qui se trouve en colonne 12 (la colonne est composé de "1" qui est mon repère et de vide).

Pourquoi ai-je toujours le message "Erreur de compilation Next sans For" svp ? :oops::oops:

Bonjour.

il manque le end if.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim i as integer 
dim k as integer
 
For i = 2 To 2100
 
    If Cells(i, 12) = "1" Then
 
        For k = 1 To 12
 
            Cells(i, k).Interior.ColorIndex = 6
 
        Next k
    end if
Next i

Bonsoir,
Une mise en forme conditionnelle aurait fait l'affaire !

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim i as integer 
dim k as integer
 
For i = 2 To 2100
 
    If Cells(i, 12) = "1" Then
 
        'For k = 1 To 12
 
            Cells(Cells(i, 1),Cells(i, 12)).Interior.ColorIndex = 6
 
'        Next k
    end if
Next i

Bonsoir

Autres propositions (à étudier ;))

Code:

1
2
3
4
5
6
Sub A()
  Dim R As Range
  For Each R In [L2:L2100]
    If R = 1 Then Cells(R.Row, 1).Resize(1, 12).Interior.ColorIndex = 6
  Next
End Sub

Et sans boucle !

Code:

1
2
3
4
5
Sub B()
   [L1:L2101].AutoFilter 1, "1"
   [A2:L2100].Interior.ColorIndex = 6
   [L1].AutoFilter
End Sub

10/05/2019, 08h44
Mido54

Bonjour !

Merci beaucoup pour ces retours et conseils rapides !
10/05/2019, 08h53
Mido54

Citation:

Bonsoir,
Une mise en forme conditionnelle aurait fait l'affaire !

Oui je sais bien, mais la mise en forme conditionnelle était plus compliquée à coder (en tout cas pour moi :)) et d'autre part, je n'ai posé la question que sur cette partie du code, mais il s'agit d'un fichier de transformation d'une extraction d'un autre logiciel. L'idée est donc de répéter l'opération en partant d'un fichier vierge et que ce soit utilisable par des personnes sachant à peine faire une somme, donc pas de mise en forme conditionnelle manuelle :)