couleur cellule

[eastwick]

Bonjour Mesdames, bonjour Messieurs,

J'aimerais changer la couleur d'une cellule en cliquant dessus et la remettre à son état initial, c'est à dire incolore en recliquant dessus.

Un jeu d'enfant pour vous, je le sais !!

Merci beaucoup...

 

[job75]

Re : couleur cellule

Bonjour eastwick,

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

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+

 

[JCGL]

Re : couleur cellule

Bonjour à tous,

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

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.

 

[eastwick]

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.

 

[Staple1600]

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.

 

[eastwick]

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...

 

[eastwick]

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 !

 

[Staple1600]

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.

 

[eastwick]

Re : couleur cellule

le code est bel et bien dans la feuille

 

[Staple1600]

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.

 

[eastwick]

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.

 

[JCGL]

Re : couleur cellule

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

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

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

 

[Staple1600]

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.

 

[eastwick]

Re : couleur cellule

ça fonctionne, merci à tous !

 

[job75]

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 :

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

A+