XL 2013 changement de couleur avec 3 Clics

L

laetitia90

XLDnaute Barbatruc

• 2 Janvier 2017

• #16

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

 

Vote positif 0 Vote négatif

I

ibni

XLDnaute Nouveau

• 2 Janvier 2017

• #17

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

 

Vote positif 0 Vote négatif

L

laetitia90

XLDnaute Barbatruc

• 2 Janvier 2017

• #18

re
en tenant compte des cells vide & simplifiant un peu

VB:

 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

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 2 Janvier 2017

• #19

Bonsoir laetitia




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

VB:

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

 

Dernière édition: 3 Janvier 2017

Vote positif 0 Vote négatif

L

laetitia90

XLDnaute Barbatruc

• 3 Janvier 2017

• #20

re

Code:

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

 

Dernière édition: 3 Janvier 2017

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 3 Janvier 2017

• #21

Bonjour laetitia

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

 

Vote positif 0 Vote négatif

L

laetitia90

XLDnaute Barbatruc

• 3 Janvier 2017

• #22

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

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 3 Janvier 2017

• #23

Hi

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

 

Vote positif 0 Vote négatif