Besoin d'aide, macro balayage colonne + ajout de couleur

  • Initiateur de la discussion Initiateur de la discussion Vich
  • 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 !

Vich

XLDnaute Nouveau
Salut tout le monde,

Code:
'Saute une ligne à chaque référence différente.
    Dim NbCells As Integer
    NbCells = Range("A1").End(xlDown).Row
    Application.ScreenUpdating = False
    Dim Boucle As Long
    Dim NbLigneSautee As Integer
    NbLigneSautee = 0
    For Boucle = Range("J65536").End(xlUp).Row To 3 Step -1
        If Range("I" & Boucle) <> Range("I" & Boucle - 1) Then
            Range("I" & Boucle).EntireRow.Insert
            NbLigneSautee = NbLigneSautee + 1
        End If
    Next Boucle
    Application.ScreenUpdating = False
    
    'Application de couleur / ref connecteur
    'Tableau avec les différentes valeur des couleurs index pour colorer les lignes
    Dim TableauCouleur(10) As Integer
    TableauCouleur(1) = 15
    TableauCouleur(2) = 23
    TableauCouleur(3) = 43
    TableauCouleur(4) = 3
    TableauCouleur(5) = 44
    TableauCouleur(6) = 23
    TableauCouleur(7) = 38
    TableauCouleur(8) = 45
    TableauCouleur(9) = 48
    TableauCouleur(10) = 41
    Dim B As Long
    Dim C As Integer
    C = 1
    For B = 2 To Range("A65536").End(xlUp).Row
        If Range("A" & B).Value <> "" Then
            Range("A" & B).CurrentRegion.Resize(, 19).Interior.ColorIndex = TableauCouleur(C)
            C = C + 1
        End If
    Next B

Vous l'aurez compris, une macro très simple qui balaye la colonne A et si il y a un saut de ligne il la colore en une certaine couleur définie dans un tableau.

Le problème est qu'il ne me met pas les couleurs dans l'ordre demandé, il en saute plein et arrive vite à la fin du tableau du coup j'ai des lignes blanches.

Je ne comprend pas pourquoi ça ne marche pas, bref need help.

Merci d'avance, Vich.
 
Re : Besoin d'aide, macro balayage colonne + ajout de couleur

Bonjour Vich

A tester:

Code:
Sub test()
    Dim TableauCouleur(10) As Integer
    TableauCouleur(1) = 15
    TableauCouleur(2) = 23
    TableauCouleur(3) = 43
    TableauCouleur(4) = 3
    TableauCouleur(5) = 44
    TableauCouleur(6) = 23
    TableauCouleur(7) = 38
    TableauCouleur(8) = 45
    TableauCouleur(9) = 48
    TableauCouleur(10) = 41
    num = 1
     For boucle = Range("J65536").End(xlUp).Row To 3 Step -1
        If Range("I" & boucle) <> Range("I" & boucle - 1) Then
            Range("I" & boucle).EntireRow.Insert
            Range("A" & boucle & ":S" & boucle).Interior.ColorIndex = TableauCouleur(num)
            num = num + 1
            NbLigneSautee = NbLigneSautee + 1
        End If
    Next boucle
   End Sub
 
- 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

Réponses
4
Affichages
177
  • Question Question
Microsoft 365 worksheet_change
Réponses
29
Affichages
479
Réponses
3
Affichages
193
Réponses
10
Affichages
281
Réponses
5
Affichages
232
Réponses
4
Affichages
461
Retour