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

code vba pour remplacer la mise en forme conditionnelle

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

CHTING

Guest
Bonjours à toutes et à tous,

Je cherche à mettre en parallèle un code vba qui permet de cocher X en un seul clic (ça c'est bon 🙂) et un code vba qui permettrait de colorer automatiquement la cellule cochée (apparition de X) et de la décolorer lorsqu'elle est décochée (pas de X).
Pour plus de clarté, mon code ci dessous, j'arrive à colorer une case en cochant en cochant mais je ne trouve pas le chemin inverse (décolorer en décochant).

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count = 1 _
And (Target.Column = 4 _
Or Target.Column = 7 _
Or Target.Column = 10 _
Or Target.Column = 16 _
Or Target.Column = 20 _
Or Target.Column = 24 _
Or Target.Column = 28 _
Or Target.Column = 38 _
Or Target.Column = 42) Then
Target.Value = IIf(Target.Value = "X", "", "X")
Target.Font.Name = "WingDings"
Target.Font.Size = 12
Target.Interior.ColorIndex = 32

End If
End Sub

merci de votre aide.

Cordialement.
 
Trier par date Trier par votes
Re : code vba pour remplacer la mise en forme conditionnelle

Bonjour CHTING,

en remplaçant:
Target.Interior.ColorIndex = 32

par:
Target.Interior.ColorIndex= IIf(Target.Value = "X",32,2)

à+
Philippe
 
Vote positif 0 Vote négatif
Re : code vba pour remplacer la mise en forme conditionnelle

re, j'en profite.
J'ai également un problème avec une liste déroulante.
En fonction de la valeur, je souhaite mettre une couleur (exemple : colonne A, si la cellule est égale à blabla alors couleur rouge etc.)
Toujours de façon automatique et en code vba nien sur 🙂.
je sais le faire dans un module mais pas dans un workbook.

merci de votre aide

cordialement

merci de votre aide.

Cordialement.
 
Vote positif 0 Vote négatif
Re : code vba pour remplacer la mise en forme conditionnelle

Re,

Ma boule de cristal refuse obstinément de me montrer ton fichier qui me serait très utile pour comprendre le problème et tenter d'y trouver une solution

À+
Philippe
 
Vote positif 0 Vote négatif
Re : code vba pour remplacer la mise en forme conditionnelle

Ok, je conçois que ce n'est pas très clair, donc voici un fichier type.
J'ai une liste déroulante en colonne B (Forte, Moyenne, Faible), pour chaque mot, je veux y attribuer automatiquement une couleur (ex : rouge pour "Forte" ou orange pour "Moyenne"). Tout ça sans passer par la mise en forme conditionnelle.

Encore merci
Cordialement
 

Pièces jointes

Vote positif 0 Vote négatif
Re : code vba pour remplacer la mise en forme conditionnelle

Re,

avec ce code:
Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B:B")) Is Nothing Then
Select Case Target
Case "Forte"
    Target.Interior.ColorIndex = 3
Case "Moyenne"
    Target.Interior.ColorIndex = 44
Case "Faible"
    Target.Interior.ColorIndex = 6
End Select
End If
End Sub

à+
Philippe
 
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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

S
  • Résolu(e)
XL 2016 Comment faire ressortir la ligne sélectionnée dans un tableau
Réponses
2
Affichages
656
Stéphane_1
S
B
  • Résolu(e)
Microsoft 365 Besoin d'aide pour faire fonctionner 2 codes VBA ensemble
Réponses
2
Affichages
470
BenExcel
B
F
  • Question Question
Microsoft 365 Ecrire dans une cellule suivant une autre en VBA
Réponses
4
Affichages
834
Francky79
F
H
  • Résolu(e)
XL 2016 [Résolu] VBA pour mise en forme conditionnelle
Réponses
2
Affichages
716
Hynnuh
H
U
  • Résolu(e)
Autres Mettre en couleur ligne avec VBA car MFC occupées (Excel 2003)
2
Réponses
15
Affichages
2 K
un internaute
U
  • Question Question
XL 2013 VBA Problème d'insertion d'une formule dans une colonne avec mise en forme de tableau
Réponses
9
Affichages
1 K
Flown720
M
  • Question Question
XL 2016 Mise à jour de la date si modification d'une cellule
Réponses
1
Affichages
8 K
melvin
M
A
  • Résolu(e)
XL 2016 Macro Word pour remplacer une chaîne dans une chaîne recherchée sans changer la mise en forme
Réponses
2
Affichages
1 K
Axelair
A
G
  • Question Question
Microsoft 365 VBA - Lier une MEF conditionnelle à la MEF d'une autre cellule
Réponses
6
Affichages
1 K
GiuMon
G
G
  • Question Question
XL 2019 Changement type fenêtre pour sélection chemin dossier VBA
Réponses
0
Affichages
1 K
guiboubou233
G
Y
  • Résolu(e)
XL 2013 Aide pour mise en forme de resultats et classement avec du code vba
2
Réponses
23
Affichages
3 K
yank
Y
O
  • Question Question
XL 2013 MACRO : Transférer des données entre onglets
2
Réponses
20
Affichages
4 K
Omegan
O
C
  • Question Question
action de copier coller avec click sur des cellules
Réponses
2
Affichages
1 K
CHTING
C
P
  • Question Question
XL 2013 Etendre une mise en forme conditionnelle
Réponses
5
Affichages
20 K
CISCO
  • Question Question
Mise en forme sur un tableau de variables Vba
Réponses
14
Affichages
1 K
Calvus
C
  • Question Question
Probleme macro pour ouverture et formatage de mise en forme d un fichier txt
Réponses
0
Affichages
1 K
Cerealkiller57
C
D
  • Question Question
Soucis Code VBA copie colle sous condition
Réponses
0
Affichages
709
d.deneys
D
G
  • Question Question
Mise en forme conditionnelle avec code VBA
Réponses
10
Affichages
1 K
Pierrot93
C
  • Question Question
Mise en forme de cellule (liste) à appliquer sur toute la ligne
Réponses
4
Affichages
1 K
Ctrl-Alt-Suppr
C
M
  • Question Question
Sauver une pauvre nulle en VBA pour mise en forme conditionnelle
Réponses
5
Affichages
2 K
mauricette007
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…