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

XL 2013 changement de couleur avec 3 Clics

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion ibni
  • 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
I

ibni

XLDnaute Nouveau
Bonjour à tous,
dans le fichier ci-joint j'ai un tableau échéancier,
ce que je souhaite faire c'est quand je clique 3 fois sur n'importe quelle cellule de la colonne C a partir de C15 si C15 n'est pas vide c'est à dire remplis avec texte, j'aurais la couleur orange de la même manière que C15

Cordialement
 

Pièces jointes

Dernière édition:
Trier par date Trier par votes
bonjour Lone-Wolf
merci pour votre réponse, même un double clic est suffisant mais dans le cas ou j'ai envie de modifier le texte d'une cellule comment je ferai puisque le double click va colorer la ligne ??
 
Vote positif 0 Vote négatif
bonjour ibni ,Lone🙂🙂

brut comme cela il faudra traiter pour pour revenir a xlnone eventuellement

VB: 
Private Sub Worksheet_BeforeDoubleClick(ByVal T As Range, Cancel As Boolean)
If Not Intersect(T, [c15:c39]) Is Nothing And T.Count = 1 Then _
Cells(T.Row, 2).Resize(, 10).Interior.ColorIndex = 45
End Sub
 
Vote positif 0 Vote négatif
Bonjour laetitia90,
merci beaucoup pour le code, maintenant si je veux enlever la couleur ca peut se faire avec un autre double click ??
comme ça le 1er double clic colorie la ligne et le 2ème efface la couleur ?

Cordialement
 
Vote positif 0 Vote négatif
Bonjour laetitia et bonne année 🙂

Bein moi j'ai fait comme ceci. Et chose bizarre: je récupère l'index de la couleur (48 en l'occurence) et quand je double-clique la couleur est gris foncé??? 🙄 Pareil avec 45.

VB: 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("c15:c65536")) Is Nothing Then

For col = 2 To 9
If Target <> "" Then
Cells(ActiveCell.Row, col).Interior.Color = Range("w1").Interior.Color
Else
Cells(ActiveCell.Row, col).Interior.ColorIndex = xlNone
End If
Next col
Else
Exit Sub
End If
Cancel = True
End Sub
 
Vote positif 0 Vote négatif
re 🙂
oui toujours avec double clik sans simplifier!!!
VB: 
Private Sub Worksheet_BeforeDoubleClick(ByVal T As Range, Cancel As Boolean)
If Not Intersect(T, [c15:c39]) Is Nothing And T.Count = 1 Then
If Cells(T.Row, 2).Resize(, 10).Interior.ColorIndex = 45 Then
Cells(T.Row, 2).Resize(, 10).Interior.ColorIndex = xlNone
Else
Cells(T.Row, 2).Resize(, 10).Interior.ColorIndex = 45
End If: End If
End Sub
 
Vote positif 0 Vote négatif
Re laetitia, ibni

ibni, une petite correction à faire sur cette ligne : Cells(T.Row, 2).Resize(, 10). Il faut mettre 8 au lieu de 10. En Normal, la colonne I = 9, mais comme ici c'est un Resize qui correspond à Offset, il faut décaler de 2 sinon la ligne vas se colorer jusqu' à la colonne L.

EDIT: regarde avec celui-ci, si ça joue. Copie la couleur en W1 et ensuite:

VB: 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("c15:c65536")) Is Nothing Then

For col = 2 To 9
If Cells(ActiveCell.Row, col).Interior.Color = Range("w1").Interior.Color Then
Cells(ActiveCell.Row, col).Interior.ColorIndex = xlNone
Else
Cells(ActiveCell.Row, col).Interior.Color = Range("w1").Interior.Color
End If
Next col
Else
Exit Sub
End If
Cancel = True
End Sub
 
Dernière édition:
Vote positif 0 Vote négatif
bonjour ibni, Lone wolf, laetitia90,

