Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

comment coloriser les cellules en cliquant dessus

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

altinea

XLDnaute Accro
bonjour, j'ai eu la semaine dernier une reponse a ma question. Cette semaine j'aimerai pouvoir changer la couleur d'un cellule en cliquant dessus, jusque là pas de problem, par contre ce que j'aimerai faire c'est :

cellule blanche -> clic 1 devient bleu -> clic 2 devient vert -> clic 3 devient rouge -> clic 4 redevient blanche

et cela en ayant la possiblité de le faire sur des colonnes qui ne sont pas contigues

merci à vous tous qui savez
 
Trier par date Trier par votes
Re : comment coloriser les cellules en cliquant dessus

Bonjour,

Tu veux faire un véritable feu d'artifice (lol)

Pour répondre à ta question, je pense que tu devrais reprendre ton code et y ajouter des tests du genre :

si la cellule est blanche lors elle devient bleue, sinon si elle est bleue alors elle devient verte etc ...

If ... Then
ElseIf .... Then
ElseIf ... Then
End If

Bon courage
 
Dernière édition:
Vote positif 0 Vote négatif
Re : comment coloriser les cellules en cliquant dessus

ci apres la formule qui fonctionne, mais je sais pas comment faire pour ce que tu m'as proposé



Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Colonne As Integer
Cancel = True 'evite le mode édition lié au double-clic

Colonne = Target.Column

Select Case Colonne

Case Is = 1:
'colonne 1 couleur rouge
If Target.Interior.ColorIndex = 3 Then
Target.Interior.ColorIndex = x1None
Else
Target.Interior.ColorIndex = 3
End If
Case Is = 2:
'colonne 2 couleur blanc
If Target.Interior.ColorIndex = 2 Then
Target.Interior.ColorIndex = xlNone
Else
Target.Interior.ColorIndex = 2
End If
Case Is = 3:
'colonne 3 couleur vert
If Target.Interior.ColorIndex = 4 Then
Target.Interior.ColorIndex = xlNone
Else
Target.Interior.ColorIndex = 4
End If
Case Is = 4:
'colonne 4 couleur bleu
If Target.Interior.ColorIndex = 5 Then
Target.Interior.ColorIndex = xlNone
Else
Target.Interior.ColorIndex = 5
End If
Case Is = 5:
'colonne 5 couleur jaune
If Target.Interior.ColorIndex = 6 Then
Target.Interior.ColorIndex = xlNone
Else
Target.Interior.ColorIndex = 6
End If
'etc....
End Select
End Sub
 
Vote positif 0 Vote négatif
Re : comment coloriser les cellules en cliquant dessus

Re,

Voici un exemple qui répond à t question pour toutes les cellules de la feuille. A toi de l'adapter à tes besoins

Attention je n'ai pas respecté l'ordre des couleurs que tu avais donné

Au plaisir
 
Vote positif 0 Vote négatif
Re : comment coloriser les cellules en cliquant dessus

bonjour

une autre syntaxe pour changer les couleurs dans une cellule, astuces données par DidierMDF :

Code: 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
With Target.Interior
    .ColorIndex = Switch(.ColorIndex = xlNone, 4, _
                         .ColorIndex = 4, 3, _
                         .ColorIndex = 3, 6)
End With

End Sub
salut
 
Vote positif 0 Vote négatif
Re : comment coloriser les cellules en cliquant dessus

merci pour les infos c'est vraiment super, je mets en piece jointe le tableau que je voudrai perfectionner, j'aimerai que chaque colonne beneficie de la colorisation fonction du choix qui est fait en couleur mais comment reproduire la formule sans etre obligé de coller le code pour chaque colonne merci
 

Pièces jointes

Vote positif 0 Vote négatif
Re : comment coloriser les cellules en cliquant dessus

Salut,

Le code suivant devrait faire ce que tu souhaites :
Code: 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Colonne As Integer
Cancel = True 'evite le mode édition lié au double-clic
Colonne = Target.Column
If Cells(Target.Row, Target.Column).Interior.ColorIndex = xlNone Then
    Cells(Target.Row, Target.Column).Interior.ColorIndex = 5
ElseIf Cells(Target.Row, Target.Column).Interior.ColorIndex = 5 Then
    Cells(Target.Row, Target.Column).Interior.ColorIndex = 3
ElseIf Cells(Target.Row, Target.Column).Interior.ColorIndex = 3 Then
    Cells(Target.Row, Target.Column).Interior.ColorIndex = 4
ElseIf Cells(Target.Row, Target.Column).Interior.ColorIndex = 4 Then
    Cells(Target.Row, Target.Column).Interior.ColorIndex = 6
ElseIf Cells(Target.Row, Target.Column).Interior.ColorIndex = 6 Then
    Cells(Target.Row, Target.Column).Interior.ColorIndex = 0
End If
End Sub

@+
 
Vote positif 0 Vote négatif
Re : comment coloriser les cellules en cliquant dessus

