Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel complément sur code vba pour changement de couleur de cellule

complément sur code vba pour changement de couleur de cellule

2 réponses
Avatar
gib
Bonjour,
j'ai le code vba suivant pour avoirune cellule differente couleur suivant la
saisie
Par contre lorsque j'ai 0 ou lorsque j'enleve l'ancienne valeur pour mettre
la valeur de la cellule à "vide" , je n'arrive pas avoir ma cellule sans
couleur
elle garde la couleur précedente.
j'ai essayé de modifier avec cela mais ca matche pas :

Case " "
CELL.Interior.ColorIndex = 4
End Select


Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
For Each CELL In Target
Select Case CELL.Value

Case "1"
CELL.Interior.ColorIndex = 3
Case "2"
CELL.Interior.ColorIndex = 4
Case "3"
CELL.Interior.ColorIndex = 5
Case "4"
CELL.Interior.ColorIndex = 12
Case "5"
CELL.Interior.ColorIndex = 7
Case "6"
CELL.Interior.ColorIndex = 8
Case "7"
CELL.Interior.ColorIndex = 9
Case "8"
CELL.Interior.ColorIndex = 10
Case "9"
CELL.Interior.ColorIndex = 22
Case "10"
CELL.Interior.ColorIndex = 24
Case "11"
CELL.Interior.ColorIndex = 38
Case "12"
CELL.Interior.ColorIndex = 48
Case "13"
CELL.Interior.ColorIndex = 53
Case "14"
CELL.Interior.ColorIndex = 44
Next
End Sub


merci pour votre aide

a+
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
isabelle
Bonjour Gib,

Case Empty
CELL.Interior.ColorIndex = xlNone

n'oublie pas de mettre End Select avant Next

isabelle


Bonjour,
j'ai le code vba suivant pour avoirune cellule differente couleur suivant la
saisie
Par contre lorsque j'ai 0 ou lorsque j'enleve l'ancienne valeur pour mettre
la valeur de la cellule à "vide" , je n'arrive pas avoir ma cellule sans
couleur
elle garde la couleur précedente.
j'ai essayé de modifier avec cela mais ca matche pas :

Case " "
CELL.Interior.ColorIndex = 4
End Select

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
For Each CELL In Target
Select Case CELL.Value

Case "1"
CELL.Interior.ColorIndex = 3
Case "2"
CELL.Interior.ColorIndex = 4
Case "3"
CELL.Interior.ColorIndex = 5
Case "4"
CELL.Interior.ColorIndex = 12
Case "5"
CELL.Interior.ColorIndex = 7
Case "6"
CELL.Interior.ColorIndex = 8
Case "7"
CELL.Interior.ColorIndex = 9
Case "8"
CELL.Interior.ColorIndex = 10
Case "9"
CELL.Interior.ColorIndex = 22
Case "10"
CELL.Interior.ColorIndex = 24
Case "11"
CELL.Interior.ColorIndex = 38
Case "12"
CELL.Interior.ColorIndex = 48
Case "13"
CELL.Interior.ColorIndex = 53
Case "14"
CELL.Interior.ColorIndex = 44
Next
End Sub

merci pour votre aide

a+


Avatar
gib
merci pour ton aide
a+


"isabelle" a écrit dans le message de
news:
Bonjour Gib,

Case Empty
CELL.Interior.ColorIndex = xlNone

n'oublie pas de mettre End Select avant Next

isabelle


Bonjour,
j'ai le code vba suivant pour avoirune cellule differente couleur
suivant la


saisie
Par contre lorsque j'ai 0 ou lorsque j'enleve l'ancienne valeur pour
mettre


la valeur de la cellule à "vide" , je n'arrive pas avoir ma cellule sans
couleur
elle garde la couleur précedente.
j'ai essayé de modifier avec cela mais ca matche pas :

Case " "
CELL.Interior.ColorIndex = 4
End Select

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As
Range)


For Each CELL In Target
Select Case CELL.Value

Case "1"
CELL.Interior.ColorIndex = 3
Case "2"
CELL.Interior.ColorIndex = 4
Case "3"
CELL.Interior.ColorIndex = 5
Case "4"
CELL.Interior.ColorIndex = 12
Case "5"
CELL.Interior.ColorIndex = 7
Case "6"
CELL.Interior.ColorIndex = 8
Case "7"
CELL.Interior.ColorIndex = 9
Case "8"
CELL.Interior.ColorIndex = 10
Case "9"
CELL.Interior.ColorIndex = 22
Case "10"
CELL.Interior.ColorIndex = 24
Case "11"
CELL.Interior.ColorIndex = 38
Case "12"
CELL.Interior.ColorIndex = 48
Case "13"
CELL.Interior.ColorIndex = 53
Case "14"
CELL.Interior.ColorIndex = 44
Next
End Sub

merci pour votre aide

a+