Bonsoir,
J'ai encore une petite question concernant mes mini programme!

Écrire une macro « colorier_rouge » qui demande à l’utilisateur une valeur entière N puis qui colore à partir de la cellule A1, le carré de coté N en rouge.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
 
Sub colorier_rouge()
 
N = InputBox("Tapez une valeur entière", "Colorier")
 
For Each c In Range("A1:E5") 'J'ai mis E5 car je ne sais pas comment faire,
' prenons l'exemple que je rentre 5 le carré en question devrai couvrir
 'la zone de A1 à E5 mais comment le noter? 
i = i + 1
c.Interior.ColorIndex = 3
Next
 
End Sub
Je vous remercie d'avance pour votre aide.

Cordialement