Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel couleur contre texte

couleur contre texte

2 réponses
Avatar
milletcourses
Bonjour,
comment je peux changer dans ce petit prog les couleur, pour mettre à la
place du texte, exemple à la place du orange :CP, à la place du vert :MAL
etc
d'avance un grand merci (j'ai trouve ce petit bout de code dans le planning
vediorbis qui est tres bien)


Private Sub Workbook_Open()
Dim l As Integer

Worksheets("Collaborateurs").Activate

'initialisation des couleurs
ActiveWorkbook.Colors(1) = RGB(255, 223, 0) 'Orange
ActiveWorkbook.Colors(2) = RGB(51, 153, 102) 'Vert
ActiveWorkbook.Colors(3) = RGB(255, 0, 0) 'Rouge
' modification de la couleur des lignes impaires le 16/08/04
'ActiveWorkbook.Colors(4) = RGB(255, 255, 153) 'Jaune clair
ActiveWorkbook.Colors(4) = RGB(191, 212, 230) 'bleu
ActiveWorkbook.Colors(5) = RGB(255, 222, 0) 'Jaune
ActiveWorkbook.Colors(6) = RGB(0, 146, 221) 'bleu foncé
ActiveWorkbook.Colors(7) = RGB(153, 204, 255) 'bleu clair
ActiveWorkbook.Colors(8) = RGB(255, 255, 255) 'blanc
ActiveWorkbook.Colors(9) = RGB(96, 36, 78)


'Worksheets(1).Cells(11, 1).Font.Color = RGB(96, 36, 78)
'Worksheets(1).Cells(14, 1).Font.Color = RGB(96, 36, 78)
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Daniel
Bonsoir.
Si j'ai bien compris :

Option Base 1
Sub test()
Dim Texte(9) As String
Texte(1) = "CP"
Texte(2) = "MAL"
'...jusqu'à 9
'exemple d'utilisation :
[A1] = Texte(2)
End Sub

Cordialement.
Daniel
"milletcourses" a écrit dans le message de news:

Bonjour,
comment je peux changer dans ce petit prog les couleur, pour mettre à la
place du texte, exemple à la place du orange :CP, à la place du vert :MAL
etc
d'avance un grand merci (j'ai trouve ce petit bout de code dans le
planning vediorbis qui est tres bien)


Private Sub Workbook_Open()
Dim l As Integer

Worksheets("Collaborateurs").Activate

'initialisation des couleurs
ActiveWorkbook.Colors(1) = RGB(255, 223, 0) 'Orange
ActiveWorkbook.Colors(2) = RGB(51, 153, 102) 'Vert
ActiveWorkbook.Colors(3) = RGB(255, 0, 0) 'Rouge
' modification de la couleur des lignes impaires le 16/08/04
'ActiveWorkbook.Colors(4) = RGB(255, 255, 153) 'Jaune clair
ActiveWorkbook.Colors(4) = RGB(191, 212, 230) 'bleu
ActiveWorkbook.Colors(5) = RGB(255, 222, 0) 'Jaune
ActiveWorkbook.Colors(6) = RGB(0, 146, 221) 'bleu foncé
ActiveWorkbook.Colors(7) = RGB(153, 204, 255) 'bleu clair
ActiveWorkbook.Colors(8) = RGB(255, 255, 255) 'blanc
ActiveWorkbook.Colors(9) = RGB(96, 36, 78)


'Worksheets(1).Cells(11, 1).Font.Color = RGB(96, 36, 78)
'Worksheets(1).Cells(14, 1).Font.Color = RGB(96, 36, 78)



Avatar
rdt83
merci beaucoup (un peu tard j'etais absent)

"Daniel" a écrit dans le message de news:
%23fc$%
Bonsoir.
Si j'ai bien compris :

Option Base 1
Sub test()
Dim Texte(9) As String
Texte(1) = "CP"
Texte(2) = "MAL"
'...jusqu'à 9
'exemple d'utilisation :
[A1] = Texte(2)
End Sub

Cordialement.
Daniel
"milletcourses" a écrit dans le message de news:

Bonjour,
comment je peux changer dans ce petit prog les couleur, pour mettre à la
place du texte, exemple à la place du orange :CP, à la place du vert :MAL
etc
d'avance un grand merci (j'ai trouve ce petit bout de code dans le
planning vediorbis qui est tres bien)


Private Sub Workbook_Open()
Dim l As Integer

Worksheets("Collaborateurs").Activate

'initialisation des couleurs
ActiveWorkbook.Colors(1) = RGB(255, 223, 0) 'Orange
ActiveWorkbook.Colors(2) = RGB(51, 153, 102) 'Vert
ActiveWorkbook.Colors(3) = RGB(255, 0, 0) 'Rouge
' modification de la couleur des lignes impaires le 16/08/04
'ActiveWorkbook.Colors(4) = RGB(255, 255, 153) 'Jaune clair
ActiveWorkbook.Colors(4) = RGB(191, 212, 230) 'bleu
ActiveWorkbook.Colors(5) = RGB(255, 222, 0) 'Jaune
ActiveWorkbook.Colors(6) = RGB(0, 146, 221) 'bleu foncé
ActiveWorkbook.Colors(7) = RGB(153, 204, 255) 'bleu clair
ActiveWorkbook.Colors(8) = RGB(255, 255, 255) 'blanc
ActiveWorkbook.Colors(9) = RGB(96, 36, 78)


'Worksheets(1).Cells(11, 1).Font.Color = RGB(96, 36, 78)
'Worksheets(1).Cells(14, 1).Font.Color = RGB(96, 36, 78)