Discussion :

[michel13]

bojour,
j'ai une liste ( Menu Insertion / Nom / Definir ensuite dans liste de validation)
en A1 et je vaudrais que à chaque selection dans ma liste les couleurs de polices de la plage A2:A9 change.
merci

[fring]

Bonjour,

Il faut agir sur l'évènement Change de la feuille
Un truc du style

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
    MsgBox "coucou" '<-- là tu mets ce que tu veux obtenir lorsque la valeur de A1 change
End If
End Sub

Ce code doit être inséré dans l'objet Feuil et pas dans un module

[michel13]

bonsoir,
pour le changement dans A1 s'est bon,
dans ma liste j'ai 1, 2, 3, et 4 et je vaudrais que pour 1 la polices de la plage A2:A8 change en rouge ainsi que pour 2 en bleu 3 vert 4 rose ??
merci

[fring]

Je savais que tu allais posé la question, le code était déjà pret

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
    Range("A2:A9").Font.ColorIndex = Target.Value
End If
End Sub

[Abed_H]

Bonsoir à vous tous
Tu peux faire ca aussi avec la mise en forme conditionnelle, si tu a Excel 2007 tu peux aller au delà de trois conditions, voici la formule.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=SI($A$1=1;VRAI;FAUX) ' pour la couleur rouge

Exemple

Bonne soirée.

[Jean-Pierre49]

Bonjour,

Je dois avoir un problème
Chez moi
1 donne noir
2 donne blanc
3 donne rouge
4 donne vert

Pour moi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub Worksheet_Change(ByVal Target As Range)
 
    Dim Couleur As Byte
 
    If Target.Address = "$A$1" Then
        Select Case Target.Value
            Case 1
                Couleur = 1 ' rouge
            Case 2
                Couleur = 5 ' bleu
            Case 3
                Couleur = 4 ' vert
            Case Else
                Couleur = 7 ' rose
        End Select
        Range("A2:A9").Font.ColorIndex = Couleur
    End If
 
End Sub

Et la j’ai bien les couleurs demandé par michel13

Bonne journée

[michel13]

bonjour,
merci pour votre reponse j'ai mis le code en workbook mais ca ne marche pas.
merci.

[Jean-Pierre49]

Bonjour

C'est une procédure évenementielle a mettre ds ta feuille concernée.

De plus correction

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
       Case 1
                Couleur = 3 ' rouge

[michel13]

merci pour votre aide

[Jean-Pierre49]

résolu?

[michel13]

bonsoir,
problème resolu
merci

[AlainTech]

Si résolu, bouton , en bas de discussion.

Merci