Problème avec boucle for VBA excel Résolu/Fermé

Question

Bonjour,
Je veux faire une boucle For sous VBA sur excel, c'est un peu compliqué a expliquer, mon problème est que mon code marche pour pour le premier cas mais c'est comme si la boucle ne s'incrémentais pas car ça marche pas pour les autre. voilà ce que j'ai écris :

Sub Tableau1()

For i = 5 To 17
    For k = 1 To 7
         If Cells(i, 2) = k Then
            Sheets("Feuil1").Select
            Cells(11 + i, 2 + k).Select
            With Selection.Interior
                .Color = RGB(221, 221, 221)
            End With
            Selection.Font.Bold = True
            Selection.Font.ColorIndex = 16
        End If
    Next k
Next i

End Sub

Je veux juste savoir si il y a qqch de choquant la dedans et si c'est normal que ça marche pas...

Merci

michel_m · Answer

Bonjour,

tu ne retournes pas sur ta feuille de départ
Je te proposerai un truc d'ici quelques minutes...

michel_m · Answer

comme promis...
For i = 5 To 17
    For k = 1 To 7
        If Cells(i, 2) = k Then
            With Sheets("Feuil1").Cells(11 + i, 2 + k)
                .Interior.Color = RGB(221, 221, 221)
                 .Font.Bold = True
                .Font.ColorIndex = 16
            End With
        End If
    Next k
Next i