XL 2013 changement de couleur avec 3 Clics

[ibni]

Bonjour à tous,
dans le fichier ci-joint j'ai un tableau échéancier,
ce que je souhaite faire c'est quand je clique 3 fois sur n'importe quelle cellule de la colonne C a partir de C15 si C15 n'est pas vide c'est à dire remplis avec texte, j'aurais la couleur orange de la même manière que C15

Cordialement

 

[laetitia90]

re ibni 🙂
tu as rajouté comme dit plus haut T.Offset(, -1).Select avant end sub

cela va forcer la "retroaction" de la cell

heure de l'apero avec mes copines je disparais😛😛😛

 

[ibni]

super laetitia09, j'ai pas fait attention a votre édit
ça fonctionne parfaitement mais le code n'est pas variable c'est à dire ça fonctionne même les cellules vides de la colonne C, chose qu'il faut éviter

 

[laetitia90]

re🙂🙂
en tenant compte des cells vide & simplifiant un peu

 Private Sub Worksheet_BeforeDoubleClick(ByVal T As Range, Cancel As Boolean)
If Not Intersect(T, Range("c15", Cells(Rows.Count, 3).End(3))) Is Nothing And T.Count = 1 And T <> "" Then _
Cells(T.Row, 2).Resize(, 10).Interior.ColorIndex = IIf(T.Interior.ColorIndex = 45, xlNone, 45)
T.Offset(, -1).Select
End Sub

 

[Lone-wolf]

Bonsoir laetitia 🙂

Toujours pas changé d'avis sur Resize(, 10) par Resize(, 8) comme je l'ai dit? 😉

Private Sub Worksheet_BeforeDoubleClick(ByVal T As Range, Cancel As Boolean)
If Not Intersect(T, Range("c15", Cells(Rows.Count, 3).End(3))) Is Nothing And T.Count = 1 And T <> "" Then _
Cells(T.Row, 2).Resize(, 8).Interior.ColorIndex = IIf(T.Interior.Color = RGB(255, 128, 255), xlNone, RGB(255, 128, 255))
T.Offset(, -1).Select
End Sub

 

[laetitia90]

re🙂🙂

je ne veux pas colorier toute la ligne mais les cellules de la colonne B : K comme dans la ligne 15 dans l'exemple que j'ai joint

par contre manipuler la palette RGB bien mieux 😉😉😉

 

[Lone-wolf]

Bonjour laetitia 🙂

Sorry, je l'ai zappé celle-la. Et dans ce cas, normal que tu aie mis 10. 😉

 

[laetitia90]

re Lone 🙂🙂🙂
j'ai réouvert son fichier il va bien jusqu'a colonne i & non k donc c'est toi qui a r🙂a🙂i🙂s🙂o🙂n

 

[Lone-wolf]

Hi 🙂

La faute viens de ce garnement, qui t'as mal renseigné.