Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Couleurs police de caractere + fond de cellule

Couleurs police de caractere + fond de cellule

3 réponses
Avatar
clyver
Salut j'ai un code pour mettre de la couleur sur une cellule mais je
n'arrive pas a mettre la condition sur la couleur de police...


merci de votre aide...

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("$AZ$6:$AZ$53")) Is Nothing
Then 'Plage =E0 modifie

Select Case Target.Value
Case Is =3D ""
Target.Interior.ColorIndex =3D 2
Case Is =3D "Lundi"
Target.Interior.ColorIndex =3D 36
Case Is =3D "Mardi"
Target.Interior.ColorIndex =3D 35
Case Is =3D "Mercredi"
Target.Interior.ColorIndex =3D 37
Case Is =3D "Jeudi"
Target.Interior.ColorIndex =3D 38
Case Is =3D "Vendredi"
Target.Interior.ColorIndex =3D 48

End Select
End If
End Sub


Franck.
Signaler un problème avec ce contenu

3 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
JB
Bonjour,


Target.Font.ColorIndex = 2

Cordialement JB
Avatar
clyver
merci tu s tjrs la pour moi

hihihi

c cool de t'as part


ABi1To Franck de Grenoble
Avatar
Clément Marcotte
Sé tu sa le feransès quilles parle dans l'iguelou de Morisse Dru(c)on ?

"clyver" a écrit dans le message de news:

merci tu s tjrs la pour moi

hihihi

c cool de t'as part


ABi1To Franck de Grenoble