Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Colorier une cellule automatiquement celon des lettres

Colorier une cellule automatiquement celon des lettres

8 réponses
Avatar
Titou
Bonjours à tous
J’ai un fichier ou je peux mettre dans les cases différentes lettres
"V"
"GB"
"HH"
"BH"
"RH"
J'aimerai que lorsque je tape l'une de ces lettre sa colorie la case d'une
couleur différente pour chacun d'entre eu

Merci

Ps : j'ai essayé sa mais j'ai du mal


Sub COULEUR()
' Private Sub Worksheet_Change(ByVal Target As Range)
' Select Case Target.Value
' Case GB
' Target.Interior.ColorIndex = 2
' Case V
' Target.Interior.ColorIndex = 4
' Case HH
' Target.Interior.ColorIndex = 6
' Case BH
' Target.Interior.ColorIndex = 8
' Case RH
' Target.Interior.ColorIndex = 10
' End Select
End Sub
Signaler un problème avec ce contenu

8 réponses

Supprimer
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
Avatar
JB
Bonjour,

Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Value
Case "GB"
Target.Interior.ColorIndex = 3
Case "V"
Target.Interior.ColorIndex = 4
Case "HH"
Target.Interior.ColorIndex = 6
Case "BH"
Target.Interior.ColorIndex = 8
Case "RH"
Target.Interior.ColorIndex = 10
End Select
End Sub

Cordialement JB


Bonjours à tous
J'ai un fichier ou je peux mettre dans les cases différentes lettres
"V"
"GB"
"HH"
"BH"
"RH"
J'aimerai que lorsque je tape l'une de ces lettre sa colorie la case d'une
couleur différente pour chacun d'entre eu

Merci

Ps : j'ai essayé sa mais j'ai du mal


Sub COULEUR()
' Private Sub Worksheet_Change(ByVal Target As Range)
' Select Case Target.Value
' Case GB
' Target.Interior.ColorIndex = 2
' Case V
' Target.Interior.ColorIndex = 4
' Case HH
' Target.Interior.ColorIndex = 6
' Case BH
' Target.Interior.ColorIndex = 8
' Case RH
' Target.Interior.ColorIndex = 10
' End Select
End Sub


Avatar
Titou
Merci

j'ai fait un coupier coller dans ma macro,
mais rien ne se passe???
je peux écrire V ou GB ou RH sa ne change rien du tout???

il faut bien que je créé une macro pour faire sa ??

merci pour la réponce



Bonjour,

Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Value
Case "GB"
Target.Interior.ColorIndex = 3
Case "V"
Target.Interior.ColorIndex = 4
Case "HH"
Target.Interior.ColorIndex = 6
Case "BH"
Target.Interior.ColorIndex = 8
Case "RH"
Target.Interior.ColorIndex = 10
End Select
End Sub

Cordialement JB


Bonjours à tous
J'ai un fichier ou je peux mettre dans les cases différentes lettres
"V"
"GB"
"HH"
"BH"
"RH"
J'aimerai que lorsque je tape l'une de ces lettre sa colorie la case d'une
couleur différente pour chacun d'entre eu

Merci

Ps : j'ai essayé sa mais j'ai du mal


Sub COULEUR()
' Private Sub Worksheet_Change(ByVal Target As Range)
' Select Case Target.Value
' Case GB
' Target.Interior.ColorIndex = 2
' Case V
' Target.Interior.ColorIndex = 4
' Case HH
' Target.Interior.ColorIndex = 6
' Case BH
' Target.Interior.ColorIndex = 8
' Case RH
' Target.Interior.ColorIndex = 10
' End Select
End Sub






Avatar
ma_komba
Bonjour,
Une façon de faire se trouve sur ce site :
http://xxl.vnunetblog.fr/xxl/2005/04/colorations_mul.html

Bonne journée. Ma_

Titou schrieb:

Bonjours à tous
J'ai un fichier ou je peux mettre dans les cases différentes lettres
"V"
"GB"
"HH"
"BH"
"RH"
J'aimerai que lorsque je tape l'une de ces lettre sa colorie la case d'une
couleur différente pour chacun d'entre eu

Merci

Ps : j'ai essayé sa mais j'ai du mal


Sub COULEUR()
' Private Sub Worksheet_Change(ByVal Target As Range)
' Select Case Target.Value
' Case GB
' Target.Interior.ColorIndex = 2
' Case V
' Target.Interior.ColorIndex = 4
' Case HH
' Target.Interior.ColorIndex = 6
' Case BH
' Target.Interior.ColorIndex = 8
' Case RH
' Target.Interior.ColorIndex = 10
' End Select
End Sub


Avatar
jps
bonjour titou
ce que t'a écrit JB, tu dois le coller tel quel dans un module de ta feuille
et ça marche comme sur des roulettes
jps

