Bonsoir à toutes et à tous,
En VBA SVP.
Comment pourrais je mettre une couleur à une cellules par un test.
Colonnes
A B C D E F G
H I J .........
ESS BLANC BLEU BLEU
GO BLEU BLANC BLEU
FT BLEU BLEU BLANC
ESS BLANC BLEU BLEU
...
...
...
Merci pour votre aide, je pèche (Novice)
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
Denis Michon
Bonjour Olivier,
Quel est le test dont tu parles dans ta question ?
Salutations!
"olivier" a écrit dans le message de news:bn3qf6$96t$ Bonsoir à toutes et à tous, En VBA SVP. Comment pourrais je mettre une couleur à une cellules par un test.
Colonnes A B C D E F G H I J ......... ESS BLANC BLEU BLEU GO BLEU BLANC BLEU FT BLEU BLEU BLANC ESS BLANC BLEU BLEU ... ... ... Merci pour votre aide, je pèche (Novice)
Bonjour Olivier,
Quel est le test dont tu parles dans ta question ?
Salutations!
"olivier" <thiryo@wanadoo.fr> a écrit dans le message de news:bn3qf6$96t$1@news-reader2.wanadoo.fr...
Bonsoir à toutes et à tous,
En VBA SVP.
Comment pourrais je mettre une couleur à une cellules par un test.
Colonnes
A B C D E F G
H I J .........
ESS BLANC BLEU BLEU
GO BLEU BLANC BLEU
FT BLEU BLEU BLANC
ESS BLANC BLEU BLEU
...
...
...
Merci pour votre aide, je pèche (Novice)
Quel est le test dont tu parles dans ta question ?
Salutations!
"olivier" a écrit dans le message de news:bn3qf6$96t$ Bonsoir à toutes et à tous, En VBA SVP. Comment pourrais je mettre une couleur à une cellules par un test.
Colonnes A B C D E F G H I J ......... ESS BLANC BLEU BLEU GO BLEU BLANC BLEU FT BLEU BLEU BLANC ESS BLANC BLEU BLEU ... ... ... Merci pour votre aide, je pèche (Novice)
isabelle
bonjour Olivier,
colore le texte If test = vrai Then Selection.Font.ColorIndex = 46
colore la cellule If test = vrai Then Selection.Interior.ColorIndex = 3
isabelle
Bonsoir à toutes et à tous, En VBA SVP. Comment pourrais je mettre une couleur à une cellules par un test.
Colonnes A B C D E F G H I J ......... ESS BLANC BLEU BLEU GO BLEU BLANC BLEU FT BLEU BLEU BLANC ESS BLANC BLEU BLEU ... ... ... Merci pour votre aide, je pèche (Novice)
bonjour Olivier,
colore le texte
If test = vrai Then Selection.Font.ColorIndex = 46
colore la cellule
If test = vrai Then Selection.Interior.ColorIndex = 3
isabelle
Bonsoir à toutes et à tous,
En VBA SVP.
Comment pourrais je mettre une couleur à une cellules par un test.
Colonnes
A B C D E F G
H I J .........
ESS BLANC BLEU BLEU
GO BLEU BLANC BLEU
FT BLEU BLEU BLANC
ESS BLANC BLEU BLEU
...
...
...
Merci pour votre aide, je pèche (Novice)
colore le texte If test = vrai Then Selection.Font.ColorIndex = 46
colore la cellule If test = vrai Then Selection.Interior.ColorIndex = 3
isabelle
Bonsoir à toutes et à tous, En VBA SVP. Comment pourrais je mettre une couleur à une cellules par un test.
Colonnes A B C D E F G H I J ......... ESS BLANC BLEU BLEU GO BLEU BLANC BLEU FT BLEU BLEU BLANC ESS BLANC BLEU BLEU ... ... ... Merci pour votre aide, je pèche (Novice)
olivier
Bonsoir, Merci de m'avoir lu, Voilà: Si en colonne C, ESS mettre F et G en Bleu Si en colonne C, GO mettre E et G en Bleu ECT... Merci pour la solution. Salutations "Denis Michon" a écrit dans le message de news:98elb.8845$
Bonjour Olivier,
Quel est le test dont tu parles dans ta question ?
Salutations!
"olivier" a écrit dans le message de news:bn3qf6$96t$
Bonsoir à toutes et à tous, En VBA SVP. Comment pourrais je mettre une couleur à une cellules par un test.
Colonnes A B C D E F G H I J ......... ESS BLANC BLEU BLEU GO BLEU BLANC BLEU FT BLEU BLEU BLANC ESS BLANC BLEU BLEU ... ... ... Merci pour votre aide, je pèche (Novice)
Bonsoir,
Merci de m'avoir lu,
Voilà:
Si en colonne C, ESS mettre F et G en Bleu
Si en colonne C, GO mettre E et G en Bleu
ECT...
Merci pour la solution.
Salutations
"Denis Michon" <denis.michon@cgocable.ca> a écrit dans le message de
news:98elb.8845$V11.8357@charlie.risq.qc.ca...
Bonjour Olivier,
Quel est le test dont tu parles dans ta question ?
Salutations!
"olivier" <thiryo@wanadoo.fr> a écrit dans le message de
news:bn3qf6$96t$1@news-reader2.wanadoo.fr...
Bonsoir à toutes et à tous,
En VBA SVP.
Comment pourrais je mettre une couleur à une cellules par un test.
Colonnes
A B C D E F G
H I J .........
ESS BLANC BLEU BLEU
GO BLEU BLANC BLEU
FT BLEU BLEU BLANC
ESS BLANC BLEU BLEU
...
...
...
Merci pour votre aide, je pèche (Novice)
Bonsoir, Merci de m'avoir lu, Voilà: Si en colonne C, ESS mettre F et G en Bleu Si en colonne C, GO mettre E et G en Bleu ECT... Merci pour la solution. Salutations "Denis Michon" a écrit dans le message de news:98elb.8845$
Bonjour Olivier,
Quel est le test dont tu parles dans ta question ?
Salutations!
"olivier" a écrit dans le message de news:bn3qf6$96t$
Bonsoir à toutes et à tous, En VBA SVP. Comment pourrais je mettre une couleur à une cellules par un test.
Colonnes A B C D E F G H I J ......... ESS BLANC BLEU BLEU GO BLEU BLANC BLEU FT BLEU BLEU BLANC ESS BLANC BLEU BLEU ... ... ... Merci pour votre aide, je pèche (Novice)
Denis Michon
Bonjour Olivier,
Copie ce qui suit dans le module feuille où l'action se déroule :
Tu peux ajouter autant de Case que tu le désires .
'-------------------------------- Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rg As Range Set Rg = Intersect(Columns(3), Target)
If Not Rg Is Nothing Then For Each c In Rg Select Case UCase(c.Text) Case Is = "ESS" 'Efface la couleur de E , F , G c.Offset(, 2).Resize(, 2).Interior.ColorIndex = xlNone 'Met de la couleur à F, G c.Offset(, 3).Resize(, 2).Interior.ColorIndex = 3 Case Is = "GO" 'Efface la couleur de E , F , G c.Offset(, 2).Resize(, 3).Interior.ColorIndex = xlNone 'Met de la couleur à E, F c.Offset(, 2).Resize(, 2).Interior.ColorIndex = 25
Case Else c.Offset(, 3).Resize(, 2).Interior.ColorIndex = xlNone End Select Next End If
End Sub '--------------------------------
Salutations!
"olivier" a écrit dans le message de news:bn3r9c$j8r$ Bonsoir, Merci de m'avoir lu, Voilà: Si en colonne C, ESS mettre F et G en Bleu Si en colonne C, GO mettre E et G en Bleu ECT... Merci pour la solution. Salutations "Denis Michon" a écrit dans le message de news:98elb.8845$
Bonjour Olivier,
Quel est le test dont tu parles dans ta question ?
Salutations!
"olivier" a écrit dans le message de news:bn3qf6$96t$
Bonsoir à toutes et à tous, En VBA SVP. Comment pourrais je mettre une couleur à une cellules par un test.
Colonnes A B C D E F G H I J ......... ESS BLANC BLEU BLEU GO BLEU BLANC BLEU FT BLEU BLEU BLANC ESS BLANC BLEU BLEU ... ... ... Merci pour votre aide, je pèche (Novice)
Bonjour Olivier,
Copie ce qui suit dans le module feuille où l'action se déroule :
Tu peux ajouter autant de Case que tu le désires .
'--------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rg As Range
Set Rg = Intersect(Columns(3), Target)
If Not Rg Is Nothing Then
For Each c In Rg
Select Case UCase(c.Text)
Case Is = "ESS"
'Efface la couleur de E , F , G
c.Offset(, 2).Resize(, 2).Interior.ColorIndex = xlNone
'Met de la couleur à F, G
c.Offset(, 3).Resize(, 2).Interior.ColorIndex = 3
Case Is = "GO"
'Efface la couleur de E , F , G
c.Offset(, 2).Resize(, 3).Interior.ColorIndex = xlNone
'Met de la couleur à E, F
c.Offset(, 2).Resize(, 2).Interior.ColorIndex = 25
Case Else
c.Offset(, 3).Resize(, 2).Interior.ColorIndex = xlNone
End Select
Next
End If
End Sub
'--------------------------------
Salutations!
"olivier" <thiryo@wanadoo.fr> a écrit dans le message de news:bn3r9c$j8r$1@news-reader1.wanadoo.fr...
Bonsoir,
Merci de m'avoir lu,
Voilà:
Si en colonne C, ESS mettre F et G en Bleu
Si en colonne C, GO mettre E et G en Bleu
ECT...
Merci pour la solution.
Salutations
"Denis Michon" <denis.michon@cgocable.ca> a écrit dans le message de
news:98elb.8845$V11.8357@charlie.risq.qc.ca...
Bonjour Olivier,
Quel est le test dont tu parles dans ta question ?
Salutations!
"olivier" <thiryo@wanadoo.fr> a écrit dans le message de
news:bn3qf6$96t$1@news-reader2.wanadoo.fr...
Bonsoir à toutes et à tous,
En VBA SVP.
Comment pourrais je mettre une couleur à une cellules par un test.
Colonnes
A B C D E F G
H I J .........
ESS BLANC BLEU BLEU
GO BLEU BLANC BLEU
FT BLEU BLEU BLANC
ESS BLANC BLEU BLEU
...
...
...
Merci pour votre aide, je pèche (Novice)
Copie ce qui suit dans le module feuille où l'action se déroule :
Tu peux ajouter autant de Case que tu le désires .
'-------------------------------- Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rg As Range Set Rg = Intersect(Columns(3), Target)
If Not Rg Is Nothing Then For Each c In Rg Select Case UCase(c.Text) Case Is = "ESS" 'Efface la couleur de E , F , G c.Offset(, 2).Resize(, 2).Interior.ColorIndex = xlNone 'Met de la couleur à F, G c.Offset(, 3).Resize(, 2).Interior.ColorIndex = 3 Case Is = "GO" 'Efface la couleur de E , F , G c.Offset(, 2).Resize(, 3).Interior.ColorIndex = xlNone 'Met de la couleur à E, F c.Offset(, 2).Resize(, 2).Interior.ColorIndex = 25
Case Else c.Offset(, 3).Resize(, 2).Interior.ColorIndex = xlNone End Select Next End If
End Sub '--------------------------------
Salutations!
"olivier" a écrit dans le message de news:bn3r9c$j8r$ Bonsoir, Merci de m'avoir lu, Voilà: Si en colonne C, ESS mettre F et G en Bleu Si en colonne C, GO mettre E et G en Bleu ECT... Merci pour la solution. Salutations "Denis Michon" a écrit dans le message de news:98elb.8845$
Bonjour Olivier,
Quel est le test dont tu parles dans ta question ?
Salutations!
"olivier" a écrit dans le message de news:bn3qf6$96t$
Bonsoir à toutes et à tous, En VBA SVP. Comment pourrais je mettre une couleur à une cellules par un test.
Colonnes A B C D E F G H I J ......... ESS BLANC BLEU BLEU GO BLEU BLANC BLEU FT BLEU BLEU BLANC ESS BLANC BLEU BLEU ... ... ... Merci pour votre aide, je pèche (Novice)
