Macro pour colorier des lignes Fermé

Question

Bonjour à tous,

   Je suis débutant dans VBA et j'essaie d'avoir une macro qui m'attribue des couleurs aux lignes suivant la valeur de la colonne "B"  (voir fichier joint)

  J'ai trouvé la Macro ci-dessous que j'ai un peu modifié mais le problème c'est qu'elle ne veut pas s'exécuter !!, d'après ce que j'ai compris elle utilise la mise en forme conditionnelle.

Voilà la macro: 

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Derlig As Long, X As Long
    With Worksheets("Feuil1")
        Application.ScreenUpdating = False
        Derlig = .Range("B" & Rows.Count).End(xlUp).Row
        For X = Derlig To 2 Step -1
         If Not Intersect(["B", X], Target) Is Nothing And Target.Count = 1 Then
           p = Application.Match(Target, [couleurs], 0)
            If Not IsError(p) Then
           Range(Target.Offset(0, -3), Target.Offset(0, 4)).Interior.ColorIndex = Range("couleurs")(p).Interior.ColorIndex
         End If
       End If
     Next X
   End With
End Sub

Je vous met une exemple de fichier que je dois traiter : https://www.cjoint.com/?0Gckeyn2JM7


Merci d'avance pour votre aide.

michel_m · Answer

Bonjour,

Pourquoi fais tu une boucle puisque à chaque donnée saisie colonne B l'événement worksheet.change te mettra la couleur désirée ?

ssboo · Answer

Bonjour Michel,

   Si j'ai rajouté une boucle c'était sûrement parce que je ne connais pas très bien ce type de macro

   Je voulais aussi te remercier pour ta réponse, mais j'ai juste un dernier problème !

  Quand j'essaie de l'exécuter, elle me sors l'onglet pour enregistrer une nouvelle Macro !! du coup elle n'applique pas les modifications ! je ne comprends pas d'où vient  ce problème.

Merci encore

Macro pour colorier des lignes

2 réponses

Discussions similaires