Discussion :

[Maiden002]

Bonjour,

désolé de redéranger pour une question aussi bête, mais je c'est comment faire pour colorier a l'interieur d'une cellule mais je ne sais pas comment colorier un texte.

Pour le moment j'ai fais sa :

Code :

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

1
2
Range("I" & i).Interior.Color = RGB(255, 0, 0)
          Range("I" & i).Borders.LineStyle = xlContinuous

Par contre pour la couleur, la j'ai mi du rouge avec RGB(255, 0, 0) mais comment faire du gris ?

Merci a vous


Krovax ...

[Krovax]

L'enregistreur de macro regrde ce qu'il te dit

Code :

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

Range("A1").Font.ColorIndex = 3

Personnellement je préfère le color index que le format rgb pour les couleur

Une macro a lancer sur une feuille vierge pour avoir les corespondance couleur/valeur

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub Macro12()
Dim i As Integer
On Error GoTo fin::
For i = 1 To 500
Cells(i, 1) = i
Cells(i, 1).Interior.ColorIndex = i
Next i
fin::
MsgBox "ca va jusqu'à " & i-1
End Sub

J'utilise la gestion d'erreur car j'oublie toujours la valeur max

[Maiden002]

Merci krovax , la couleur grise est donc le numero 48

Code :

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

Range("I" & i).Interior.ColorIndex = 48

Encore merci j'espére que je ne te dérange pas a chaque fois