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

macro pour 4 couleurs conditionnelles

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

dedef

XLDnaute Occasionnel
Bonjour,
je veux coloriser des cellules d'un onglet sous conditions. Comme j'ai 4 valeurs possibles, je crois qu'il faut passer par une macro. Malheureusement je n'y connais absolument rien en macro.

Après avoir cherché, il me semble que ma macro devrait ressembler à ça :
Sub couleur()
Dim cell As Range
For Each cell In Range("I3:I104")
Select Case cell.Value
Case Is = 0
cell.Interior.ColorIndex = 0
Case Is = 1
cell.Interior.ColorIndex = 3
Case Is = 2
cell.Interior.ColorIndex = 4
Case Is = 3
cell.Interior.ColorIndex = 5
End Select
Next
End Sub

Mon problème, c'est que je ne sais pas comment affecter cette macro au bon onglet (T1) et la faire tourner en permanence. J'ai essayé avec
For Each cell In Range("'T1'!I3:'T1'!I104")
mais il ne se passe rien.

Quelqu'un peut-il me donner un coup de main?

Merci d'avance.
 
Trier par date Trier par votes
Re : macro pour 4 couleurs conditionnelles

Bonjour,

Voir PJ

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect([ChampMFC], Target) Is Nothing Then
     Application.EnableEvents = False
     On Error Resume Next
     [Couleurs].Find(Target, LookAt:=xlWhole).Copy
     Target.PasteSpecial Paste:=xlPasteFormats
     Application.EnableEvents = True
  End If
End Sub

JB
Formation Excel VBA JB
 

Pièces jointes

Vote positif 0 Vote négatif
Re : macro pour 4 couleurs conditionnelles

Merci à tous,
J'essaye d'utiliser la macro de Boisgontier qui me paraît la plus simple et qui correspond exactement à mes besoins, mais comme je suis nul, j'ai 2 questions :

quand je crée ma macro couleur conditionnelle, l'éditeur VBA m'affiche d'entrée
Sub couleurconditionnelle()
Faut-il remettre en dessous
Private Sub Worksheet_Change(ByVal Target As Range)?
Si oui, ne faut-il pas mettre un second endsub?

dans la macro, si j'ai bien compris il faut remplacer ce qui est entre les [] par les bonnes adresses, mais en laissant les []

Désolé pour ces questions qui doivent paraître stupides.

Merci d'avance.
 
Vote positif 0 Vote négatif
Re : macro pour 4 couleurs conditionnelles

Je suis désolé, mais je ne comprends pas :
dois-je écrire (ou coller) l'ensemble des lignes y compris celles relatives à "noms de champs" sur ma feuille excel ou dans l'éditeur VB?

Je viens d'effacer la macro qui apparaît sur la feuille, et ça continue à marcher. Par contre si je fait "afficher les macros", une fenêtre "macro" s'ouvre, mais aucune n'y est déjà présente.

Comment faire apparaître celle en cours?

Merci d'avance.
 
Dernière édition:
Vote positif 0 Vote négatif
Re : macro pour 4 couleurs conditionnelles

bonjour

Citation:Je viens d'effacer la macro qui apparaît sur la feuille, et ça continue à marcher.
Non le code ne va pas dans un module mais dans la feuille:

ALT+F11 et clic 2 coups sur feuil a gauche:
Voir image ici
Bonjour

Plutôt comme ca:un 0 et DoEvents

A+

Temjeh

Dans un module tu doit exécuté la macro mais dans l'évennement de la feuille ca se fait a chaque changement de feuille ....1ère ligne ...Private Sub Worksheet_Change(ByVal Target As Range)

Pour code qui s'exécute a chaque changement de cellule: Private Sub Worksheet_SelectionChange(ByVal Target As Range)
A+

Temjeh
 
Dernière édition:
Vote positif 0 Vote négatif
Re : macro pour 4 couleurs conditionnelles

Bonjour à tous,

Dans le code de ta feuille T1 (Accesible par Alt F11), tu colles ce code :
Code: 
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect([ChampMFC], Target) Is Nothing Then
     Application.EnableEvents = False
     On Error Resume Next
     [Couleurs].Find(Target, LookAt:=xlWhole).Copy
     Target.PasteSpecial Paste:=xlPasteFormats
    Application.EnableEvents = True
  End If
