Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
Sub Change_Couleurs(Plage As Range)
Dim Cel As Range
For Each Cel In Plage
With Cel
Select Case .Value
'test en cas de cellule vide :
Case ""
.Interior.ColorIndex = Violet
.Interior.ColorIndex = Vert
Case 11 To 20
.Interior.ColorIndex = Jaune
Case 21 To 30
.Interior.ColorIndex = Rouge
Case 31 To 40
.Interior.ColorIndex = Bleu
End Select
End With
Next Cel
End Sub
Sub Test_Couleur()
Change_Couleurs Range("A1:C10")
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Case "ZAZA"
With Selection.Interior
.ColorIndex = 7
.Pattern = xlSolid
End With
Case "ZEZETTE"
With Selection.Interior
.ColorIndex = 8
.Pattern = xlSolid
End With
Case "JEAN-PAUL"
With Selection.Interior
.ColorIndex = 3
.Pattern = xlSolid
End With
Case "PAUL"
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
End Select
Ce site utilise des cookies pour personnaliser le contenu, adapter votre expérience et vous garder connecté si vous vous enregistrez.
En continuant à utiliser ce site, vous consentez à notre utilisation de cookies.