XL 2021 Coloriser une cellule avec un click d'une colonne

JMC · 20 Novembre 2024

Bonjour à tous,
Me revoilà avec mon tableau pour l'association.
Dans la colonne "E" (virement) je voudrais coloriser automatiquement une cellule (soit la ligne 6 ou une autre qui irait jusqu'à la ligne 25) et cela lorsque je clique sur la cellule concernée.
Exemple, si un adhérent veut payer sa cotisation par virement, au lieu de coloriser manuellement sa ligne avec le pot de peinture de l'accueil, qu'elle se colorise automatiquement, avec une couleur que j'aurai choisi, lorsque je clique dans cette colonne seulement et sur sa ligne. Et cela que pour les "produits" et pour les autres mois de l'année bien sûr
Je vous ai mis en pièce jointe un exemple pour mieux comprendre.
Merci pour votre aide

Cordialement

job75 · 20 Novembre 2024

Bonjour JMC, wDog66, le forum,

Mettez dans ThisWorkbook :

VB:

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
If Left(UCase(Sh.[G1]), 7) <> "PRODUIT" Or Target.Row < 6 Or Target.Column <> 5 Then Exit Sub
Cancel = True
Target.Interior.Color = RGB(189, 215, 238)
End Sub

Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
If Left(UCase(Sh.[G1]), 7) <> "PRODUIT" Or Target.Row < 6 Or Target.Column <> 5 Then Exit Sub
Cancel = True
Target.Interior.ColorIndex = xlNone
End Sub

Double-clic en colonne E pour colorer, clic droit pour effacer la couleur.

A+

wDog66 · 20 Novembre 2024

Bonjour,

Il faut mettre un code dans ThisWorkbook

Exemple

VB:

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
  ' On sort si en dehors des clous
  If Target.Row < 6 Or Target.Row > 25 Then Exit Sub
  ' Clic dans la colonne J
  If Not Intersect(Range("J6:O25"), Target) Is Nothing Then
    Target.Interior.ColorIndex = 6
  End If
End Sub

A+

job75 · 20 Novembre 2024

Bonjour JMC, wDog66, le forum,

Mettez dans ThisWorkbook :

VB:

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
If Left(UCase(Sh.[G1]), 7) <> "PRODUIT" Or Target.Row < 6 Or Target.Column <> 5 Then Exit Sub
Cancel = True
Target.Interior.Color = RGB(189, 215, 238)
End Sub

Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
If Left(UCase(Sh.[G1]), 7) <> "PRODUIT" Or Target.Row < 6 Or Target.Column <> 5 Then Exit Sub
Cancel = True
Target.Interior.ColorIndex = xlNone
End Sub

Double-clic en colonne E pour colorer, clic droit pour effacer la couleur.

A+

JMC · 20 Novembre 2024

Bonjour wDog66 et bonjour job75,
Merci à vous deux pour votre aide.
La solution de job75 est impeccable.
Désolé wDog66 pour le travail que tu as fourni, mais j'ai beau cliquer sur une des cellules de la colonne "E", rien ne se passe. J'ai bien copié/collé ta VBA et bien mis dans ThisWorkbook.
Encore merci pour vos efforts à venir en aide aux amateurs comme moi? J'avais beau regarder sur le net, et essayer avec chatGPT, rien ne fonctionnait.
A une autre fois si j'ai besoin d'aide.
Cordialement

JMC · 20 Novembre 2024

job75 à dit:

Bonjour JMC, wDog66, le forum,

Mettez dans ThisWorkbook :

VB:

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
If Left(UCase(Sh.[G1]), 7) <> "PRODUIT" Or Target.Row < 6 Or Target.Column <> 5 Then Exit Sub
Cancel = True
Target.Interior.Color = RGB(189, 215, 238)
End Sub

Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
If Left(UCase(Sh.[G1]), 7) <> "PRODUIT" Or Target.Row < 6 Or Target.Column <> 5 Then Exit Sub
Cancel = True
Target.Interior.ColorIndex = xlNone
End Sub

Double-clic en colonne E pour colorer, clic droit pour effacer la couleur.

A+

Excuse du dérangement. Je viens de coller ta formule, là où il le faut. Tout fonctionne bien, sauf que pour le mois de novembre (et que ce mois ci tous les autres sont ok) rien ne se passe....

job75 · 20 Novembre 2024

Le texte en G1 doit commencer par PRODUIT sans espace devant.

JMC · 20 Novembre 2024

job75 à dit:
job75 à dit:

Le texte en G1 doit commencer par PRODUIT sans espace devant.

Cliquez pour agrandir...

Je n'ai fais que copier/coller ta formule. Je ne l'ai pas retranscrit manuellement.

job75 · 20 Novembre 2024

Vérifiez dans la feuille de calcul ce que j'ai dit au post #6.

JMC · 20 Novembre 2024

job75 à dit:
Vérifiez dans la feuille de calcul ce que j'ai dit au post #6.

Exact merci je n'avais pas compris. Il s'est avéré que PRODUIT du mois de novembre était légèrement décalé. Comme quoi excel ne fait pas de cadeau pour une si petite erreur...
Encore merci

job75 · 20 Novembre 2024

JMC à dit:
Comme quoi excel ne fait pas de cadeau pour une si petite erreur...

Excel fait ce que mes macros lui disent de faire un point c'est tout.

TooFatBoy · 20 Novembre 2024

job75 à dit:
Excel fait ce que mes macros lui disent de faire un point c'est tout.

Ah non : il fait aussi ce que mes macros lui disent de faire. Mais dans ce cas-là, ça ne fait pas toujours ce qui serait souhaité...

XL 2021 Coloriser une cellule avec un click d'une colonne

JMC

XLDnaute Junior

Pièces jointes

job75

wDog66

XLDnaute Occasionnel

job75

XLDnaute Barbatruc

Pièces jointes

JMC

XLDnaute Junior

JMC

XLDnaute Junior

job75

XLDnaute Barbatruc

JMC

XLDnaute Junior

job75

XLDnaute Barbatruc

JMC

XLDnaute Junior

job75

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

Discussions similaires

XL 2021 Coloriser une cellule avec un click d'une colonne

XLDnaute Junior

Pièces jointes

XLDnaute Occasionnel

XLDnaute Barbatruc

Pièces jointes

XLDnaute Junior

​

XLDnaute Junior

XLDnaute Barbatruc

XLDnaute Junior

XLDnaute Barbatruc

XLDnaute Junior

XLDnaute Barbatruc

XLDnaute Barbatruc

Discussions similaires