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
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" wrote:
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
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" <torisp...@alussinan.org> wrote:
Bonjour, Bonsoir,
je cherche un format conditionnel pour plus de 7 valeurs
exemple
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" wrote:
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
Bonjour,
merci, en particulier pour l'exemple joint, c'est parfait.
"JB" a écrit dans le message de news:
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" wrote:
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
Bonjour,
merci, en particulier pour l'exemple joint, c'est parfait.
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
1182802746.148739.214990@n60g2000hse.googlegroups.com...
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" <torisp...@alussinan.org> wrote:
Bonjour, Bonsoir,
je cherche un format conditionnel pour plus de 7 valeurs
exemple
merci, en particulier pour l'exemple joint, c'est parfait.
"JB" a écrit dans le message de news:
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" wrote:
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
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" a écrit dans le message de news: uKQC7r$
Bonjour,
merci, en particulier pour l'exemple joint, c'est parfait.
"JB" a écrit dans le message de news:
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" wrote:
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
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" <torispora@alussinan.org> a écrit dans le message de news:
uKQC7r$tHHA.4764@TK2MSFTNGP05.phx.gbl...
Bonjour,
merci, en particulier pour l'exemple joint, c'est parfait.
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
1182802746.148739.214990@n60g2000hse.googlegroups.com...
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" <torisp...@alussinan.org> wrote:
Bonjour, Bonsoir,
je cherche un format conditionnel pour plus de 7 valeurs
exemple
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" a écrit dans le message de news: uKQC7r$
Bonjour,
merci, en particulier pour l'exemple joint, c'est parfait.
"JB" a écrit dans le message de news:
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" wrote:
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
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" wrote:
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" a écrit dans le message de news: uKQC7r$
Bonjour,
merci, en particulier pour l'exemple joint, c'est parfait.
"JB" a écrit dans le message de news:
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" wrote:
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 -
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" <torisp...@alussinan.org> wrote:
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" <torisp...@alussinan.org> a écrit dans le message de news:
uKQC7r$tHHA.4...@TK2MSFTNGP05.phx.gbl...
Bonjour,
merci, en particulier pour l'exemple joint, c'est parfait.
"JB" <boisgont...@hotmail.com> a écrit dans le message de news:
1182802746.148739.214...@n60g2000hse.googlegroups.com...
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" <torisp...@alussinan.org> wrote:
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 -
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" wrote:
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" a écrit dans le message de news: uKQC7r$
Bonjour,
merci, en particulier pour l'exemple joint, c'est parfait.
"JB" a écrit dans le message de news:
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" wrote:
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 -