End Sub
Tu copies l'onglet 'Couleurs' dans ton classeur
Tu renseignes les Noms Définis par Insertion / Nom / Définir (tu en as deux ChampMFC et Couleurs où tu définis les plages à prendre en compte)

Dépose ton fichier si cela ne convient pas

A+ à tous
 
Vote positif 0 Vote négatif
Re : macro pour 4 couleurs conditionnelles

REbonjour

Juste en passant

Comment rapetisser mon image demo que j'ai mis ici je ne me souviens plus:
C'était avec size je croit


désolé dedef

A+

Temjeh
 
Dernière édition:
Vote positif 0 Vote négatif
Re : macro pour 4 couleurs conditionnelles

Vous êtes tous super.
Vous m'avez mis le pied à l'étrier.
Je n'avais pas compris qu'il fallait utiliser la commande "définir un nom!
Merci beaucoup, j'ai enfin compris ....
 
Dernière édition:
Vote positif 0 Vote négatif
Re : macro pour 4 couleurs conditionnelles

Bonjour à tous,

Je ne sais pas pour réduire l'image sur XLD, je pense qu'il faut passer par ton serveur de dépot ou ne mettre que le lien qui pointera sur le fichier
Ce lien n'existe plus

A+ à tous
 
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

J
  • Question Question
Microsoft 365 Probléme VBA
Réponses
8
Affichages
588
jalaba
J
N
  • Question Question
Microsoft 365 gestion de kilometrage
Réponses
4
Affichages
481
nabilexcel2007
N
  • Résolu(e)
XL 2019 colorer les différents aliments avec un code VB pour macro de ce genre ?
2
Réponses
16
Affichages
621
anthoYS
  • Question Question
XL 2016 Gestion des erreurs avec la fonction RechercheV
Réponses
5
Affichages
418
KTM
S
  • Résolu(e)
Microsoft 365 Déclenchement macro en série suite à cellule fusionnées
Réponses
3
Affichages
534
spike29
S
T
  • Résolu(e)
Microsoft 365 VBA Exporter une sélection de plages nommées au format PDF
Réponses
12
Affichages
1 K
tnion
T
G
  • Résolu(e)
XL 2019 macro pour masquer puis afficher colonnes a la demande
Réponses
4
Affichages
336
Phil69970
  • Question Question
XL 2016 annulation ou désactivation de macro
2
Réponses
27
Affichages
1 K
job75
  • Question Question
Microsoft 365 VBA : copier les adresses
Réponses
7
Affichages
1 K
VBA_dev_Anne_Marie
N
  • Question Question
XL 2013 Utilisé deux CommandButton_Click dans la même feuil
Réponses
4
Affichages
430
patricktoulon
L
  • Résolu(e)
Microsoft 365 Extraire les données de la valeur cherchée en note
Réponses
5
Affichages
445
Lau01150
L
F
  • Résolu(e)
Microsoft 365 Evènement worksheet_change
Réponses
2
Affichages
304
Francky79
F
  • Résolu(e)
XL 2021 Bug dans code vba
Réponses
8
Affichages
818
thunder23
W
  • Résolu(e)
XL 2016 Placer mes photos dans la colonne A, [A3], [A4],etc, jusqu'en [A99] selon le prénom et le nom colonnes B et C
2
Réponses
29
Affichages
2 K
TooFatBoy
J
  • Résolu(e)
XL 2021 insertion d'image provenant d'unecellule dans un userform
2
Réponses
22
Affichages
783
vgendron
F
  • Question Question
Microsoft 365 Changement de fonctionnement d'une macro suite au passage à windows 10
Réponses
1
Affichages
628
francha62
F
F
  • Question Question
XL 2021 probleme dans la macro
Réponses
4
Affichages
735
kiki29
  • Question Question
XL 2021 Code manufacturier et fabricant (Ram) suite projet en cours ( à tester s'il vous plait )
2 3
Réponses
42
Affichages
2 K
TooFatBoy
U
  • Question Question
Autres RÉSOLU ma macro ne fonctionne pas
Réponses
3
Affichages
269
un internaute
U
M
  • Question Question
XL 2021 macro VBA
Réponses
4
Affichages
586
ManuEven
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…