Format conditionnel 7 conditions

Le
torispora
Bonjour, Bonsoir,

je cherche un format conditionnel pour plus de 7 valeurs
exemple

A bleu
B vert
etc..

je ne suis pas un spécialiste VBA

merci de votre aide
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
JB
Le #4596611
Bonsoir,

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [MonChamp]) Is Nothing And Target.Count = 1
Then
If Target <> "" Then
Target.Interior.ColorIndex = Range("ListeCouleurs")
(Application.Match(Target, [listeCouleurs], 0)).Interior.ColorIndex
Else
Target.Interior.ColorIndex = xlNone
End If
End If
End Sub

http://cjoint.com/?gzwsRDuy6r

JB

On 25 juin, 22:02, "torispora"
Bonjour, Bonsoir,

je cherche un format conditionnel pour plus de 7 valeurs
exemple

A bleu
B vert
etc..

je ne suis pas un spécialiste VBA

merci de votre aide


torispora
Le #4596151
Bonjour,

merci, en particulier pour l'exemple joint, c'est parfait.

"JB"
Bonsoir,

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [MonChamp]) Is Nothing And Target.Count = 1
Then
If Target <> "" Then
Target.Interior.ColorIndex = Range("ListeCouleurs")
(Application.Match(Target, [listeCouleurs], 0)).Interior.ColorIndex
Else
Target.Interior.ColorIndex = xlNone
End If
End If
End Sub

http://cjoint.com/?gzwsRDuy6r

JB

On 25 juin, 22:02, "torispora"
Bonjour, Bonsoir,

je cherche un format conditionnel pour plus de 7 valeurs
exemple

A bleu
B vert
etc..

je ne suis pas un spécialiste VBA

merci de votre aide


torispora
Le #4596081
Bonsoir

enfin c'était presque parfait ..

comme dit précédemment je ne suis pas spécialiste (du tout) en VB.
J'ai créé les noms, j'ai recopié la macro dans le fichier correspondant,
dans une feuille VB qui ressemble beaucoup à l'exempel mais je n'ai pas le
truc pour la faire "démarrer".

Qu'est-ce que j'ai bien pu oublier ?

Merci

"torispora" uKQC7r$
Bonjour,

merci, en particulier pour l'exemple joint, c'est parfait.

"JB"
Bonsoir,

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [MonChamp]) Is Nothing And Target.Count = 1
Then
If Target <> "" Then
Target.Interior.ColorIndex = Range("ListeCouleurs")
(Application.Match(Target, [listeCouleurs], 0)).Interior.ColorIndex
Else
Target.Interior.ColorIndex = xlNone
End If
End If
End Sub

http://cjoint.com/?gzwsRDuy6r

JB

On 25 juin, 22:02, "torispora"
Bonjour, Bonsoir,

je cherche un format conditionnel pour plus de 7 valeurs
exemple

A bleu
B vert
etc..

je ne suis pas un spécialiste VBA

merci de votre aide







JB
Le #4596021
Bonsoir,

1- Avec Insertion/Nom/Définir, nommer le champ avec les lettres et les
couleurs:ListeCouleurs
(cette liste peut être sur un autre onglet)

2- Nommer le champ où doit s'appliquer la mise en forme: MonChamp

3- Clic-droit sur l'onglet puis Visualiser le code

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [MonChamp]) Is Nothing And Target.Count = 1
Then
If Target <> "" Then
Target.Interior.ColorIndex = Range("ListeCouleurs")
(Application.Match(Target, [listeCouleurs], 0)).Interior.ColorIndex
Else
Target.Interior.ColorIndex = xlNone
End If
End If
End Sub

http://cjoint.com/?gAuyk7UZUJ

JB
On 26 juin, 18:06, "torispora"
Bonsoir

enfin c'était presque parfait ..

comme dit précédemment je ne suis pas spécialiste (du tout) en VB.
J'ai créé les noms, j'ai recopié la macro dans le fichier correspon dant,
dans une feuille VB qui ressemble beaucoup à l'exempel mais je n'ai pas le
truc pour la faire "démarrer".

Qu'est-ce que j'ai bien pu oublier ?

Merci

"torispora" uKQC7r$



Bonjour,

merci, en particulier pour l'exemple joint, c'est parfait.

"JB"
Bonsoir,

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [MonChamp]) Is Nothing And Target.Count = 1
Then
If Target <> "" Then
Target.Interior.ColorIndex = Range("ListeCouleurs")
(Application.Match(Target, [listeCouleurs], 0)).Interior.ColorIndex
Else
Target.Interior.ColorIndex = xlNone
End If
End If
End Sub

http://cjoint.com/?gzwsRDuy6r

JB

On 25 juin, 22:02, "torispora"
Bonjour, Bonsoir,

je cherche un format conditionnel pour plus de 7 valeurs
exemple

A bleu
B vert
etc..

je ne suis pas un spécialiste VBA

merci de votre aide- Masquer le texte des messages précédents -



- Afficher le texte des messages précédents -




Publicité
Poster une réponse
Anonyme