ah! ce chrisV....y a rien à faire : toujours aussi incomplet dans se réponses que je ne qualifierais pas de GE-NIALES moaaaaaaaaaaa! écoute-moi, cèd : une fois que tu es dans l'éditeur VB (où chris t'a donc envoyé à la limite du manu militari) et que tu as collé sa proc dans le module, tu cliques gauche quelque part à l'intérieur du texte de la Sub pour y positionner le trait qui bat comme le petit coeur d'une misange dans la froide nuit de vitry, puis tu cliques sur l'icône en forme de flèche bleue dirigée vers la droite (et c'est là où notre lakota n'a pas été bon car en matière de flèches, il s'y connaît) dont la bulle te dit "Exécuter Sub/Userform" et tu vas voir s'installer dans la feuille de ton classeur le beau travail de chris que, depuis, j'ai décidé d'appeler Sitting Rainbow... jps
Re Pfff...
Sitting Rainbow, très joli néanmoins !
;-)
ChrisV
"sabatier" <jpsabatdelaile@wanadoo.fr> a écrit dans le message de news:
40066F55.1080707@wanadoo.fr...
ah! ce chrisV....y a rien à faire : toujours aussi incomplet dans se
réponses que je ne qualifierais pas de GE-NIALES moaaaaaaaaaaa!
écoute-moi, cèd : une fois que tu es dans l'éditeur VB (où chris t'a
donc envoyé à la limite du manu militari) et que tu as collé sa proc
dans le module, tu cliques gauche quelque part à l'intérieur du texte de
la Sub pour y positionner le trait qui bat comme le petit coeur d'une
misange dans la froide nuit de vitry, puis tu cliques sur l'icône en
forme de flèche bleue dirigée vers la droite (et c'est là où notre
lakota n'a pas été bon car en matière de flèches, il s'y connaît) dont
la bulle te dit "Exécuter Sub/Userform" et tu vas voir s'installer dans
la feuille de ton classeur le beau travail de chris que, depuis, j'ai
décidé d'appeler Sitting Rainbow...
jps
ah! ce chrisV....y a rien à faire : toujours aussi incomplet dans se réponses que je ne qualifierais pas de GE-NIALES moaaaaaaaaaaa! écoute-moi, cèd : une fois que tu es dans l'éditeur VB (où chris t'a donc envoyé à la limite du manu militari) et que tu as collé sa proc dans le module, tu cliques gauche quelque part à l'intérieur du texte de la Sub pour y positionner le trait qui bat comme le petit coeur d'une misange dans la froide nuit de vitry, puis tu cliques sur l'icône en forme de flèche bleue dirigée vers la droite (et c'est là où notre lakota n'a pas été bon car en matière de flèches, il s'y connaît) dont la bulle te dit "Exécuter Sub/Userform" et tu vas voir s'installer dans la feuille de ton classeur le beau travail de chris que, depuis, j'ai décidé d'appeler Sitting Rainbow... jps
Laurent Guillot
Bonjour Chris,
"ChrisV" écrivait news::
Private Sub Worksheet_Change(ByVal Target As Range) Dim c As Range If Not Intersect(Target.Cells, Range("Zn")) Is Nothing Then
For Each c In Target Select Case c.Value Case "p1": c.Font.ColorIndex = 3 Case "b2": c.Font.ColorIndex = 2 Case "c3": c.Font.ColorIndex = 4 Case "f4": c.Font.ColorIndex = 23 Case "g5": c.Font.ColorIndex = 13 Case "k6": c.Font.ColorIndex = 9 Case "m9": c.Font.ColorIndex = 5 Case Else: c.Font.ColorIndex = xlAutomatic End Select Next End If End Sub
et si je souhaite obtenir la même couleur pour plusieurs valeurs je mets quoi après Case ?
Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
If Not Intersect(Target.Cells, Range("Zn")) Is Nothing
Then
For Each c In Target
Select Case c.Value
Case "p1": c.Font.ColorIndex = 3
Case "b2": c.Font.ColorIndex = 2
Case "c3": c.Font.ColorIndex = 4
Case "f4": c.Font.ColorIndex = 23
Case "g5": c.Font.ColorIndex = 13
Case "k6": c.Font.ColorIndex = 9
Case "m9": c.Font.ColorIndex = 5
Case Else: c.Font.ColorIndex = xlAutomatic
End Select
Next
End If
End Sub
et si je souhaite obtenir la même couleur pour plusieurs valeurs je mets
quoi après Case ?
Private Sub Worksheet_Change(ByVal Target As Range) Dim c As Range If Not Intersect(Target.Cells, Range("Zn")) Is Nothing Then
For Each c In Target Select Case c.Value Case "p1": c.Font.ColorIndex = 3 Case "b2": c.Font.ColorIndex = 2 Case "c3": c.Font.ColorIndex = 4 Case "f4": c.Font.ColorIndex = 23 Case "g5": c.Font.ColorIndex = 13 Case "k6": c.Font.ColorIndex = 9 Case "m9": c.Font.ColorIndex = 5 Case Else: c.Font.ColorIndex = xlAutomatic End Select Next End If End Sub
et si je souhaite obtenir la même couleur pour plusieurs valeurs je mets quoi après Case ?
Merci
-- Laurent
ChrisV
Re,
Private Sub Worksheet_Change(ByVal Target As Range) Dim c As Range If Not Intersect(Target.Cells, Range("Zn")) Is Nothing Then For Each c In Target Select Case c.Value Case "b2" To "c3": c.Font.ColorIndex = 3 Case "f4" To "g5": c.Font.ColorIndex = 4 Case "k6" To "m9": c.Font.ColorIndex = 13 Case Else: c.Font.ColorIndex = xlAutomatic End Select Next End If End Sub
ChrisV
"Laurent Guillot" a écrit dans le message de news:
et si je souhaite obtenir la même couleur pour plusieurs valeurs je mets quoi après Case ?
Merci
-- Laurent
Re,
Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
If Not Intersect(Target.Cells, Range("Zn")) Is Nothing Then
For Each c In Target
Select Case c.Value
Case "b2" To "c3": c.Font.ColorIndex = 3
Case "f4" To "g5": c.Font.ColorIndex = 4
Case "k6" To "m9": c.Font.ColorIndex = 13
Case Else: c.Font.ColorIndex = xlAutomatic
End Select
Next
End If
End Sub
ChrisV
"Laurent Guillot" <l.guillot@s-n-c-f.fr> a écrit dans le message de news:
XnF9471A8BFC2B12541078@10.17.30.9...
et si je souhaite obtenir la même couleur pour plusieurs valeurs je mets
quoi après Case ?
Private Sub Worksheet_Change(ByVal Target As Range) Dim c As Range If Not Intersect(Target.Cells, Range("Zn")) Is Nothing Then For Each c In Target Select Case c.Value Case "b2" To "c3": c.Font.ColorIndex = 3 Case "f4" To "g5": c.Font.ColorIndex = 4 Case "k6" To "m9": c.Font.ColorIndex = 13 Case Else: c.Font.ColorIndex = xlAutomatic End Select Next End If End Sub
ChrisV
"Laurent Guillot" a écrit dans le message de news:
et si je souhaite obtenir la même couleur pour plusieurs valeurs je mets quoi après Case ?