"Titou" a écrit dans le message de news:

Merci

j'ai fait un coupier coller dans ma macro,
mais rien ne se passe???
je peux écrire V ou GB ou RH sa ne change rien du tout???

il faut bien que je créé une macro pour faire sa ??

merci pour la réponce



Bonjour,

Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Value
Case "GB"
Target.Interior.ColorIndex = 3
Case "V"
Target.Interior.ColorIndex = 4
Case "HH"
Target.Interior.ColorIndex = 6
Case "BH"
Target.Interior.ColorIndex = 8
Case "RH"
Target.Interior.ColorIndex = 10
End Select
End Sub

Cordialement JB


Bonjours à tous
J'ai un fichier ou je peux mettre dans les cases différentes lettres
"V"
"GB"
"HH"
"BH"
"RH"
J'aimerai que lorsque je tape l'une de ces lettre sa colorie la case
d'une
couleur différente pour chacun d'entre eu

Merci

Ps : j'ai essayé sa mais j'ai du mal


Sub COULEUR()
' Private Sub Worksheet_Change(ByVal Target As Range)
' Select Case Target.Value
' Case GB
' Target.Interior.ColorIndex = 2
' Case V
' Target.Interior.ColorIndex = 4
' Case HH
' Target.Interior.ColorIndex = 6
' Case BH
' Target.Interior.ColorIndex = 8
' Case RH
' Target.Interior.ColorIndex = 10
' End Select
End Sub








Avatar
JacquesH
Bonjour,

La macro donnée par JB fonctionne parfaitement.

A mon avis, il ne faut pas "la coller dans ta macro". Il faut la
sélectionner telle quelle, la copier dans le projet VBA de la feuille
dans laquelle tu veux réaliser la saisie :
- Alt F11
- Sélectionner la feuille souhaitée.
- Selectionner Worksheet dans la liste déroulante (Général).
- Coller la Macro sans tenir compte de ce qui apparaît.

Jacques



Merci

j'ai fait un coupier coller dans ma macro,
mais rien ne se passe???
je peux écrire V ou GB ou RH sa ne change rien du tout???

il faut bien que je créé une macro pour faire sa ??

merci pour la réponce




Bonjour,

Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Value
Case "GB"
Target.Interior.ColorIndex = 3
Case "V"
Target.Interior.ColorIndex = 4
Case "HH"
Target.Interior.ColorIndex = 6
Case "BH"
Target.Interior.ColorIndex = 8
Case "RH"
Target.Interior.ColorIndex = 10
End Select
End Sub

Cordialement JB



Bonjours à tous
J'ai un fichier ou je peux mettre dans les cases différentes lettres
"V"
"GB"
"HH"
"BH"
"RH"
J'aimerai que lorsque je tape l'une de ces lettre sa colorie la case d'une
couleur différente pour chacun d'entre eu

Merci

Ps : j'ai essayé sa mais j'ai du mal


Sub COULEUR()
' Private Sub Worksheet_Change(ByVal Target As Range)
' Select Case Target.Value
' Case GB
' Target.Interior.ColorIndex = 2
' Case V
' Target.Interior.ColorIndex = 4
' Case HH
' Target.Interior.ColorIndex = 6
' Case BH
' Target.Interior.ColorIndex = 8
' Case RH
' Target.Interior.ColorIndex = 10
' End Select
End Sub








Avatar
lSteph
Bonjour,
Ce que JB propose répond parfaitement à la question telle que posée
alors juste peut-être
si l'on veut faire accepter indépendament majuscule et minuscule:

Private Sub Worksheet_Change(ByVal Target As Range)
Select Case UCase(Target.Value)
Case "GB"
Target.Interior.ColorIndex = 3
Case "V"
Target.Interior.ColorIndex = 4
Case "HH"
Target.Interior.ColorIndex = 6
Case "BH"
Target.Interior.ColorIndex = 8
Case "RH"
Target.Interior.ColorIndex = 10
End Select
End Sub

'Cordialement
'lSteph
"Titou" a écrit dans le message de news:

Merci

j'ai fait un coupier coller dans ma macro,
mais rien ne se passe???
je peux écrire V ou GB ou RH sa ne change rien du tout???

il faut bien que je créé une macro pour faire sa ??

merci pour la réponce



Bonjour,

Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Value
Case "GB"
Target.Interior.ColorIndex = 3
Case "V"
Target.Interior.ColorIndex = 4
Case "HH"
Target.Interior.ColorIndex = 6
Case "BH"
Target.Interior.ColorIndex = 8
Case "RH"
Target.Interior.ColorIndex = 10
End Select
End Sub

Cordialement JB


