complément sur code vba pour changement de couleur de cellule
2 réponses
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
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
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+
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
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+
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+
merci pour ton aide
a+
"isabelle" <as.isabellevIE@videotron.ca> a écrit dans le message de
news:3F7FFB13.203EA706@videotron.ca...
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
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