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

Autres Colorer une cellule en un clic

B

baguihome

XLDnaute Nouveau
Bonjour à tous,

J'ai crée un fichier excel dans lequel je souhaiterai rendre une colonne interactive : pour chacune des cellules de cette colonne, un clic = colore la cellule en rouge ; un deuxième clic dans cette même cellule = colore en vert (passe du rouge au vert) ; un troisième clic = retour à la couleur initiale de la cellule (passe du vert à la couleur initiale de la cellule).
J'ai trouvé un code qui fonctionne assez bien (je le mets en fin de post). Reste quelques petits problèmes : le 3ème clic colore la cellule en blanc alors que les lignes de mon fichier sont alternativement blanches et grises. C'est pour ça que je souhaiterais pouvoir ramener la cellule à sa couleur d'origine au 3ème clic. Deuxième petit problème, quand j'essaie de protéger le reste du fichier (toutes les cellules sauf celle de la colonne colorable) la macro ne fonctionne plus. 3ème problème, le code que j'ai trouvé s'applique sur 2 colonnes, quelles modifications apporter au code pour qu'il ne concerne plus que la colonne D. Enfin, le code suivant fonctionne avec un double clic, je souhaiterai qu'il fonctionne avec un clic gauche.

Est-ce faisable de faire ce que je souhaite ?

Merci d'avance pour votre aide et désolé pour mon ignorance…

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim couleurs()
If Not Intersect(Target, Range("D:E")) Is Nothing Then
couleurs = Array(RGB(255, 0, 0), RGB(13, 241, 105), RGB(255, 255, 255))
On Error GoTo color
Target.Interior.color = couleurs(Application.WorksheetFunction.Match(Target.Interior.color, couleurs, 0) Mod 3)
Cancel = True
End If
Exit Sub
color:
Target.Interior.color = couleurs(0)
Cancel = True
End Sub
 
Trier par date Trier par votes
B

bsalv

XLDnaute Occasionnel
re,
Code: 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

     Dim Couleurs(): Couleurs = Array(-1, RGB(255, 0, 0), RGB(13, 241, 105))

     If Intersect(Target, Range("D:E")) Is Nothing Then Exit Sub

     With Target
          Me.Unprotect
          ic = .Interior.color
          i = Application.Match(ic, Couleurs, 0)
          If Not IsNumeric(i) Then
               i = 1     'on prendra "rouge"
               On Error Resume Next
               s = "?": s = .Comment.Text     'y-a-t-il déjà du commentaire dans la cellule, sinon s sera "?"
               On Error GoTo 0
               If s = "?" Then .AddComment: .Comment.Visible = False     'créer commentaire invisible
               .Comment.Text Text:=CStr(ic)     'ajouter numéro du couleur dans le commentaire
          End If

          Select Case (i Mod 3)
               Case 1, 2: Target.Interior.color = Couleurs(i Mod 3)     'seulement votre rouge et vert
               Case Else
                    On Error Resume Next
                    .Interior.color = xlNone     'aucun couleur
                    .Interior.color = .Comment.Text     'essayer à mettre la couleur di commentaire
                    On Error GoTo 0
          End Select
          Cancel = True
          Me.Protect
     End With

End Sub
 
Vote positif 0 Vote négatif
B

baguihome

XLDnaute Nouveau
Bonjour Bsalv,

Merci beaucoup pour ton code, il fonctionne à merveille !! Si je comprend bien tu as utilisé un commentaire comportant le code couleur initial de la cellule ? Juste une petite question, peut-on transformer le double clic en simple clic ?

En tout cas merci beaucoup, c'est top !!
 
Vote positif 0 Vote négatif
B

bsalv

XLDnaute Occasionnel
bonjour bagouihome,

Oui, le couleur initial est dans le commentaire, c'était le plus facile à réaliser, mais il y a d'autres méthodes, si vous utilisez déjà les commentaires ... .

Si vous changez le nom de la macro "Worksheet_BeforeDoubleClick" en "Worksheet_BeforeRightClick" cela fonctionnera avec le bouton droit.
 
Vote positif 0 Vote négatif
B

baguihome

XLDnaute Nouveau
J'ai essayé de remplacer "Worksheet_BeforeDoubleClick" par "Worksheet_SelectionChange" mais ça ne fonctionne pas. Ca ne fonctionne pas non plus avec "Worksheet_BeforeRightClick". J'ai l'impression que c'est la protection de la feuille qui pose probleme...?
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

S
  • Question
Microsoft 365 Colorer automatiquement des cellules en les sélectionnant
Réponses
5
Affichages
384
Jacky67
A
  • Résolu(e)
XL 2016 Suivant un double-clic sur une cellule, mettre une couleur sur autres cellules.
Réponses
2
Affichages
328
Al1_44
A
L
  • Résolu(e)
Microsoft 365 Aide : Colorer une cellule en fonction de sa valeur
Réponses
2
Affichages
223
Leo98
L
  • Résolu(e)
XL 2019 double clic colore de vert fluo ?
Réponses
8
Affichages
648
anthoYS
Utilisez des couleurs indexées
Réponses
2
Affichages
207
Lu76Fer
  • Question
Microsoft 365 Compter le nombre de cellule mise en couleur avec MFC
2
Réponses
19
Affichages
630
job75
T
  • Question
XL 2021 colorer une cellule selectionné dans une plage défine
Réponses
1
Affichages
353
sylvanu
M
  • Résolu(e)
Microsoft 365 colorier une rangée de cellules
2
Réponses
15
Affichages
724
Marvin57
M
T
  • Question
XL 2021 Additionner la couleur du fond et la police de plusieurs cellule en vba
Réponses
7
Affichages
307
Tophe2
T
M
  • Résolu(e)
Microsoft 365 Mise en forme conditionnelle: ne pas colorer une cellule non renseignée
Réponses
6
Affichages
508
Mouss3710
M
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…