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

macro pour colorier ligne

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

matt31

XLDnaute Occasionnel
Bonjour,

toujours accro au forum pour toute l'aide que j'y trouve. Encore merci à tout le monde, je souhaiterai savoir s'il est possible de faire une macro pour colorier une ligne en fonction du contenu d'une cellule.
Par exemple, si en F3 je mets "A" alors de A3 à E3, les cellules sont coloriées en gris.
Si je ne mets rien ou autre chose que "A" en F3 alors la ligne reste blanche.

Je ne peux pas utiliser de MFC car j'ai déjà 3 conditions sur les cellules en B et en C et je dois faire un copier coller depuis un autre fichier excel pour toutes les données que je place entre A et F. Cela efface la MFC et j'ai minimum 200 lignes chaque semaine.

Encore merci
 
Trier par date Trier par votes
Re : macro pour colorier ligne

Bonsoir
Voici une petite macro pour faire le job
à adapter à ton cas
Sub Colorie()
'Coloriage de lignes / 2 colonnes en fonction de la valeur de flag
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
ActiveSheet.Cells.Interior.ColorIndex = xlNone
Dim Flag, K&, Rng As Range, Cll As Object
Flag = False
K = Cells(65536, 1).End(xlUp).Row
Set Rng = Range("A2:A" & K)
For Each Cll In Rng
Range(Cll.Address).Resize(1, 2).Interior.ColorIndex = IIf(Flag, 33, xlNone)
Flag = Not Flag
Next Cll
set rng =nothing
Application.Calculation = xlCalculationAutomatic
End Sub
Bon courage
Flyonets
 
Vote positif 0 Vote négatif
Re : macro pour colorier ligne

Bonsoir,

regarde ceci, à utiliser dans le module de la feuille concernée :
Code: 
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$F$3" Then Exit Sub
If Target = "A" Then Range("A3:E3").Interior.ColorIndex = 15
End Sub

bonne soirée
@+
 
Vote positif 0 Vote négatif
Re : macro pour colorier ligne

Bonjour à tous
Une autre (dans le module de la feuille concernée) :
VB: 
Private Sub Worksheet_Change(ByVal Cible As Range)
Dim plg, cel As Range
  Set plg = Intersect(Columns("F"), Cible, UsedRange)
  If Not plg Is Nothing Then
    With Application: .ScreenUpdating = 0: .Calculation = -4135: .EnableEvents = 0: End With
    For Each cel In plg.Cells
      If cel.Value = "A" Then cel.Offset(0, -5).Resize(1, 6).Interior.ColorIndex = 6 Else cel.Offset(0, -5).Resize(1, 6).Interior.ColorIndex = xlColorIndexNone
    Next
    With Application: .EnableEvents = 1: .Calculation = -4105: .ScreenUpdating = 1: End With
  End If
End Sub
​
ROGER2327
#5238

Dimanche 1er Merdre 138 (Accouchement de Sainte Jeanne, papesse, ST)
29 Floréal An CCXIX
2011-W20-3T16:22:28Z
 
Vote positif 0 Vote négatif
Re : macro pour colorier ligne

Merci à vous 3, c'est parfait. 3 réponses pour une question, finalement le plus dur est de choisir la bonne macro...

J'ai choisi celle de Roger car la plus "facile" pour moi à comprendre.
Si je peux abuser encore un peu, comment faire pour ajouter une 2° condition? Je voudrais que pour B, toujours dans la même colonne, la cellule soit également grisée.

Merci
 
Vote positif 0 Vote négatif
Re : macro pour colorier ligne

Re…
matt31 à dit:
(…) comment faire pour ajouter une 2° condition? Je voudrais que pour B, toujours dans la même colonne, la cellule soit également grisée.

Merci
Cliquez pour agrandir...
Deux possibilités :
VB: 
Private Sub Worksheet_Change(ByVal Cible As Range)
Dim plg, cel As Range
  Set plg = Intersect(Columns("F"), Cible, UsedRange)
  If Not plg Is Nothing Then
    With Application: .ScreenUpdating = 0: .Calculation = -4135: .EnableEvents = 0: End With
    For Each cel In plg.Cells
      If cel.Value = "A" Or cel.Value = "B" Then cel.Offset(0, -5).Resize(1, 6).Interior.ColorIndex = 6 Else cel.Offset(0, -5).Resize(1, 6).Interior.ColorIndex = xlColorIndexNone
    Next
    With Application: .EnableEvents = 1: .Calculation = -4105: .ScreenUpdating = 1: End With
  End If
End Sub
VB: 
Private Sub Worksheet_Change(ByVal Cible As Range)
Dim plg, cel As Range
  Set plg = Intersect(Columns("F"), Cible, UsedRange)
  If Not plg Is Nothing Then
    With Application: .ScreenUpdating = 0: .Calculation = -4135: .EnableEvents = 0: End With
    For Each cel In plg.Cells
      Select Case cel.Value
      Case "A", "B"
        cel.Offset(0, -5).Resize(1, 6).Interior.ColorIndex = 6
      Case Else
        cel.Offset(0, -5).Resize(1, 6).Interior.ColorIndex = xlColorIndexNone
      End Select
    Next
    With Application: .EnableEvents = 1: .Calculation = -4105: .ScreenUpdating = 1: End With
  End If
End Sub
​
ROGER2327
#5239

