Discussion :

[Mido54]

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 :

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

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 ?

[marot_r]

Bonjour.

il manque le end if.

Code :

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

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

[Invité]

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

Code :

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

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

[OrDonc]

Bonsoir

Autres propositions (à étudier )

Code :

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

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 :

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

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

[Mido54]

Bonjour !

Merci beaucoup pour ces retours et conseils rapides !

[Mido54]

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