couleur cellule

job75

XLDnaute Barbatruc

• 19 Octobre 2013

• #2

Re : couleur cellule

Bonjour eastwick,

Oui un jeu d'enfant avec le double-clic :

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
Target.Interior.ColorIndex = IIf(Target.Interior.ColorIndex = xlNone, 4, xlNone)
End Sub

A+

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 19 Octobre 2013

• #3

Re : couleur cellule

Bonjour à tous,

Peux-tu essayer avec ceci dans le code de la feuille :

VB:

Option Explicit


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If ActiveCell.Interior.ColorIndex = xlNone Then
        ActiveCell.Interior.ColorIndex = 3
    Else
        ActiveCell.Interior.ColorIndex = xlNone
    End If
End Sub

A+ à tous

Edition : Oups... Pas vu l'ami Gérard le rapide.

 

Vote positif 0 Vote négatif

eastwick

XLDnaute Impliqué

• 19 Octobre 2013

• #4

Re : couleur cellule

oups, ça ne fonctionne pas ! et en plus je ne dois utiliser qu'un seul clic à chaque fois...
Merci à vous 2 en tous cas.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 19 Octobre 2013

• #5

Re : couleur cellule

Bonjour à tous, job75 , JCGL

eastwick
Où as-tu mis le code VBA? dans un module?
Si oui ce n'est pas la bonne place pour une procédure événementielle.

PS: Il est bien connu que JCGL et job75 ne propose que des codes qui ne fonctionnent pas !
Comme tous les barbatrucs de ce forum d'ailleurs.
On ne propose que des solutions dysfonctionnelles.

 

Dernière édition: 19 Octobre 2013

Vote positif 0 Vote négatif

eastwick

XLDnaute Impliqué

• 19 Octobre 2013

• #6

Re : couleur cellule

je vous joins le fichier, ce sera plus simple. Il faudrait que les cellules numérotées changent de couleur en cliquant une fois dessus et redeviennent incolore en recliquant une fois dessus également...

 

Pièces jointes

• blind test.xls

  148.5 KB · Affichages: 51

Vote positif 0 Vote négatif

eastwick

XLDnaute Impliqué

• 19 Octobre 2013

• #7

Re : couleur cellule

Je ne doute pas des connaissances des mega-barbatrucs !!! j'ai déjà eu affaire à JCGL et il m'avait donné entière satisfaction !

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 19 Octobre 2013

• #8

Re : couleur cellule

Re

eastwick
Tu as lu mon precédent message?
Car les deux codes fonctionnent évidemment!!

Donc mets le code VBA non pas dans un module mais dans le code de la feuille et tu verras que cela fonctionne parfaitement.

 

Vote positif 0 Vote négatif

eastwick

XLDnaute Impliqué

• 19 Octobre 2013

• #9

Re : couleur cellule

le code est bel et bien dans la feuille

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 19 Octobre 2013

• #10

Re : couleur cellule

Re

Donc il se passe quoi quand tu doubles-cliques sur une cellule ?
Et qu'immédiatement aprés tu redoubles-cliques dessus?

Ca fonctionne bien, non.

 

Vote positif 0 Vote négatif

eastwick

XLDnaute Impliqué

• 19 Octobre 2013

• #11

Re : couleur cellule

J'ai posté le fichier Staple1600, j'ai enlevé le code, je pense, je ne suis plus sur. Je réessaye chez moi, toujours rien... A noter que je ne souhaite qu'un seul clic.

Merci.

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 19 Octobre 2013

• #12

Re : couleur cellule

Bonjour à tous,
Salut l'Agrafe et Merci pour le SAV...

Peux-tu essayer (clic droit sur une cellule) :

VB:

Option Explicit


Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
 Cancel = True
 If ActiveCell.Interior.ColorIndex = xlNone Then
         ActiveCell.Interior.ColorIndex = 3
     Else
         ActiveCell.Interior.ColorIndex = xlNone
     End If
End Sub

A+ à tous

 

Pièces jointes

• JC Blind Test.xls

  242 KB · Affichages: 48

Dernière édition: 19 Octobre 2013

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 19 Octobre 2013

• #13

Re : couleur cellule

Re


Il faut faire un double-clique sur la cellule
(car tu auras noté le nom de procédure événementielle utilisé ici, non ?)
Je peux te certifier que les propositions de job75 et JCGL fonctionnent.

 

Vote positif 0 Vote négatif

eastwick

XLDnaute Impliqué

• 19 Octobre 2013

• #14

Re : couleur cellule

ça fonctionne, merci à tous !

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 19 Octobre 2013

• #15

Re : couleur cellule

Re,

Vous auriez pu quand même préciser au post #1 que vos cellules contiennent des liens hypertextes...

Alors si chez vous les liens mènent bien quelque part :

Code:

Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Cells.Interior.ColorIndex = xlNone 'RAZ
Target.Range.Interior.ColorIndex = 3 'rouge
End Sub

A+

 

Vote positif 0 Vote négatif