a partir d'un tableau de valeurs par d=E9partement comment=20
faire une repr=E9sentation color=E9e par d=E9partement de ces=20
valeurs de type de 0 =E0 1000 en rouge=20
de 1000 =E0 2000 en bleu
ETC..
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
...Patrick
Clic droit sur le nom de l'onglet , code et coller ceci (adapter les couleur et la zone)
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) If Not Intersect(Target.Cells(1), Range("A1:AF7")) Is Nothing Then Select Case Target.Value Case "1000" Target.Interior.ColorIndex = 3 Case "2000" Target.Interior.ColorIndex = 20 Case "3000" Target.Interior.ColorIndex = 30 Case "4000" Target.Interior.ColorIndex = 40 Case "5000" Target.Interior.ColorIndex = 25 End Select End If End Sub
...Patrick
a écrit dans le message de news:6c1701c48399$967dac70$ a partir d'un tableau de valeurs par département comment faire une représentation colorée par département de ces valeurs de type de 0 à 1000 en rouge de 1000 à 2000 en bleu ETC..
Merci
Clic droit sur le nom de l'onglet , code et coller ceci (adapter les couleur
et la zone)
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Not Intersect(Target.Cells(1), Range("A1:AF7")) Is Nothing Then
Select Case Target.Value
Case "1000"
Target.Interior.ColorIndex = 3
Case "2000"
Target.Interior.ColorIndex = 20
Case "3000"
Target.Interior.ColorIndex = 30
Case "4000"
Target.Interior.ColorIndex = 40
Case "5000"
Target.Interior.ColorIndex = 25
End Select
End If
End Sub
...Patrick
<anonymous@discussions.microsoft.com> a écrit dans le message de
news:6c1701c48399$967dac70$a501280a@phx.gbl...
a partir d'un tableau de valeurs par département comment
faire une représentation colorée par département de ces
valeurs de type de 0 à 1000 en rouge
de 1000 à 2000 en bleu
ETC..
Clic droit sur le nom de l'onglet , code et coller ceci (adapter les couleur et la zone)
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) If Not Intersect(Target.Cells(1), Range("A1:AF7")) Is Nothing Then Select Case Target.Value Case "1000" Target.Interior.ColorIndex = 3 Case "2000" Target.Interior.ColorIndex = 20 Case "3000" Target.Interior.ColorIndex = 30 Case "4000" Target.Interior.ColorIndex = 40 Case "5000" Target.Interior.ColorIndex = 25 End Select End If End Sub
...Patrick
a écrit dans le message de news:6c1701c48399$967dac70$ a partir d'un tableau de valeurs par département comment faire une représentation colorée par département de ces valeurs de type de 0 à 1000 en rouge de 1000 à 2000 en bleu ETC..
