Bonsoir,
le code à isabelle marche mais je voudrais déterminer ma couleur j'ai lu
ceci :Sub couleur()
Coul=Range("A1").Interior.Colorindex
Msgbox coul
End Sub
mais je ne sais pas comment y mettre en oeuvre. J'aimerais bien quelques
commentaire dans le code à isabelle pour comprendre. Merci
J'ai remplacer par le tien pour un essai mais je n'ai pas transformé, aucune
mise en couleur de ma (mes) ligne(s)D'accord avec Isabelle.
Je te propose une autre rédaction qui pourrait être plus simple à modifier
ou à généralise dans le futur...
Private Sub Worksheet_Change(ByVal Target As Range)
If Application.intersect(Target, zone_pilote) Is Nothing Then Exit Sub
Set zone_pilote = range ("B4:B26")
W= couleur(target.text)
Range("C" & Target.Row & ":Q" & Target.Row).Interior.ColorIndex = W
end sub
***********
Function couleur(X as string)
select case X
case "A": couleur = (index couleur voulu pour "A")
...
case "L" : couleur = ...
case else : couleur = xlNone
end select
end function
*************
"isabelle" a écrit dans le message de news:bonjour blackboy,
fait un click droit sur l'onglet de la feuille, sélectionne "Visualiser le
code"
et copie cette macro sur la page blanche.
il ne reste qu'Ã tester.
Private Sub Worksheet_Change(ByVal Target As Range)
plg = Array("A", "V", "AC", "VC", "AP", "VP", "L")
couleur = Array("36", "3", "5", "44", "7", "4", "37")
x = Not IsError(Application.Match(Target, plg, 0))
If x = "Vrai" Then
W = Application.Index(couleur, Application.Match(Target, plg, 0))
Range("C" & Target.Row & ":Q" & Target.Row).Interior.ColorIndex = W
Else
Range("C" & Target.Row & ":Q" & Target.Row).Interior.ColorIndex = xlNone
End If
End Sub
isabelle
Voilà : j'ai une plage de cellule (B4:B26) avec des 8 variables textes
(A,V,AC,VC,AP,VP,L,*).
Ces servent à variables déterminenr ensuite certaines fonctions SI dans
le
reste du tableau (C4:Q26)
Je voudrais par exemple : si en B4 j'inscris la variable AC, le reste de
la
ligne (C4:Q4) prenne une couleur définie pour cette variable AC.
Si un code VBA est à inscrire : ou ? comment l'appliquer ?
Merci PMLÃ , il faut que tu soit plus explicite.
Decris-moi vraiment ton pb, ok ?
A+
"blackboy" a écrit dans le
message de
news:Salut PM,
Tu sous entends que je dois créer une macro avec ton code puis lui
associer
un bouton et ensite cliquer régulièrement sur ce bouton quant je
complète
mon
tableau ?
Quant aux couleurs comment savoir le code à écrire pour telle ou
telle
couleur voulue ? MerciEst-ce que ceci ferait l'affaire ?
Select case maVarTexte
Case texte1
cells(a,b).interior.colorindex = n
....
etc.
Si les valeurs Text1 etc. sont variables, entrées dans des cases
données,
ce
serait pareil sauf que l'on ferait
Case cells(celluledonnée).text
Bon courage.
"blackboy" a écrit dans le
message
de
news:Bonjour à la communauté,
Je souhaiterais donner une couleur fixe et automatique à une
plage de
cellules suivant huit variables textes placées d'une plage de
cellules
Merci
Bonsoir,
le code à isabelle marche mais je voudrais déterminer ma couleur j'ai lu
ceci :
Sub couleur()
Coul=Range("A1").Interior.Colorindex
Msgbox coul
End Sub
mais je ne sais pas comment y mettre en oeuvre. J'aimerais bien quelques
commentaire dans le code à isabelle pour comprendre. Merci
J'ai remplacer par le tien pour un essai mais je n'ai pas transformé, aucune
mise en couleur de ma (mes) ligne(s)
D'accord avec Isabelle.
Je te propose une autre rédaction qui pourrait être plus simple à modifier
ou à généralise dans le futur...
Private Sub Worksheet_Change(ByVal Target As Range)
If Application.intersect(Target, zone_pilote) Is Nothing Then Exit Sub
Set zone_pilote = range ("B4:B26")
W= couleur(target.text)
Range("C" & Target.Row & ":Q" & Target.Row).Interior.ColorIndex = W
end sub
***********
Function couleur(X as string)
select case X
case "A": couleur = (index couleur voulu pour "A")
...
case "L" : couleur = ...
case else : couleur = xlNone
end select
end function
*************
"isabelle" <as.isabellevIE@videotron.ca> a écrit dans le message de news:
4182A7EA.78DB028D@videotron.ca...
bonjour blackboy,
fait un click droit sur l'onglet de la feuille, sélectionne "Visualiser le
code"
et copie cette macro sur la page blanche.
il ne reste qu'Ã tester.
Private Sub Worksheet_Change(ByVal Target As Range)
plg = Array("A", "V", "AC", "VC", "AP", "VP", "L")
couleur = Array("36", "3", "5", "44", "7", "4", "37")
x = Not IsError(Application.Match(Target, plg, 0))
If x = "Vrai" Then
W = Application.Index(couleur, Application.Match(Target, plg, 0))
Range("C" & Target.Row & ":Q" & Target.Row).Interior.ColorIndex = W
Else
Range("C" & Target.Row & ":Q" & Target.Row).Interior.ColorIndex = xlNone
End If
End Sub
isabelle
Voilà : j'ai une plage de cellule (B4:B26) avec des 8 variables textes
(A,V,AC,VC,AP,VP,L,*).
Ces servent à variables déterminenr ensuite certaines fonctions SI dans
le
reste du tableau (C4:Q26)
Je voudrais par exemple : si en B4 j'inscris la variable AC, le reste de
la
ligne (C4:Q4) prenne une couleur définie pour cette variable AC.
Si un code VBA est à inscrire : ou ? comment l'appliquer ?
Merci PM
LÃ , il faut que tu soit plus explicite.
Decris-moi vraiment ton pb, ok ?
A+
"blackboy" <blackboy@discussions.microsoft.com> a écrit dans le
message de
news: 704F202D-F369-42DA-98FD-78C75F82E660@microsoft.com...
Salut PM,
Tu sous entends que je dois créer une macro avec ton code puis lui
associer
un bouton et ensite cliquer régulièrement sur ce bouton quant je
complète
mon
tableau ?
Quant aux couleurs comment savoir le code à écrire pour telle ou
telle
couleur voulue ? Merci
Est-ce que ceci ferait l'affaire ?
Select case maVarTexte
Case texte1
cells(a,b).interior.colorindex = n
....
etc.
Si les valeurs Text1 etc. sont variables, entrées dans des cases
données,
ce
serait pareil sauf que l'on ferait
Case cells(celluledonnée).text
Bon courage.
"blackboy" <blackboy@discussions.microsoft.com> a écrit dans le
message
de
news: ACACFAFC-A667-4A18-A1A5-2FC387ABCBDB@microsoft.com...
Bonjour à la communauté,
Je souhaiterais donner une couleur fixe et automatique à une
plage de
cellules suivant huit variables textes placées d'une plage de
cellules
Merci
Bonsoir,
le code à isabelle marche mais je voudrais déterminer ma couleur j'ai lu
ceci :Sub couleur()
Coul=Range("A1").Interior.Colorindex
Msgbox coul
End Sub
mais je ne sais pas comment y mettre en oeuvre. J'aimerais bien quelques
commentaire dans le code à isabelle pour comprendre. Merci
J'ai remplacer par le tien pour un essai mais je n'ai pas transformé, aucune
mise en couleur de ma (mes) ligne(s)D'accord avec Isabelle.
Je te propose une autre rédaction qui pourrait être plus simple à modifier
ou à généralise dans le futur...
Private Sub Worksheet_Change(ByVal Target As Range)
If Application.intersect(Target, zone_pilote) Is Nothing Then Exit Sub
Set zone_pilote = range ("B4:B26")
W= couleur(target.text)
Range("C" & Target.Row & ":Q" & Target.Row).Interior.ColorIndex = W
end sub
***********
Function couleur(X as string)
select case X
case "A": couleur = (index couleur voulu pour "A")
...
case "L" : couleur = ...
case else : couleur = xlNone
end select
end function
*************
"isabelle" a écrit dans le message de news:bonjour blackboy,
fait un click droit sur l'onglet de la feuille, sélectionne "Visualiser le
code"
et copie cette macro sur la page blanche.
il ne reste qu'Ã tester.
Private Sub Worksheet_Change(ByVal Target As Range)
plg = Array("A", "V", "AC", "VC", "AP", "VP", "L")
couleur = Array("36", "3", "5", "44", "7", "4", "37")
x = Not IsError(Application.Match(Target, plg, 0))
If x = "Vrai" Then
W = Application.Index(couleur, Application.Match(Target, plg, 0))
Range("C" & Target.Row & ":Q" & Target.Row).Interior.ColorIndex = W
Else
Range("C" & Target.Row & ":Q" & Target.Row).Interior.ColorIndex = xlNone
End If
End Sub
isabelle
Voilà : j'ai une plage de cellule (B4:B26) avec des 8 variables textes
(A,V,AC,VC,AP,VP,L,*).
Ces servent à variables déterminenr ensuite certaines fonctions SI dans
le
reste du tableau (C4:Q26)
Je voudrais par exemple : si en B4 j'inscris la variable AC, le reste de
la
ligne (C4:Q4) prenne une couleur définie pour cette variable AC.
Si un code VBA est à inscrire : ou ? comment l'appliquer ?
Merci PMLÃ , il faut que tu soit plus explicite.
Decris-moi vraiment ton pb, ok ?
A+
"blackboy" a écrit dans le
message de
news:Salut PM,
Tu sous entends que je dois créer une macro avec ton code puis lui
associer
un bouton et ensite cliquer régulièrement sur ce bouton quant je
complète
mon
tableau ?
Quant aux couleurs comment savoir le code à écrire pour telle ou
telle
couleur voulue ? MerciEst-ce que ceci ferait l'affaire ?
Select case maVarTexte
Case texte1
cells(a,b).interior.colorindex = n
....
etc.
Si les valeurs Text1 etc. sont variables, entrées dans des cases
données,
ce
serait pareil sauf que l'on ferait
Case cells(celluledonnée).text
Bon courage.
"blackboy" a écrit dans le
message
de
news:Bonjour à la communauté,
Je souhaiterais donner une couleur fixe et automatique à une
plage de
cellules suivant huit variables textes placées d'une plage de
cellules
Merci
bonjour blackboy,
cela serait surement moin compliqué si la liste des variables est placée dans une plage de cellule
tu pourrais alors mettre les couleurs désirer sur chaque cellule contenant une variable,
de cette facon tu pourrais plus facilement modifier une couleur ou ajouter des variables.
dans cette exemple j'ai ajouté une feuille au classeur, et je l'ai nommer "VarCouleur"
dans les cellules de A1 à Ax j'ai mis les variables et j'ai coloré chaque cellules (A1:Ax) d'une couleur différente.
le code est modifier comme ça,
Private Sub Worksheet_Change(ByVal Target As Range)
Set Sh = Sheets("VarCouleur")
Set plg = Sh.Range("A1:A" & Sh.Range("A65536").End(xlUp).Row)
x = Not IsError(Application.Match(Target, plg, 0))
If Not IsError(Application.Match(Target, plg, 0)) Then
VC = Sheets("VarCouleur").Range("A" & Application.Match(Target, plg, 0)).Interior.ColorIndex
Range("C" & Target.Row & ":Q" & Target.Row).Interior.ColorIndex = VC
Else
Range("C" & Target.Row & ":Q" & Target.Row).Interior.ColorIndex = xlNone
End If
End Sub
isabelle
Bonsoir,
le code à isabelle marche mais je voudrais déterminer ma couleur j'ai lu
ceci :Sub couleur()
Coul=Range("A1").Interior.Colorindex
Msgbox coul
End Sub
mais je ne sais pas comment y mettre en oeuvre. J'aimerais bien quelques
commentaire dans le code à isabelle pour comprendre. Merci
J'ai remplacer par le tien pour un essai mais je n'ai pas transformé, aucune
mise en couleur de ma (mes) ligne(s)D'accord avec Isabelle.
Je te propose une autre rédaction qui pourrait être plus simple à modifier
ou à généralise dans le futur...
Private Sub Worksheet_Change(ByVal Target As Range)
If Application.intersect(Target, zone_pilote) Is Nothing Then Exit Sub
Set zone_pilote = range ("B4:B26")
W= couleur(target.text)
Range("C" & Target.Row & ":Q" & Target.Row).Interior.ColorIndex = W
end sub
***********
Function couleur(X as string)
select case X
case "A": couleur = (index couleur voulu pour "A")
...
case "L" : couleur = ...
case else : couleur = xlNone
end select
end function
*************
"isabelle" a écrit dans le message de news:bonjour blackboy,
fait un click droit sur l'onglet de la feuille, sélectionne "Visualiser le
code"
et copie cette macro sur la page blanche.
il ne reste qu'Ã tester.
Private Sub Worksheet_Change(ByVal Target As Range)
plg = Array("A", "V", "AC", "VC", "AP", "VP", "L")
couleur = Array("36", "3", "5", "44", "7", "4", "37")
x = Not IsError(Application.Match(Target, plg, 0))
If x = "Vrai" Then
W = Application.Index(couleur, Application.Match(Target, plg, 0))
Range("C" & Target.Row & ":Q" & Target.Row).Interior.ColorIndex = W
Else
Range("C" & Target.Row & ":Q" & Target.Row).Interior.ColorIndex = xlNone
End If
End Sub
isabelle
Voilà : j'ai une plage de cellule (B4:B26) avec des 8 variables textes
(A,V,AC,VC,AP,VP,L,*).
Ces servent à variables déterminenr ensuite certaines fonctions SI dans
le
reste du tableau (C4:Q26)
Je voudrais par exemple : si en B4 j'inscris la variable AC, le reste de
la
ligne (C4:Q4) prenne une couleur définie pour cette variable AC.
Si un code VBA est à inscrire : ou ? comment l'appliquer ?
Merci PMLÃ , il faut que tu soit plus explicite.
Decris-moi vraiment ton pb, ok ?
A+
"blackboy" a écrit dans le
message de
news:Salut PM,
Tu sous entends que je dois créer une macro avec ton code puis lui
associer
un bouton et ensite cliquer régulièrement sur ce bouton quant je
complète
mon
tableau ?
Quant aux couleurs comment savoir le code à écrire pour telle ou
telle
couleur voulue ? MerciEst-ce que ceci ferait l'affaire ?
Select case maVarTexte
Case texte1
cells(a,b).interior.colorindex = n
....
etc.
Si les valeurs Text1 etc. sont variables, entrées dans des cases
données,
ce
serait pareil sauf que l'on ferait
Case cells(celluledonnée).text
Bon courage.
"blackboy" a écrit dans le
message
de
news:Bonjour à la communauté,
Je souhaiterais donner une couleur fixe et automatique à une
plage de
cellules suivant huit variables textes placées d'une plage de
cellules
Merci
bonjour blackboy,
cela serait surement moin compliqué si la liste des variables est placée dans une plage de cellule
tu pourrais alors mettre les couleurs désirer sur chaque cellule contenant une variable,
de cette facon tu pourrais plus facilement modifier une couleur ou ajouter des variables.
dans cette exemple j'ai ajouté une feuille au classeur, et je l'ai nommer "VarCouleur"
dans les cellules de A1 à Ax j'ai mis les variables et j'ai coloré chaque cellules (A1:Ax) d'une couleur différente.
le code est modifier comme ça,
Private Sub Worksheet_Change(ByVal Target As Range)
Set Sh = Sheets("VarCouleur")
Set plg = Sh.Range("A1:A" & Sh.Range("A65536").End(xlUp).Row)
x = Not IsError(Application.Match(Target, plg, 0))
If Not IsError(Application.Match(Target, plg, 0)) Then
VC = Sheets("VarCouleur").Range("A" & Application.Match(Target, plg, 0)).Interior.ColorIndex
Range("C" & Target.Row & ":Q" & Target.Row).Interior.ColorIndex = VC
Else
Range("C" & Target.Row & ":Q" & Target.Row).Interior.ColorIndex = xlNone
End If
End Sub
isabelle
Bonsoir,
le code à isabelle marche mais je voudrais déterminer ma couleur j'ai lu
ceci :
Sub couleur()
Coul=Range("A1").Interior.Colorindex
Msgbox coul
End Sub
mais je ne sais pas comment y mettre en oeuvre. J'aimerais bien quelques
commentaire dans le code à isabelle pour comprendre. Merci
J'ai remplacer par le tien pour un essai mais je n'ai pas transformé, aucune
mise en couleur de ma (mes) ligne(s)
D'accord avec Isabelle.
Je te propose une autre rédaction qui pourrait être plus simple à modifier
ou à généralise dans le futur...
Private Sub Worksheet_Change(ByVal Target As Range)
If Application.intersect(Target, zone_pilote) Is Nothing Then Exit Sub
Set zone_pilote = range ("B4:B26")
W= couleur(target.text)
Range("C" & Target.Row & ":Q" & Target.Row).Interior.ColorIndex = W
end sub
***********
Function couleur(X as string)
select case X
case "A": couleur = (index couleur voulu pour "A")
...
case "L" : couleur = ...
case else : couleur = xlNone
end select
end function
*************
"isabelle" <as.isabellevIE@videotron.ca> a écrit dans le message de news:
4182A7EA.78DB028D@videotron.ca...
bonjour blackboy,
fait un click droit sur l'onglet de la feuille, sélectionne "Visualiser le
code"
et copie cette macro sur la page blanche.
il ne reste qu'Ã tester.
Private Sub Worksheet_Change(ByVal Target As Range)
plg = Array("A", "V", "AC", "VC", "AP", "VP", "L")
couleur = Array("36", "3", "5", "44", "7", "4", "37")
x = Not IsError(Application.Match(Target, plg, 0))
If x = "Vrai" Then
W = Application.Index(couleur, Application.Match(Target, plg, 0))
Range("C" & Target.Row & ":Q" & Target.Row).Interior.ColorIndex = W
Else
Range("C" & Target.Row & ":Q" & Target.Row).Interior.ColorIndex = xlNone
End If
End Sub
isabelle
Voilà : j'ai une plage de cellule (B4:B26) avec des 8 variables textes
(A,V,AC,VC,AP,VP,L,*).
Ces servent à variables déterminenr ensuite certaines fonctions SI dans
le
reste du tableau (C4:Q26)
Je voudrais par exemple : si en B4 j'inscris la variable AC, le reste de
la
ligne (C4:Q4) prenne une couleur définie pour cette variable AC.
Si un code VBA est à inscrire : ou ? comment l'appliquer ?
Merci PM
LÃ , il faut que tu soit plus explicite.
Decris-moi vraiment ton pb, ok ?
A+
"blackboy" <blackboy@discussions.microsoft.com> a écrit dans le
message de
news: 704F202D-F369-42DA-98FD-78C75F82E660@microsoft.com...
Salut PM,
Tu sous entends que je dois créer une macro avec ton code puis lui
associer
un bouton et ensite cliquer régulièrement sur ce bouton quant je
complète
mon
tableau ?
Quant aux couleurs comment savoir le code à écrire pour telle ou
telle
couleur voulue ? Merci
Est-ce que ceci ferait l'affaire ?
Select case maVarTexte
Case texte1
cells(a,b).interior.colorindex = n
....
etc.
Si les valeurs Text1 etc. sont variables, entrées dans des cases
données,
ce
serait pareil sauf que l'on ferait
Case cells(celluledonnée).text
Bon courage.
"blackboy" <blackboy@discussions.microsoft.com> a écrit dans le
message
de
news: ACACFAFC-A667-4A18-A1A5-2FC387ABCBDB@microsoft.com...
Bonjour à la communauté,
Je souhaiterais donner une couleur fixe et automatique à une
plage de
cellules suivant huit variables textes placées d'une plage de
cellules
Merci
bonjour blackboy,
cela serait surement moin compliqué si la liste des variables est placée dans une plage de cellule
tu pourrais alors mettre les couleurs désirer sur chaque cellule contenant une variable,
de cette facon tu pourrais plus facilement modifier une couleur ou ajouter des variables.
dans cette exemple j'ai ajouté une feuille au classeur, et je l'ai nommer "VarCouleur"
dans les cellules de A1 à Ax j'ai mis les variables et j'ai coloré chaque cellules (A1:Ax) d'une couleur différente.
le code est modifier comme ça,
Private Sub Worksheet_Change(ByVal Target As Range)
Set Sh = Sheets("VarCouleur")
Set plg = Sh.Range("A1:A" & Sh.Range("A65536").End(xlUp).Row)
x = Not IsError(Application.Match(Target, plg, 0))
If Not IsError(Application.Match(Target, plg, 0)) Then
VC = Sheets("VarCouleur").Range("A" & Application.Match(Target, plg, 0)).Interior.ColorIndex
Range("C" & Target.Row & ":Q" & Target.Row).Interior.ColorIndex = VC
Else
Range("C" & Target.Row & ":Q" & Target.Row).Interior.ColorIndex = xlNone
End If
End Sub
isabelle
Bonsoir,
le code à isabelle marche mais je voudrais déterminer ma couleur j'ai lu
ceci :Sub couleur()
Coul=Range("A1").Interior.Colorindex
Msgbox coul
End Sub
mais je ne sais pas comment y mettre en oeuvre. J'aimerais bien quelques
commentaire dans le code à isabelle pour comprendre. Merci
J'ai remplacer par le tien pour un essai mais je n'ai pas transformé, aucune
mise en couleur de ma (mes) ligne(s)D'accord avec Isabelle.
Je te propose une autre rédaction qui pourrait être plus simple à modifier
ou à généralise dans le futur...
Private Sub Worksheet_Change(ByVal Target As Range)
If Application.intersect(Target, zone_pilote) Is Nothing Then Exit Sub
Set zone_pilote = range ("B4:B26")
W= couleur(target.text)
Range("C" & Target.Row & ":Q" & Target.Row).Interior.ColorIndex = W
end sub
***********
Function couleur(X as string)
select case X
case "A": couleur = (index couleur voulu pour "A")
...
case "L" : couleur = ...
case else : couleur = xlNone
end select
end function
*************
"isabelle" a écrit dans le message de news:bonjour blackboy,
fait un click droit sur l'onglet de la feuille, sélectionne "Visualiser le
code"
et copie cette macro sur la page blanche.
il ne reste qu'Ã tester.
Private Sub Worksheet_Change(ByVal Target As Range)
plg = Array("A", "V", "AC", "VC", "AP", "VP", "L")
couleur = Array("36", "3", "5", "44", "7", "4", "37")
x = Not IsError(Application.Match(Target, plg, 0))
If x = "Vrai" Then
W = Application.Index(couleur, Application.Match(Target, plg, 0))
Range("C" & Target.Row & ":Q" & Target.Row).Interior.ColorIndex = W
Else
Range("C" & Target.Row & ":Q" & Target.Row).Interior.ColorIndex = xlNone
End If
End Sub
isabelle
Voilà : j'ai une plage de cellule (B4:B26) avec des 8 variables textes
(A,V,AC,VC,AP,VP,L,*).
Ces servent à variables déterminenr ensuite certaines fonctions SI dans
le
reste du tableau (C4:Q26)
Je voudrais par exemple : si en B4 j'inscris la variable AC, le reste de
la
ligne (C4:Q4) prenne une couleur définie pour cette variable AC.
Si un code VBA est à inscrire : ou ? comment l'appliquer ?
Merci PMLÃ , il faut que tu soit plus explicite.
Decris-moi vraiment ton pb, ok ?
A+
"blackboy" a écrit dans le
message de
news:Salut PM,
Tu sous entends que je dois créer une macro avec ton code puis lui
associer
un bouton et ensite cliquer régulièrement sur ce bouton quant je
complète
mon
tableau ?
Quant aux couleurs comment savoir le code à écrire pour telle ou
telle
couleur voulue ? MerciEst-ce que ceci ferait l'affaire ?
Select case maVarTexte
Case texte1
cells(a,b).interior.colorindex = n
....
etc.
Si les valeurs Text1 etc. sont variables, entrées dans des cases
données,
ce
serait pareil sauf que l'on ferait
Case cells(celluledonnée).text
Bon courage.
"blackboy" a écrit dans le
message
de
news:Bonjour à la communauté,
Je souhaiterais donner une couleur fixe et automatique à une
plage de
cellules suivant huit variables textes placées d'une plage de
cellules
Merci
Bonjour Isabelle,
T'es merveilleuse de solutions, ton code est impeccable.
Si par exemple dans une des variables, je souhaite mettre un motif et non
une couleur, comment modifier le code ? si trop compliqué, laisse tomber ma
question.
Mercibonjour blackboy,
cela serait surement moin compliqué si la liste des variables est placée dans une plage de cellule
tu pourrais alors mettre les couleurs désirer sur chaque cellule contenant une variable,
de cette facon tu pourrais plus facilement modifier une couleur ou ajouter des variables.
dans cette exemple j'ai ajouté une feuille au classeur, et je l'ai nommer "VarCouleur"
dans les cellules de A1 à Ax j'ai mis les variables et j'ai coloré chaque cellules (A1:Ax) d'une couleur différente.
le code est modifier comme ça,
Private Sub Worksheet_Change(ByVal Target As Range)
Set Sh = Sheets("VarCouleur")
Set plg = Sh.Range("A1:A" & Sh.Range("A65536").End(xlUp).Row)
x = Not IsError(Application.Match(Target, plg, 0))
If Not IsError(Application.Match(Target, plg, 0)) Then
VC = Sheets("VarCouleur").Range("A" & Application.Match(Target, plg, 0)).Interior.ColorIndex
Range("C" & Target.Row & ":Q" & Target.Row).Interior.ColorIndex = VC
Else
Range("C" & Target.Row & ":Q" & Target.Row).Interior.ColorIndex = xlNone
End If
End Sub
isabelle
Bonsoir,
le code à isabelle marche mais je voudrais déterminer ma couleur j'ai lu
ceci :Sub couleur()
Coul=Range("A1").Interior.Colorindex
Msgbox coul
End Sub
mais je ne sais pas comment y mettre en oeuvre. J'aimerais bien quelques
commentaire dans le code à isabelle pour comprendre. Merci
J'ai remplacer par le tien pour un essai mais je n'ai pas transformé, aucune
mise en couleur de ma (mes) ligne(s)D'accord avec Isabelle.
Je te propose une autre rédaction qui pourrait être plus simple à modifier
ou à généralise dans le futur...
Private Sub Worksheet_Change(ByVal Target As Range)
If Application.intersect(Target, zone_pilote) Is Nothing Then Exit Sub
Set zone_pilote = range ("B4:B26")
W= couleur(target.text)
Range("C" & Target.Row & ":Q" & Target.Row).Interior.ColorIndex = W
end sub
***********
Function couleur(X as string)
select case X
case "A": couleur = (index couleur voulu pour "A")
...
case "L" : couleur = ...
case else : couleur = xlNone
end select
end function
*************
"isabelle" a écrit dans le message de news:bonjour blackboy,
fait un click droit sur l'onglet de la feuille, sélectionne "Visualiser le
code"
et copie cette macro sur la page blanche.
il ne reste qu'Ã tester.
Private Sub Worksheet_Change(ByVal Target As Range)
plg = Array("A", "V", "AC", "VC", "AP", "VP", "L")
couleur = Array("36", "3", "5", "44", "7", "4", "37")
x = Not IsError(Application.Match(Target, plg, 0))
If x = "Vrai" Then
W = Application.Index(couleur, Application.Match(Target, plg, 0))
Range("C" & Target.Row & ":Q" & Target.Row).Interior.ColorIndex = W
Else
Range("C" & Target.Row & ":Q" & Target.Row).Interior.ColorIndex = xlNone
End If
End Sub
isabelle
VoilÃÆ : j'ai une plage de cellule (B4:B26) avec des 8 variables textes
(A,V,AC,VC,AP,VP,L,*).
Ces servent ̮ variables d̮̩terminenr ensuite certaines fonctions SI dans
le
reste du tableau (C4:Q26)
Je voudrais par exemple : si en B4 j'inscris la variable AC, le reste de
la
ligne (C4:Q4) prenne une couleur d̮̩finie pour cette variable AC.
Si un code VBA est ÃÆ inscrire : ou ? comment l'appliquer ?
Merci PMLÃÆ , il faut que tu soit plus explicite.
Decris-moi vraiment ton pb, ok ?
A+
"blackboy" a ̮̩crit dans le
message de
news:Salut PM,
Tu sous entends que je dois cr̮̩er une macro avec ton code puis lui
associer
un bouton et ensite cliquer r̮̩guli̮̬rement sur ce bouton quant je
compl̮̬te
mon
tableau ?
Quant aux couleurs comment savoir le code ̮ ̮̩crire pour telle ou
telle
couleur voulue ? MerciEst-ce que ceci ferait l'affaire ?
Select case maVarTexte
Case texte1
cells(a,b).interior.colorindex = n
....
etc.
Si les valeurs Text1 etc. sont variables, entr̮̩es dans des cases
donn̮̩es,
ce
serait pareil sauf que l'on ferait
Case cells(celluledonn̮̩e).text
Bon courage.
"blackboy" a ̮̩crit dans le
message
de
news:Bonjour ̮ la communaut̮̩,
Je souhaiterais donner une couleur fixe et automatique ÃÆ une
plage de
cellules suivant huit variables textes plac̮̩es d'une plage de
cellules
Merci
Bonjour Isabelle,
T'es merveilleuse de solutions, ton code est impeccable.
Si par exemple dans une des variables, je souhaite mettre un motif et non
une couleur, comment modifier le code ? si trop compliqué, laisse tomber ma
question.
Merci
bonjour blackboy,
cela serait surement moin compliqué si la liste des variables est placée dans une plage de cellule
tu pourrais alors mettre les couleurs désirer sur chaque cellule contenant une variable,
de cette facon tu pourrais plus facilement modifier une couleur ou ajouter des variables.
dans cette exemple j'ai ajouté une feuille au classeur, et je l'ai nommer "VarCouleur"
dans les cellules de A1 à Ax j'ai mis les variables et j'ai coloré chaque cellules (A1:Ax) d'une couleur différente.
le code est modifier comme ça,
Private Sub Worksheet_Change(ByVal Target As Range)
Set Sh = Sheets("VarCouleur")
Set plg = Sh.Range("A1:A" & Sh.Range("A65536").End(xlUp).Row)
x = Not IsError(Application.Match(Target, plg, 0))
If Not IsError(Application.Match(Target, plg, 0)) Then
VC = Sheets("VarCouleur").Range("A" & Application.Match(Target, plg, 0)).Interior.ColorIndex
Range("C" & Target.Row & ":Q" & Target.Row).Interior.ColorIndex = VC
Else
Range("C" & Target.Row & ":Q" & Target.Row).Interior.ColorIndex = xlNone
End If
End Sub
isabelle
Bonsoir,
le code à isabelle marche mais je voudrais déterminer ma couleur j'ai lu
ceci :
Sub couleur()
Coul=Range("A1").Interior.Colorindex
Msgbox coul
End Sub
mais je ne sais pas comment y mettre en oeuvre. J'aimerais bien quelques
commentaire dans le code à isabelle pour comprendre. Merci
J'ai remplacer par le tien pour un essai mais je n'ai pas transformé, aucune
mise en couleur de ma (mes) ligne(s)
D'accord avec Isabelle.
Je te propose une autre rédaction qui pourrait être plus simple à modifier
ou à généralise dans le futur...
Private Sub Worksheet_Change(ByVal Target As Range)
If Application.intersect(Target, zone_pilote) Is Nothing Then Exit Sub
Set zone_pilote = range ("B4:B26")
W= couleur(target.text)
Range("C" & Target.Row & ":Q" & Target.Row).Interior.ColorIndex = W
end sub
***********
Function couleur(X as string)
select case X
case "A": couleur = (index couleur voulu pour "A")
...
case "L" : couleur = ...
case else : couleur = xlNone
end select
end function
*************
"isabelle" <as.isabellevIE@videotron.ca> a écrit dans le message de news:
4182A7EA.78DB028D@videotron.ca...
bonjour blackboy,
fait un click droit sur l'onglet de la feuille, sélectionne "Visualiser le
code"
et copie cette macro sur la page blanche.
il ne reste qu'Ã tester.
Private Sub Worksheet_Change(ByVal Target As Range)
plg = Array("A", "V", "AC", "VC", "AP", "VP", "L")
couleur = Array("36", "3", "5", "44", "7", "4", "37")
x = Not IsError(Application.Match(Target, plg, 0))
If x = "Vrai" Then
W = Application.Index(couleur, Application.Match(Target, plg, 0))
Range("C" & Target.Row & ":Q" & Target.Row).Interior.ColorIndex = W
Else
Range("C" & Target.Row & ":Q" & Target.Row).Interior.ColorIndex = xlNone
End If
End Sub
isabelle
VoilÃÆ : j'ai une plage de cellule (B4:B26) avec des 8 variables textes
(A,V,AC,VC,AP,VP,L,*).
Ces servent ̮ variables d̮̩terminenr ensuite certaines fonctions SI dans
le
reste du tableau (C4:Q26)
Je voudrais par exemple : si en B4 j'inscris la variable AC, le reste de
la
ligne (C4:Q4) prenne une couleur d̮̩finie pour cette variable AC.
Si un code VBA est ÃÆ inscrire : ou ? comment l'appliquer ?
Merci PM
LÃÆ , il faut que tu soit plus explicite.
Decris-moi vraiment ton pb, ok ?
A+
"blackboy" <blackboy@discussions.microsoft.com> a ̮̩crit dans le
message de
news: 704F202D-F369-42DA-98FD-78C75F82E660@microsoft.com...
Salut PM,
Tu sous entends que je dois cr̮̩er une macro avec ton code puis lui
associer
un bouton et ensite cliquer r̮̩guli̮̬rement sur ce bouton quant je
compl̮̬te
mon
tableau ?
Quant aux couleurs comment savoir le code ̮ ̮̩crire pour telle ou
telle
couleur voulue ? Merci
Est-ce que ceci ferait l'affaire ?
Select case maVarTexte
Case texte1
cells(a,b).interior.colorindex = n
....
etc.
Si les valeurs Text1 etc. sont variables, entr̮̩es dans des cases
donn̮̩es,
ce
serait pareil sauf que l'on ferait
Case cells(celluledonn̮̩e).text
Bon courage.
"blackboy" <blackboy@discussions.microsoft.com> a ̮̩crit dans le
message
de
news: ACACFAFC-A667-4A18-A1A5-2FC387ABCBDB@microsoft.com...
Bonjour ̮ la communaut̮̩,
Je souhaiterais donner une couleur fixe et automatique ÃÆ une
plage de
cellules suivant huit variables textes plac̮̩es d'une plage de
cellules
Merci
Bonjour Isabelle,
T'es merveilleuse de solutions, ton code est impeccable.
Si par exemple dans une des variables, je souhaite mettre un motif et non
une couleur, comment modifier le code ? si trop compliqué, laisse tomber ma
question.
Mercibonjour blackboy,
cela serait surement moin compliqué si la liste des variables est placée dans une plage de cellule
tu pourrais alors mettre les couleurs désirer sur chaque cellule contenant une variable,
de cette facon tu pourrais plus facilement modifier une couleur ou ajouter des variables.
dans cette exemple j'ai ajouté une feuille au classeur, et je l'ai nommer "VarCouleur"
dans les cellules de A1 à Ax j'ai mis les variables et j'ai coloré chaque cellules (A1:Ax) d'une couleur différente.
le code est modifier comme ça,
Private Sub Worksheet_Change(ByVal Target As Range)
Set Sh = Sheets("VarCouleur")
Set plg = Sh.Range("A1:A" & Sh.Range("A65536").End(xlUp).Row)
x = Not IsError(Application.Match(Target, plg, 0))
If Not IsError(Application.Match(Target, plg, 0)) Then
VC = Sheets("VarCouleur").Range("A" & Application.Match(Target, plg, 0)).Interior.ColorIndex
Range("C" & Target.Row & ":Q" & Target.Row).Interior.ColorIndex = VC
Else
Range("C" & Target.Row & ":Q" & Target.Row).Interior.ColorIndex = xlNone
End If
End Sub
isabelle
Bonsoir,
le code à isabelle marche mais je voudrais déterminer ma couleur j'ai lu
ceci :Sub couleur()
Coul=Range("A1").Interior.Colorindex
Msgbox coul
End Sub
mais je ne sais pas comment y mettre en oeuvre. J'aimerais bien quelques
commentaire dans le code à isabelle pour comprendre. Merci
J'ai remplacer par le tien pour un essai mais je n'ai pas transformé, aucune
mise en couleur de ma (mes) ligne(s)D'accord avec Isabelle.
Je te propose une autre rédaction qui pourrait être plus simple à modifier
ou à généralise dans le futur...
Private Sub Worksheet_Change(ByVal Target As Range)
If Application.intersect(Target, zone_pilote) Is Nothing Then Exit Sub
Set zone_pilote = range ("B4:B26")
W= couleur(target.text)
Range("C" & Target.Row & ":Q" & Target.Row).Interior.ColorIndex = W
end sub
***********
Function couleur(X as string)
select case X
case "A": couleur = (index couleur voulu pour "A")
...
case "L" : couleur = ...
case else : couleur = xlNone
end select
end function
*************
"isabelle" a écrit dans le message de news:bonjour blackboy,
fait un click droit sur l'onglet de la feuille, sélectionne "Visualiser le
code"
et copie cette macro sur la page blanche.
il ne reste qu'Ã tester.
Private Sub Worksheet_Change(ByVal Target As Range)
plg = Array("A", "V", "AC", "VC", "AP", "VP", "L")
couleur = Array("36", "3", "5", "44", "7", "4", "37")
x = Not IsError(Application.Match(Target, plg, 0))
If x = "Vrai" Then
W = Application.Index(couleur, Application.Match(Target, plg, 0))
Range("C" & Target.Row & ":Q" & Target.Row).Interior.ColorIndex = W
Else
Range("C" & Target.Row & ":Q" & Target.Row).Interior.ColorIndex = xlNone
End If
End Sub
isabelle
VoilÃÆ : j'ai une plage de cellule (B4:B26) avec des 8 variables textes
(A,V,AC,VC,AP,VP,L,*).
Ces servent ̮ variables d̮̩terminenr ensuite certaines fonctions SI dans
le
reste du tableau (C4:Q26)
Je voudrais par exemple : si en B4 j'inscris la variable AC, le reste de
la
ligne (C4:Q4) prenne une couleur d̮̩finie pour cette variable AC.
Si un code VBA est ÃÆ inscrire : ou ? comment l'appliquer ?
Merci PMLÃÆ , il faut que tu soit plus explicite.
Decris-moi vraiment ton pb, ok ?
A+
"blackboy" a ̮̩crit dans le
message de
news:Salut PM,
Tu sous entends que je dois cr̮̩er une macro avec ton code puis lui
associer
un bouton et ensite cliquer r̮̩guli̮̬rement sur ce bouton quant je
compl̮̬te
mon
tableau ?
Quant aux couleurs comment savoir le code ̮ ̮̩crire pour telle ou
telle
couleur voulue ? MerciEst-ce que ceci ferait l'affaire ?
Select case maVarTexte
Case texte1
cells(a,b).interior.colorindex = n
....
etc.
Si les valeurs Text1 etc. sont variables, entr̮̩es dans des cases
donn̮̩es,
ce
serait pareil sauf que l'on ferait
Case cells(celluledonn̮̩e).text
Bon courage.
"blackboy" a ̮̩crit dans le
message
de
news:Bonjour ̮ la communaut̮̩,
Je souhaiterais donner une couleur fixe et automatique ÃÆ une
plage de
cellules suivant huit variables textes plac̮̩es d'une plage de
cellules
Merci
bonjour blackboy,
il faufrait modifier comme ça,
Private Sub Worksheet_Change(ByVal Target As Range)
Set Sh = Sheets("VarCouleur")
Set plg = Sh.Range("A1:A" & Sh.Range("A65536").End(xlUp).Row)
x = Not IsError(Application.Match(Target, plg, 0))
If Not IsError(Application.Match(Target, plg, 0)) Then
With Sheets("VarCouleur").Range("A" & Application.Match(Target, plg, 0)).Interior
CI = .ColorIndex
P = .Pattern
PCI = .PatternColorIndex
End With
With Range("C" & Target.Row & ":Q" & Target.Row).Interior
.ColorIndex = CI
.Pattern = P
.PatternColorIndex = PCI
End With
Else
Range("C" & Target.Row & ":Q" & Target.Row).Interior.ColorIndex = xlNone
End If
End Sub
isabelle
Bonjour Isabelle,
T'es merveilleuse de solutions, ton code est impeccable.
Si par exemple dans une des variables, je souhaite mettre un motif et non
une couleur, comment modifier le code ? si trop compliqué, laisse tomber ma
question.
Mercibonjour blackboy,
cela serait surement moin compliqué si la liste des variables est placée dans une plage de cellule
tu pourrais alors mettre les couleurs désirer sur chaque cellule contenant une variable,
de cette facon tu pourrais plus facilement modifier une couleur ou ajouter des variables.
dans cette exemple j'ai ajouté une feuille au classeur, et je l'ai nommer "VarCouleur"
dans les cellules de A1 à Ax j'ai mis les variables et j'ai coloré chaque cellules (A1:Ax) d'une couleur différente.
le code est modifier comme ça,
Private Sub Worksheet_Change(ByVal Target As Range)
Set Sh = Sheets("VarCouleur")
Set plg = Sh.Range("A1:A" & Sh.Range("A65536").End(xlUp).Row)
x = Not IsError(Application.Match(Target, plg, 0))
If Not IsError(Application.Match(Target, plg, 0)) Then
VC = Sheets("VarCouleur").Range("A" & Application.Match(Target, plg, 0)).Interior.ColorIndex
Range("C" & Target.Row & ":Q" & Target.Row).Interior.ColorIndex = VC
Else
Range("C" & Target.Row & ":Q" & Target.Row).Interior.ColorIndex = xlNone
End If
End Sub
isabelle
Bonsoir,
le code à isabelle marche mais je voudrais déterminer ma couleur j'ai lu
ceci :Sub couleur()
Coul=Range("A1").Interior.Colorindex
Msgbox coul
End Sub
mais je ne sais pas comment y mettre en oeuvre. J'aimerais bien quelques
commentaire dans le code à isabelle pour comprendre. Merci
J'ai remplacer par le tien pour un essai mais je n'ai pas transformé, aucune
mise en couleur de ma (mes) ligne(s)D'accord avec Isabelle.
Je te propose une autre rédaction qui pourrait être plus simple à modifier
ou à généralise dans le futur...
Private Sub Worksheet_Change(ByVal Target As Range)
If Application.intersect(Target, zone_pilote) Is Nothing Then Exit Sub
Set zone_pilote = range ("B4:B26")
W= couleur(target.text)
Range("C" & Target.Row & ":Q" & Target.Row).Interior.ColorIndex = W
end sub
***********
Function couleur(X as string)
select case X
case "A": couleur = (index couleur voulu pour "A")
...
case "L" : couleur = ...
case else : couleur = xlNone
end select
end function
*************
"isabelle" a écrit dans le message de news:bonjour blackboy,
fait un click droit sur l'onglet de la feuille, sélectionne "Visualiser le
code"
et copie cette macro sur la page blanche.
il ne reste qu'Ã tester.
Private Sub Worksheet_Change(ByVal Target As Range)
plg = Array("A", "V", "AC", "VC", "AP", "VP", "L")
couleur = Array("36", "3", "5", "44", "7", "4", "37")
x = Not IsError(Application.Match(Target, plg, 0))
If x = "Vrai" Then
W = Application.Index(couleur, Application.Match(Target, plg, 0))
Range("C" & Target.Row & ":Q" & Target.Row).Interior.ColorIndex = W
Else
Range("C" & Target.Row & ":Q" & Target.Row).Interior.ColorIndex = xlNone
End If
End Sub
isabelle
Voilà : j'ai une plage de cellule (B4:B26) avec des 8 variables textes
(A,V,AC,VC,AP,VP,L,*).
Ces servent à variables déterminenr ensuite certaines fonctions SI dans
le
reste du tableau (C4:Q26)
Je voudrais par exemple : si en B4 j'inscris la variable AC, le reste de
la
ligne (C4:Q4) prenne une couleur définie pour cette variable AC.
Si un code VBA est à inscrire : ou ? comment l'appliquer ?
Merci PMLÃ , il faut que tu soit plus explicite.
Decris-moi vraiment ton pb, ok ?
A+
"blackboy" a écrit dans le
message de
news:Salut PM,
Tu sous entends que je dois créer une macro avec ton code puis lui
associer
un bouton et ensite cliquer régulièrement sur ce bouton quant je
complète
mon
tableau ?
Quant aux couleurs comment savoir le code à écrire pour telle ou
telle
couleur voulue ? MerciEst-ce que ceci ferait l'affaire ?
Select case maVarTexte
Case texte1
cells(a,b).interior.colorindex = n
....
etc.
Si les valeurs Text1 etc. sont variables, entrées dans des cases
données,
ce
serait pareil sauf que l'on ferait
Case cells(celluledonnée).text
Bon courage.
"blackboy" a écrit dans le
message
de
news:Bonjour à la communauté,
Je souhaiterais donner une couleur fixe et automatique à une
plage de
cellules suivant huit variables textes placées d'une plage de
cellules
Merci
bonjour blackboy,
il faufrait modifier comme ça,
Private Sub Worksheet_Change(ByVal Target As Range)
Set Sh = Sheets("VarCouleur")
Set plg = Sh.Range("A1:A" & Sh.Range("A65536").End(xlUp).Row)
x = Not IsError(Application.Match(Target, plg, 0))
If Not IsError(Application.Match(Target, plg, 0)) Then
With Sheets("VarCouleur").Range("A" & Application.Match(Target, plg, 0)).Interior
CI = .ColorIndex
P = .Pattern
PCI = .PatternColorIndex
End With
With Range("C" & Target.Row & ":Q" & Target.Row).Interior
.ColorIndex = CI
.Pattern = P
.PatternColorIndex = PCI
End With
Else
Range("C" & Target.Row & ":Q" & Target.Row).Interior.ColorIndex = xlNone
End If
End Sub
isabelle
Bonjour Isabelle,
T'es merveilleuse de solutions, ton code est impeccable.
Si par exemple dans une des variables, je souhaite mettre un motif et non
une couleur, comment modifier le code ? si trop compliqué, laisse tomber ma
question.
Merci
bonjour blackboy,
cela serait surement moin compliqué si la liste des variables est placée dans une plage de cellule
tu pourrais alors mettre les couleurs désirer sur chaque cellule contenant une variable,
de cette facon tu pourrais plus facilement modifier une couleur ou ajouter des variables.
dans cette exemple j'ai ajouté une feuille au classeur, et je l'ai nommer "VarCouleur"
dans les cellules de A1 à Ax j'ai mis les variables et j'ai coloré chaque cellules (A1:Ax) d'une couleur différente.
le code est modifier comme ça,
Private Sub Worksheet_Change(ByVal Target As Range)
Set Sh = Sheets("VarCouleur")
Set plg = Sh.Range("A1:A" & Sh.Range("A65536").End(xlUp).Row)
x = Not IsError(Application.Match(Target, plg, 0))
If Not IsError(Application.Match(Target, plg, 0)) Then
VC = Sheets("VarCouleur").Range("A" & Application.Match(Target, plg, 0)).Interior.ColorIndex
Range("C" & Target.Row & ":Q" & Target.Row).Interior.ColorIndex = VC
Else
Range("C" & Target.Row & ":Q" & Target.Row).Interior.ColorIndex = xlNone
End If
End Sub
isabelle
Bonsoir,
le code à isabelle marche mais je voudrais déterminer ma couleur j'ai lu
ceci :
Sub couleur()
Coul=Range("A1").Interior.Colorindex
Msgbox coul
End Sub
mais je ne sais pas comment y mettre en oeuvre. J'aimerais bien quelques
commentaire dans le code à isabelle pour comprendre. Merci
J'ai remplacer par le tien pour un essai mais je n'ai pas transformé, aucune
mise en couleur de ma (mes) ligne(s)
D'accord avec Isabelle.
Je te propose une autre rédaction qui pourrait être plus simple à modifier
ou à généralise dans le futur...
Private Sub Worksheet_Change(ByVal Target As Range)
If Application.intersect(Target, zone_pilote) Is Nothing Then Exit Sub
Set zone_pilote = range ("B4:B26")
W= couleur(target.text)
Range("C" & Target.Row & ":Q" & Target.Row).Interior.ColorIndex = W
end sub
***********
Function couleur(X as string)
select case X
case "A": couleur = (index couleur voulu pour "A")
...
case "L" : couleur = ...
case else : couleur = xlNone
end select
end function
*************
"isabelle" <as.isabellevIE@videotron.ca> a écrit dans le message de news:
4182A7EA.78DB028D@videotron.ca...
bonjour blackboy,
fait un click droit sur l'onglet de la feuille, sélectionne "Visualiser le
code"
et copie cette macro sur la page blanche.
il ne reste qu'Ã tester.
Private Sub Worksheet_Change(ByVal Target As Range)
plg = Array("A", "V", "AC", "VC", "AP", "VP", "L")
couleur = Array("36", "3", "5", "44", "7", "4", "37")
x = Not IsError(Application.Match(Target, plg, 0))
If x = "Vrai" Then
W = Application.Index(couleur, Application.Match(Target, plg, 0))
Range("C" & Target.Row & ":Q" & Target.Row).Interior.ColorIndex = W
Else
Range("C" & Target.Row & ":Q" & Target.Row).Interior.ColorIndex = xlNone
End If
End Sub
isabelle
Voilà : j'ai une plage de cellule (B4:B26) avec des 8 variables textes
(A,V,AC,VC,AP,VP,L,*).
Ces servent à variables déterminenr ensuite certaines fonctions SI dans
le
reste du tableau (C4:Q26)
Je voudrais par exemple : si en B4 j'inscris la variable AC, le reste de
la
ligne (C4:Q4) prenne une couleur définie pour cette variable AC.
Si un code VBA est à inscrire : ou ? comment l'appliquer ?
Merci PM
LÃ , il faut que tu soit plus explicite.
Decris-moi vraiment ton pb, ok ?
A+
"blackboy" <blackboy@discussions.microsoft.com> a écrit dans le
message de
news: 704F202D-F369-42DA-98FD-78C75F82E660@microsoft.com...
Salut PM,
Tu sous entends que je dois créer une macro avec ton code puis lui
associer
un bouton et ensite cliquer régulièrement sur ce bouton quant je
complète
mon
tableau ?
Quant aux couleurs comment savoir le code à écrire pour telle ou
telle
couleur voulue ? Merci
Est-ce que ceci ferait l'affaire ?
Select case maVarTexte
Case texte1
cells(a,b).interior.colorindex = n
....
etc.
Si les valeurs Text1 etc. sont variables, entrées dans des cases
données,
ce
serait pareil sauf que l'on ferait
Case cells(celluledonnée).text
Bon courage.
"blackboy" <blackboy@discussions.microsoft.com> a écrit dans le
message
de
news: ACACFAFC-A667-4A18-A1A5-2FC387ABCBDB@microsoft.com...
Bonjour à la communauté,
Je souhaiterais donner une couleur fixe et automatique à une
plage de
cellules suivant huit variables textes placées d'une plage de
cellules
Merci
bonjour blackboy,
il faufrait modifier comme ça,
Private Sub Worksheet_Change(ByVal Target As Range)
Set Sh = Sheets("VarCouleur")
Set plg = Sh.Range("A1:A" & Sh.Range("A65536").End(xlUp).Row)
x = Not IsError(Application.Match(Target, plg, 0))
If Not IsError(Application.Match(Target, plg, 0)) Then
With Sheets("VarCouleur").Range("A" & Application.Match(Target, plg, 0)).Interior
CI = .ColorIndex
P = .Pattern
PCI = .PatternColorIndex
End With
With Range("C" & Target.Row & ":Q" & Target.Row).Interior
.ColorIndex = CI
.Pattern = P
.PatternColorIndex = PCI
End With
Else
Range("C" & Target.Row & ":Q" & Target.Row).Interior.ColorIndex = xlNone
End If
End Sub
isabelle
Bonjour Isabelle,
T'es merveilleuse de solutions, ton code est impeccable.
Si par exemple dans une des variables, je souhaite mettre un motif et non
une couleur, comment modifier le code ? si trop compliqué, laisse tomber ma
question.
Mercibonjour blackboy,
cela serait surement moin compliqué si la liste des variables est placée dans une plage de cellule
tu pourrais alors mettre les couleurs désirer sur chaque cellule contenant une variable,
de cette facon tu pourrais plus facilement modifier une couleur ou ajouter des variables.
dans cette exemple j'ai ajouté une feuille au classeur, et je l'ai nommer "VarCouleur"
dans les cellules de A1 à Ax j'ai mis les variables et j'ai coloré chaque cellules (A1:Ax) d'une couleur différente.
le code est modifier comme ça,
Private Sub Worksheet_Change(ByVal Target As Range)
Set Sh = Sheets("VarCouleur")
Set plg = Sh.Range("A1:A" & Sh.Range("A65536").End(xlUp).Row)
x = Not IsError(Application.Match(Target, plg, 0))
If Not IsError(Application.Match(Target, plg, 0)) Then
VC = Sheets("VarCouleur").Range("A" & Application.Match(Target, plg, 0)).Interior.ColorIndex
Range("C" & Target.Row & ":Q" & Target.Row).Interior.ColorIndex = VC
Else
Range("C" & Target.Row & ":Q" & Target.Row).Interior.ColorIndex = xlNone
End If
End Sub
isabelle
Bonsoir,
le code à isabelle marche mais je voudrais déterminer ma couleur j'ai lu
ceci :Sub couleur()
Coul=Range("A1").Interior.Colorindex
Msgbox coul
End Sub
mais je ne sais pas comment y mettre en oeuvre. J'aimerais bien quelques
commentaire dans le code à isabelle pour comprendre. Merci
J'ai remplacer par le tien pour un essai mais je n'ai pas transformé, aucune
mise en couleur de ma (mes) ligne(s)D'accord avec Isabelle.
Je te propose une autre rédaction qui pourrait être plus simple à modifier
ou à généralise dans le futur...
Private Sub Worksheet_Change(ByVal Target As Range)
If Application.intersect(Target, zone_pilote) Is Nothing Then Exit Sub
Set zone_pilote = range ("B4:B26")
W= couleur(target.text)
Range("C" & Target.Row & ":Q" & Target.Row).Interior.ColorIndex = W
end sub
***********
Function couleur(X as string)
select case X
case "A": couleur = (index couleur voulu pour "A")
...
case "L" : couleur = ...
case else : couleur = xlNone
end select
end function
*************
"isabelle" a écrit dans le message de news:bonjour blackboy,
fait un click droit sur l'onglet de la feuille, sélectionne "Visualiser le
code"
et copie cette macro sur la page blanche.
il ne reste qu'Ã tester.
Private Sub Worksheet_Change(ByVal Target As Range)
plg = Array("A", "V", "AC", "VC", "AP", "VP", "L")
couleur = Array("36", "3", "5", "44", "7", "4", "37")
x = Not IsError(Application.Match(Target, plg, 0))
If x = "Vrai" Then
W = Application.Index(couleur, Application.Match(Target, plg, 0))
Range("C" & Target.Row & ":Q" & Target.Row).Interior.ColorIndex = W
Else
Range("C" & Target.Row & ":Q" & Target.Row).Interior.ColorIndex = xlNone
End If
End Sub
isabelle
Voilà : j'ai une plage de cellule (B4:B26) avec des 8 variables textes
(A,V,AC,VC,AP,VP,L,*).
Ces servent à variables déterminenr ensuite certaines fonctions SI dans
le
reste du tableau (C4:Q26)
Je voudrais par exemple : si en B4 j'inscris la variable AC, le reste de
la
ligne (C4:Q4) prenne une couleur définie pour cette variable AC.
Si un code VBA est à inscrire : ou ? comment l'appliquer ?
Merci PMLÃ , il faut que tu soit plus explicite.
Decris-moi vraiment ton pb, ok ?
A+
"blackboy" a écrit dans le
message de
news:Salut PM,
Tu sous entends que je dois créer une macro avec ton code puis lui
associer
un bouton et ensite cliquer régulièrement sur ce bouton quant je
complète
mon
tableau ?
Quant aux couleurs comment savoir le code à écrire pour telle ou
telle
couleur voulue ? MerciEst-ce que ceci ferait l'affaire ?
Select case maVarTexte
Case texte1
cells(a,b).interior.colorindex = n
....
etc.
Si les valeurs Text1 etc. sont variables, entrées dans des cases
données,
ce
serait pareil sauf que l'on ferait
Case cells(celluledonnée).text
Bon courage.
"blackboy" a écrit dans le
message
de
news:Bonjour à la communauté,
Je souhaiterais donner une couleur fixe et automatique à une
plage de
cellules suivant huit variables textes placées d'une plage de
cellules
Merci
PARFAIT,
Une petite dernière si j'ose : J'ai essayé d'adapter ton code (pour colorier
les lignes suivant les vaiables) mais sans succès.
Je désirerais attribuer une couleur de cellule suivant la variable inscrite
dans la colonne A. Genre MEFC mais trop de variables.
Merci pour ton aide
PARFAIT,
Une petite dernière si j'ose : J'ai essayé d'adapter ton code (pour colorier
les lignes suivant les vaiables) mais sans succès.
Je désirerais attribuer une couleur de cellule suivant la variable inscrite
dans la colonne A. Genre MEFC mais trop de variables.
Merci pour ton aide
PARFAIT,
Une petite dernière si j'ose : J'ai essayé d'adapter ton code (pour colorier
les lignes suivant les vaiables) mais sans succès.
Je désirerais attribuer une couleur de cellule suivant la variable inscrite
dans la colonne A. Genre MEFC mais trop de variables.
Merci pour ton aide
bonjour blackboy,
je ne suis pas sur de bien comprendre, est comme ça que tu veut ?
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
Set Sh = Sheets("VarCouleur")
Set plg = Sh.Range("A1:A" & Sh.Range("A65536").End(xlUp).Row)
x = Not IsError(Application.Match(Target, plg, 0))
If x Then
y = Application.Match(Target, plg, 0)
With Sheets("VarCouleur").Range("A" & y).Interior
CI = .ColorIndex
P = .Pattern
PCI = .PatternColorIndex
End With
With Range("C" & Target.Row & ":Q" & Target.Row).Interior
.ColorIndex = CI
.Pattern = P
.PatternColorIndex = PCI
End With
Else
Range("C" & Target.Row & ":Q" & Target.Row).Interior.ColorIndex = xlNone
End If
End If
End Sub
isabelle
PARFAIT,
Une petite dernière si j'ose : J'ai essayé d'adapter ton code (pour colorier
les lignes suivant les vaiables) mais sans succès.
Je désirerais attribuer une couleur de cellule suivant la variable inscrite
dans la colonne A. Genre MEFC mais trop de variables.
Merci pour ton aide
bonjour blackboy,
je ne suis pas sur de bien comprendre, est comme ça que tu veut ?
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
Set Sh = Sheets("VarCouleur")
Set plg = Sh.Range("A1:A" & Sh.Range("A65536").End(xlUp).Row)
x = Not IsError(Application.Match(Target, plg, 0))
If x Then
y = Application.Match(Target, plg, 0)
With Sheets("VarCouleur").Range("A" & y).Interior
CI = .ColorIndex
P = .Pattern
PCI = .PatternColorIndex
End With
With Range("C" & Target.Row & ":Q" & Target.Row).Interior
.ColorIndex = CI
.Pattern = P
.PatternColorIndex = PCI
End With
Else
Range("C" & Target.Row & ":Q" & Target.Row).Interior.ColorIndex = xlNone
End If
End If
End Sub
isabelle
PARFAIT,
Une petite dernière si j'ose : J'ai essayé d'adapter ton code (pour colorier
les lignes suivant les vaiables) mais sans succès.
Je désirerais attribuer une couleur de cellule suivant la variable inscrite
dans la colonne A. Genre MEFC mais trop de variables.
Merci pour ton aide
bonjour blackboy,
je ne suis pas sur de bien comprendre, est comme ça que tu veut ?
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
Set Sh = Sheets("VarCouleur")
Set plg = Sh.Range("A1:A" & Sh.Range("A65536").End(xlUp).Row)
x = Not IsError(Application.Match(Target, plg, 0))
If x Then
y = Application.Match(Target, plg, 0)
With Sheets("VarCouleur").Range("A" & y).Interior
CI = .ColorIndex
P = .Pattern
PCI = .PatternColorIndex
End With
With Range("C" & Target.Row & ":Q" & Target.Row).Interior
.ColorIndex = CI
.Pattern = P
.PatternColorIndex = PCI
End With
Else
Range("C" & Target.Row & ":Q" & Target.Row).Interior.ColorIndex = xlNone
End If
End If
End Sub
isabelle
PARFAIT,
Une petite dernière si j'ose : J'ai essayé d'adapter ton code (pour colorier
les lignes suivant les vaiables) mais sans succès.
Je désirerais attribuer une couleur de cellule suivant la variable inscrite
dans la colonne A. Genre MEFC mais trop de variables.
Merci pour ton aide