Bonjours à tous
J'ai un fichier ou je peux mettre dans les cases différentes lettres
"V"
"GB"
"HH"
"BH"
"RH"
J'aimerai que lorsque je tape l'une de ces lettre sa colorie la case
d'une
couleur différente pour chacun d'entre eu

Merci

Ps : j'ai essayé sa mais j'ai du mal


Sub COULEUR()
' Private Sub Worksheet_Change(ByVal Target As Range)
' Select Case Target.Value
' Case GB
' Target.Interior.ColorIndex = 2
' Case V
' Target.Interior.ColorIndex = 4
' Case HH
' Target.Interior.ColorIndex = 6
' Case BH
' Target.Interior.ColorIndex = 8
' Case RH
' Target.Interior.ColorIndex = 10
' End Select
End Sub








Avatar
lSteph
Re,
une petite rectif en plus qd même,
si l'on resaisit autre chose et que c'est déjà colorié

Private Sub Worksheet_Change(ByVal Target As Range)
Select Case UCase(Target.Value)
Case "GB"
Target.Interior.ColorIndex = 3
Case "V"
Target.Interior.ColorIndex = 4
Case "HH"
Target.Interior.ColorIndex = 6
Case "BH"
Target.Interior.ColorIndex = 8
Case "RH"
Target.Interior.ColorIndex = 10
Case Else
Target.Interior.ColorIndex = 0
End Select
End Sub

'lSteph
"Titou" a écrit dans le message de news:

Merci

j'ai fait un coupier coller dans ma macro,
mais rien ne se passe???
je peux écrire V ou GB ou RH sa ne change rien du tout???

il faut bien que je créé une macro pour faire sa ??

merci pour la réponce



Bonjour,

Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Value
Case "GB"
Target.Interior.ColorIndex = 3
Case "V"
Target.Interior.ColorIndex = 4
Case "HH"
Target.Interior.ColorIndex = 6
Case "BH"
Target.Interior.ColorIndex = 8
Case "RH"
Target.Interior.ColorIndex = 10
End Select
End Sub

Cordialement JB


Bonjours à tous
J'ai un fichier ou je peux mettre dans les cases différentes lettres
"V"
"GB"
"HH"
"BH"
"RH"
J'aimerai que lorsque je tape l'une de ces lettre sa colorie la case
d'une
couleur différente pour chacun d'entre eu

Merci

Ps : j'ai essayé sa mais j'ai du mal


Sub COULEUR()
' Private Sub Worksheet_Change(ByVal Target As Range)
' Select Case Target.Value
' Case GB
' Target.Interior.ColorIndex = 2
' Case V
' Target.Interior.ColorIndex = 4
' Case HH
' Target.Interior.ColorIndex = 6
' Case BH
' Target.Interior.ColorIndex = 8
' Case RH
' Target.Interior.ColorIndex = 10
' End Select
End Sub








Avatar
Titou
Merci à tous tout marche super bien


Bonjour,

La macro donnée par JB fonctionne parfaitement.

A mon avis, il ne faut pas "la coller dans ta macro". Il faut la
sélectionner telle quelle, la copier dans le projet VBA de la feuille
dans laquelle tu veux réaliser la saisie :
- Alt F11
- Sélectionner la feuille souhaitée.
- Selectionner Worksheet dans la liste déroulante (Général).
- Coller la Macro sans tenir compte de ce qui apparaît.

Jacques



Merci

j'ai fait un coupier coller dans ma macro,
mais rien ne se passe???
je peux écrire V ou GB ou RH sa ne change rien du tout???

il faut bien que je créé une macro pour faire sa ??

merci pour la réponce




Bonjour,

Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Value
Case "GB"
Target.Interior.ColorIndex = 3
Case "V"
Target.Interior.ColorIndex = 4
Case "HH"
Target.Interior.ColorIndex = 6
Case "BH"
Target.Interior.ColorIndex = 8
Case "RH"
Target.Interior.ColorIndex = 10
End Select
End Sub

Cordialement JB



Bonjours à tous
J'ai un fichier ou je peux mettre dans les cases différentes lettres
"V"
"GB"
"HH"
"BH"
"RH"
J'aimerai que lorsque je tape l'une de ces lettre sa colorie la case d'une
couleur différente pour chacun d'entre eu

Merci

Ps : j'ai essayé sa mais j'ai du mal


Sub COULEUR()
' Private Sub Worksheet_Change(ByVal Target As Range)
' Select Case Target.Value
' Case GB
' Target.Interior.ColorIndex = 2
' Case V
' Target.Interior.ColorIndex = 4
' Case HH
' Target.Interior.ColorIndex = 6
' Case BH
' Target.Interior.ColorIndex = 8
' Case RH
' Target.Interior.ColorIndex = 10
' End Select
End Sub