la même chose avec le clic droit (il y a moins de clics à faire !):
VB: 
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("C15:C" & Range("C" & Rows.Count).End(xlUp).Row)) Is Nothing And Target.Count = 1 Then
    With Range(Cells(Target.Row, 2), Cells(Target.Row, 9)).Interior
    .ColorIndex = IIf(.ColorIndex = xlNone, 40, xlNone)
    End With
    Cancel = True
End If
End Sub

peut-être faudra-t-il adapter le colorindex. chez moi c'est 40, mais a priori pas vrai partout.

A+
 
Vote positif 0 Vote négatif
re ben !!! pas de pb.. chez moi je refais un double clik ca marche
Paf 🙂🙂en general je prefere garder le clic droit pour modif cell a mon avis plus simple
autrement tu peus rajouter en fin de code avant end sub
T.Offset(, -1).Select

non lone😉 je decale deja T.Row, 2
 
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

  • Question Question
XL 2010 changement de la couleur d'un onglet (jaune), si une des cellules d'un tableau n'est plus vide sinon l'onglet garde sa couleur d'origine
2
Réponses
23
Affichages
687
sebbbbb
C
  • Question Question
XL 2021 Mettre en couleur cellule avec une mêmes informations
Réponses
3
Affichages
120
Ckyara31
C
  • Question Question
Microsoft 365 MFC dans tableau
Réponses
2
Affichages
232
pompaero
G
  • Question Question
XL 2010 Modifier couleur de texte de zonetexte par vba
Réponses
3
Affichages
137
patricktoulon
F
  • Résolu(e)
XL 2021 Génération d'un fichier TXT à partir d'une feuille Excel
Réponses
3
Affichages
237
fd.30
F
K
  • Question Question
XL 2016 VBA: Selection Date renvoie copier/coller
Réponses
8
Affichages
867
Krome36
K
  • Question Question
XL pour MAC Mise en forme conditionnelle de cellules adjacentes en fonction du contenu d'une cellule
Réponses
8
Affichages
197
sylvanu
N
  • Résolu(e)
XL 2019 copier coller sous condition avec trois feuil
Réponses
11
Affichages
414
Nico77
N
C
  • Résolu(e)
XL 2021 Décompte de mazout pour chaffage
2 3 4
Réponses
47
Affichages
3 K
clausen
C
P
  • Question Question
Microsoft 365 Sommeprod avec Liste de variables
2
Réponses
15
Affichages
245
patricko-13
P
E
  • Question Question
Microsoft 365 Couleurs de fichiers qui changent
Réponses
1
Affichages
362
mapomme
A
  • Question Question
XL 2013 Remplir tableau par inputbox
Réponses
2
Affichages
185
Appo1985
A
  • Résolu(e)
Microsoft 365 Changer Couleur de Texte dans cellule
Réponses
7
Affichages
435
Electron24
  • Résolu(e)
Microsoft 365 [FORMULES] Tableau de synthèse avec SOMMEPROD, sans TCD, ni VBA
2
Réponses
18
Affichages
549
ralph45
M
  • Question Question
XL 2021 macro VBA
Réponses
4
Affichages
259
ManuEven
M
M
  • Résolu(e)
XL 2010 Ressortir uniquement les nombres de la musique d'une course hippique
Réponses
5
Affichages
205
mamarus1
M
M
  • Résolu(e)
XL 2021 Automatisation de la randomisation des cellules d'une colonne
3 4 5
Réponses
61
Affichages
2 K
Dranreb
F
  • Question Question
Microsoft 365 Problème avec VBA ( Résolu)
Réponses
2
Affichages
395
firecarl
F
A
  • Résolu(e)
XL 2019 Contrôle ActiveX et MFC
Réponses
2
Affichages
378
Amilo
A
M
  • Question Question
Microsoft 365 Utilisation de la fonction Array
Réponses
13
Affichages
452
vgendron
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…