Discussion :

[calvi2002]

Bonjour,
j'essai de faire un macro pour rajouter une couleur sur un range mais j'arrive pas.
j'ai rajouté une couleur sur une ligne à partir d'une cellule:

Code :

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

1
2
3
Function ajout_couleur_ligne(num_couleur)
ActiveSheet.Rows(ActiveCell.Row).EntireRow.Interior.ColorIndex = num_couleur
End Function

une couleur sur une colonne à partir d'une cellule mais j'arrive pas pour plusieurs cellule.
l'idée que j'ai c'est de prendre 2 variable:

Code :

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

1
2
3
4
5
6
7
Sub ajout_couleur_bloc()
x = ActiveCell.Rows
y = ActiveCell.Columns
 
Range("x:y").Interior.ColorIndex = 8
 
End Sub

si quelq'un me pourrais dirigée sur la bonnne piste.
merci d'avance

[Krovax]

premièrement les active cell et les select c'est pas top mais bon je ne connais pas ton code il sont peut être judicieux.
essaye

Code :

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

ActiveCell.EntireColumn.Interior.ColorIndex =

[calvi2002]

c'est bon j'ai trouvé:

Code :

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

1
2
3
Function ajout_couleur_bloc(num_couleur)
Selection.Interior.ColorIndex = num_couleur
End Function

Comme ça on peut rajout' ne n° de la couleur qu'on veut.
merci