Bonjour,

Je suhaiterais faire un format conditionnel via VBA et ne parvient pas a faire donctionner mon code.
J'ai une table dans laquelle je souhaite faire une boucle pour balayer toute la table en ligne et en colonne.
pour chaque ligne , je souhaite colorer les 25 cellules suivante sur la même ligne si une cellule est égale à 50

Voici le code que j'ai fait, mais je n'arrive pas a rentrer dans la dernière boucle for...

Auriez vous des conseils?
Si il est possible de faire cette mise en forme via la "mise en forme conditionnelle" je suis aussi interessée.

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
17
18
19
20
21
22
23
24
25
26
27
28
Sub Essai_MiseEnForme()
 
Dim FinLigne As Integer
Dim FinColonne As Integer
'i=row
'j=column
 
FinLigne = Cells(3, 4).End(xlToRight).Column
FinColonne = Cells(4, 2).End(xlDown).Row
 
 
For i = 4 To FinLigne
 
    For j = 4 To FinColonne
 
        If Cells(i, j) = 50 Then
        'k = increment pour colorer
            For k = j + 1 To k = j + 25 'ici je n'arrive pas a entrer dans la boucle for
            Cells(i, k).Font.ColorIndex = 41
 
            Next
 
        End If
 
    Next
Next
 
End Sub
Merci beaucoup