boujour le forum

désolé de m'infiltrer mais je suis le fil depuis le debut

une colonne doit elle avoir obligatoirement telle couleur sinon utilise le n° de la colonne +2 pour y affecter la couleur
 
Vote positif 0 Vote négatif
Re : comment coloriser les cellules en cliquant dessus

Bonjour,
Tite question à mon tour, lol
Est il possible d'inserer un caractère en meme temps que ou a la place de la couleur ?
ex : si c'est vert --> 🙂
Si c'est rouge --> 😡

Merci à tous pour vos aides 😉
 
Vote positif 0 Vote négatif
Re : comment coloriser les cellules en cliquant dessus

Bonjour DuncanMcLeod, le fil,
Une proposition sur le code de porcinet82:
Code: 
[COLOR=blue]Private Sub[/COLOR] Worksheet_BeforeDoubleClick([COLOR=blue]ByVal[/COLOR] Target [COLOR=blue]As[/COLOR] Range, Cancel [COLOR=blue]As Boolean[/COLOR])
Cancel = [COLOR=blue]True[/COLOR]
Cells(Target.Row, Target.Column).Font.Name = "Wingdings"
[COLOR=blue]If[/COLOR] Cells(Target.Row, Target.Column).Interior.ColorIndex = xlNone [COLOR=blue]Then[/COLOR]
    Cells(Target.Row, Target.Column).Interior.ColorIndex = 3[COLOR=green] ' Rouge[/COLOR]
    Cells(Target.Row, Target.Column) = "L"
[COLOR=blue]ElseIf[/COLOR] Cells(Target.Row, Target.Column).Interior.ColorIndex = 3 [COLOR=blue]Then[/COLOR]
    Cells(Target.Row, Target.Column).Interior.ColorIndex = 4[COLOR=green] ' Vert[/COLOR]
    Cells(Target.Row, Target.Column) = "J"
[COLOR=blue]Else[/COLOR]
    Cells(Target.Row, Target.Column).Interior.ColorIndex = xlNone
    Cells(Target.Row, Target.Column).ClearContents
[COLOR=blue]End If[/COLOR]
[COLOR=blue]End Sub[/COLOR]
Cordialement
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

S
  • Question Question
Microsoft 365 Colorer automatiquement des cellules en les sélectionnant
Réponses
5
Affichages
711
Jacky67
H
  • Question Question
Microsoft 365 Mise en forme conditionnelle sur autre tableau
Réponses
2
Affichages
529
hbb
H
T
  • Résolu(e)
XL 2010 VBA - Bouton changement couleur texte rouge/vert/bleu/noir
Réponses
4
Affichages
3 K
tchi456
T
R
  • Question Question
XL 2019 changer les choix d'une cellule juste en double cliquant dessus
Réponses
5
Affichages
620
Deadpool_CC
K
  • Question Question
macro clic couleur
Réponses
0
Affichages
1 K
kvothe
K
S
  • Question Question
calendrier
Réponses
3
Affichages
913
syl27
S
T
  • Question Question
XL 2013 Affichage de la couleur en fonction des conditions
Réponses
8
Affichages
2 K
Tableau123
T
V
  • Question Question
Changer la couleur d'une cellule par un clic dessus?
Réponses
5
Affichages
6 K
videocontact
V
R
  • Question Question
XL 2013 MFC tres spécifiques ...
Réponses
2
Affichages
1 K
mutzik
C
  • Question Question
[Résolu] Copier coller en incrémentant les cellules
Réponses
3
Affichages
1 K
Cra49
C
A
  • Question Question
Faire coorespondre les couleures de fond de 2 cellules.
Réponses
9
Affichages
776
Pierrot93
F
  • Question Question
Optimisation de macro et correction de MEF conditionnel
Réponses
4
Affichages
1 K
fredd
F
M
  • Question Question
Création d'un jeu "MEMORY" en VBA
2
Réponses
16
Affichages
7 K
Mayzuka
M
K
  • Question Question
Comment desactiver une cellule
Réponses
2
Affichages
9 K
KyFranRD
K
A
  • Question Question
comment colorier les 60 cellules en dessous d'une cellule contenant "1" par MFC
Réponses
13
Affichages
1 K
Alex550445
A
L
  • Question Question
Figer une donnée en fonction de la valeur d'une cellule
Réponses
0
Affichages
3 K
LiuXing
L
  • Question Question
Dernier soucis avec la Makro
Réponses
2
Affichages
664
stevevda
S
  • Question Question
Compter des cellules en fonction de leur couleur dans une matrice
Réponses
0
Affichages
2 K
sergio83sergio
S
M
  • Question Question
changer la couleur d une cellule en cliquant
Réponses
2
Affichages
2 K
matlos
M
  • Question Question
changer la couleur d'une cellule
2
Réponses
16
Affichages
5 K
Pascal63
P
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…