Dimanche 1er Merdre 138 (Accouchement de Sainte Jeanne, papesse, ST)
29 Floréal An CCXIX
2011-W20-3T19:35:12Z
 
Vote positif 0 Vote négatif
Re : macro pour colorier ligne

je te remercie beaucoup.

en fait j'oubliais de mettre cel.Value après le Or...
Quand je dis que je suis pas doué en macro...

Là je pense que mon fichier sera complet... jusqu'à la prochaine modification...

Merci mille fois
 
Vote positif 0 Vote négatif
Re : macro pour colorier ligne

on pense avoir fini et en fait jamais...

je n'avais pas pensé à un gros détail. Les cellules que je veux colorier par la macro sont protégées car plusieurs personnes utilisent ce fichier.
Existe-t-il un moyen tout en gardant la protection de faire appliquer cette macro?

Merci encore et encore
 
Vote positif 0 Vote négatif
Re : macro pour colorier ligne

Bonjour matt31
Deux possibilités s'offrent à vous :
  1. Lors de la protection de la feuille par une procédure, vous écrivez
    Code: 
        Sheets("Nom_de_la_feuille_à_protéger").Protect UserInterfaceOnly:=True
    ce qui a pour effet d'empêcher les modifications indésirables par l'utilisateur tout en permettant au code de s'exécuter sur les cellules protégées.

  2. Vous ôtez temporairement la protection de la feuille pour permettre l'exécution du code. Par exemple :
    VB: 
    Private Sub Worksheet_Change(ByVal Cible As Range)
Dim plg, cel As Range
  Set plg = Intersect(Columns("F"), Cible, UsedRange)
  If Not plg Is Nothing Then
    On Error GoTo E
    With Application: .ScreenUpdating = 0: .Calculation = -4135: .EnableEvents = 0: End With
    Me.Unprotect
    For Each cel In plg.Cells
      If cel.Value = "A" Or cel.Value = "B" Then cel.Offset(0, -5).Resize(1, 6).Interior.ColorIndex = 6 Else cel.Offset(0, -5).Resize(1, 6).Interior.ColorIndex = xlColorIndexNone
    Next
E:  Me.Protect
    With Application: .EnableEvents = 1: .Calculation = -4105: .ScreenUpdating = 1: End With
  End If
End Sub
    Bien entendu, s'il y a un mot de passe, on écrira
    VB: 
    Me.Unprotect Password:="Le_mot_de_passe"
'   code...
Me.Protect Password:="Le_mot_de_passe"
ROGER2327
#5241

Lundi 2 Merdre 138 (Le Moutardier du Pape, V)
30 Floréal An CCXIX
2011-W20-4T15:24:48Z
 
Dernière édition:
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 2019 colorier une ligne sur deux mais uniquement les lignes visibles
Réponses
6
Affichages
251
pascal21
R
  • Question Question
Microsoft 365 Colorier ligne si
Réponses
3
Affichages
352
sylvanu
E
  • Question Question
XL 2016 Formule MFC
Réponses
7
Affichages
154
excelnoober
E
E
  • Question Question
XL 2016 RechercheV + macro
Réponses
5
Affichages
158
eXten
E
Y
  • Question Question
XL 2019 macro pour dupliquer un tableau
Réponses
3
Affichages
407
Yogean
Y
C
  • Question Question
XL 2021 Macro pour masquer ligne suivant critère
Réponses
3
Affichages
259
CHRIS1945
C
N
  • Résolu(e)
XL 2019 Macro pour copier ligne avec case à cocher liée
Réponses
12
Affichages
361
Phil69970
Y
  • Résolu(e)
XL 2013 Colorier une cellule en fonction d'une valeur
Réponses
3
Affichages
649
Yvan1
Y
O
  • Question Question
Autres Optimisation macro numérotation ligne
Réponses
11
Affichages
366
crocrocro
C
P
  • Question Question
XL 2019 Macro VBA appliquer un filtre lors d'une importation de données
Réponses
1
Affichages
320
fanch55
B
  • Question Question
XL 2021 VBA pour générer une liste de valeurs comprise entre 2 valeurs
2
Réponses
16
Affichages
437
benjy555
B
T
  • Question Question
XL 2019 dans un tableau ( mise en forme de tableau), 2 couleur pour 1 tableau
Réponses
4
Affichages
316
tuti
T
  • Question Question
XL 2021 [Résolu] MFC et tableau structuré
Réponses
14
Affichages
1 K
jeff1494
M
  • Question Question
Microsoft 365 Macro pour changer le format de nombre à l'ouverture d'un CSV
Réponses
4
Affichages
170
oguruma
G
  • Question Question
XL 2021 Macro pour changer les titres de fichier d'archive
Réponses
3
Affichages
554
fanch55
A
  • Question Question
Microsoft 365 Macro pour recherche de cellules entre 2 fichiers Excel
Réponses
7
Affichages
283
AtTheOne
P
  • Question Question
XL pour MAC MAC OS - question sur macro VBA pour gestion fichier budget
Réponses
0
Affichages
115
pamino
P
M
  • Question Question
Microsoft 365 macro en fct de l'état d'une autre (boucle)
Réponses
3
Affichages
228
sylvanu
U
  • Question Question
Autres incorporer une macro dans une autre macro
Réponses
5
Affichages
617
Phil69970
  • Question Question
XL 2016 annulation ou désactivation de macro
2
Réponses
27
Affichages
870
job75
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…