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

Double clic change 4 fois la couleur de fond

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Katoch
  • Date de début Date de début

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
K

Katoch

XLDnaute Junior
Bonsoir Forum ,

Je souhaiterais pouvoir, avec un premier double clic , colorier en rouge et donner la valeur 1 à une cellule , puis
un second double clic sur cette même cellule , la colorie en jaune avec la valeur 1,
un troisième double clic sur cette même cellule , la colorie en vert avec la valeur 1,
un quatrième double clic sur cette même cellule , la colorie en bleu avec la valeur 1,

et ainsi de suite , rouge, jaune; vert; bleu avec toujours la valeur 1.

Possible d'avoir un code qui réalise celà ?

merci.
 
Trier par date Trier par votes
Re : Double clic change 4 fois la couleur de fond

Bonjour Katoch

avec ce code :
Code: 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If ActiveCell.Value <> 1 Or ActiveCell.Interior.Color = 15773696 Then
    ActiveCell.Value = 1
    With Selection.Interior
        .Color = 255
    End With
    Exit Sub
    End If
    If ActiveCell.Interior.Color = 255 Then
    ActiveCell.Value = 1
    With Selection.Interior
        .Color = 65535
    End With
    Exit Sub
    End If
    If ActiveCell.Interior.Color = 65535 Then
    ActiveCell.Value = 1
    With Selection.Interior
        .Color = 5287936
    End With
    Exit Sub
    End If
    If ActiveCell.Interior.Color = 5287936 Then
    ActiveCell.Value = 1
    With Selection.Interior
        .Color = 15773696
    End With
    Exit Sub
    End If
End Sub

à+
Philippe
 
Vote positif 0 Vote négatif
Re : Double clic change 4 fois la couleur de fond

Re,

après "nettoyage", ce code devrait fonctioner
Code: 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If ActiveCell.Value <> 1 Or ActiveCell.Interior.Color = 15773696 Then
    ActiveCell.Value = 1
    Selection.Interior.Color = 255
    Exit Sub
    End If
    If ActiveCell.Interior.Color = 255 Then
     Selection.Interior.Color = 65535
    Exit Sub
    End If
    If ActiveCell.Interior.Color = 65535 Then
     Selection.Interior.Color = 5287936
    Exit Sub
    End If
    If ActiveCell.Interior.Color = 5287936 Then
     Selection.Interior.Color = 15773696
    Exit Sub
    End If
End Sub
à+
Philippe
 
Vote positif 0 Vote négatif
Re : Double clic change 4 fois la couleur de fond

Yes ! ça marche.(les 2 codes)
Mais au bout du second clic je suis obligé de changer de cellule puis de revenir sur la cellule coloriée pour passer au 3e double clic.
Il manque une sorte de de confirmation (validation ?)de l'entrée , non ?
 
Vote positif 0 Vote négatif
Re : Double clic change 4 fois la couleur de fond

Hello

une solution différente :

Code: 
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Dim C
       Cancel = True
       C = Target.Interior.ColorIndex
       Target.Interior.ColorIndex = Switch(C = xlNone, 3, C = 3, 6, C = 6, 4, C = 4, 5, C = 5, xlNone)
       Target.Value = 1
End Sub

ou solution pour revenir à 0 sans couleur :

Code: 
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Dim C
       Cancel = True
       C = Target.Interior.ColorIndex
       Target.Interior.ColorIndex = Switch(C = xlNone, 3, C = 3, 6, C = 6, 4, C = 4, 5, C = 5, xlNone)
       If Target.Interior.ColorIndex <> xlNone Then
            Target.Value = 1
        Else
            Target.Value = ""
        End If
End Sub

Petit avantage du switch, facile d'y rajouter une couleur...

Ya'v
 
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

C
  • Résolu(e)
XL 2016 Double-Clic dans une cellule déclenche l'événement Worksheet_Change
Réponses
7
Affichages
150
TooFatBoy
  • Question Question
XL 2019 Gérer la descente d'une cellule colorer selon un timer
2 3 4
Réponses
56
Affichages
2 K
Rheeem
R
A
  • Résolu(e)
XL 2016 Suivant un double-clic sur une cellule, mettre une couleur sur autres cellules.
Réponses
2
Affichages
420
Al1_44
A
A
  • Question Question
XL 2019 Mise en forme conditionnelle
Réponses
5
Affichages
471
wDog66
A
  • Résolu(e)
Microsoft 365 Simplification de code
2 3
Réponses
32
Affichages
978
Rheeem
R
B
  • Question Question
Microsoft 365 couleur cellule A1 suivant la protection de la feuille
Réponses
4
Affichages
90
bendv
B
W
  • Résolu(e)
XL 2016 Changer la taille, la couleur, la graisse d'une partie du contenu de cellule
Réponses
5
Affichages
190
job75
M
  • Question Question
XL 2021 macro VBA
Réponses
4
Affichages
245
ManuEven
M
  • Question Question
XL 2019 Macro bloque en court de travail
Réponses
4
Affichages
207
fanch55
V
  • Suggestion Suggestion
Informations Fonction "Hex"
Réponses
3
Affichages
219
VIARD
V
T
  • Question Question
XL 2021 Additionner la couleur du fond et la police de plusieurs cellule en vba
Réponses
7
Affichages
460
Tophe2
T
A
  • Résolu(e)
Microsoft 365 Modifier la couleur de fond d'une cellule lorsque l'on clique dessus
Réponses
14
Affichages
917
Alain 79
A
C
  • Résolu(e)
XL 2021 Traitement dans un tableau
2
Réponses
29
Affichages
615
sylvanu
L
  • Résolu(e)
Microsoft 365 Aide : Colorer une cellule en fonction de sa valeur
Réponses
2
Affichages
451
Leo98
L
P
  • Résolu(e)
XL pour MAC Problème de changement de couleur de la valeur d'une cellule
Réponses
2
Affichages
448
pvander
P
D
  • Résolu(e)
Microsoft 365 MFC sur des cellules au format hh:mm:ss
Réponses
4
Affichages
197
Daffy02
D
  • Résolu(e)
XL 2021 Un BackColor selon un RAL connu
Réponses
11
Affichages
343
GGI
G
  • Résolu(e)
XL 2019 compte à rebours entrées "piscine"... ?
2 3 4
Réponses
45
Affichages
2 K
anthoYS
T
  • Résolu(e)
XL 2021 Incompatibilité de type avec un userform
2
Réponses
19
Affichages
927
Bernard38
T
  • Question Question
XL 2019 dans un tableau ( mise en forme de tableau), 2 couleur pour 1 tableau
Réponses
4
Affichages
253
tuti
T
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…