Microsoft 365 Séléction successives en fonction des valeurs aux bornes dans un même plage de données

Mimi3131 · 11 Novembre 2021

Bonjour,
J'ai besoin de modifier la couleur de cellules comprises entre des séquences variables de plages.
Les bornes à rechercher dans une même colonne sont les mêmes, pour l'exemple : CC au début et HH à la fin, mais elles ne sont pas toujours situées sur les mêmes numéros de lignes.
En revanche la plage A1-A21 ne varie jamais.
Je parviens à identifier et mettre en forme la première séquence (ci-dessous A1-A4) mais je j'arrive pas à enchainer sur les autres séquences.
Je joins mon brouillon de code (fichier "test" pour faciliter.
Mille mercis car j'y ai passé plusieurs heures avant de me décider à venir vers vous !

Phil69970 · 11 Novembre 2021

Bonjour @Mimi3131

Je te propose ceci :

VB:

Sub PlageCouleur()
Application.ScreenUpdating = False
Dim Derlig&, i&, x$

Derlig = Worksheets("Feuil1").Range("A" & Rows.Count).End(xlUp).Row
x = 34          'Couleur de départ (modifiable)
For i = 2 To Derlig
    With Worksheets("Feuil1").Range("A" & i)
        If .Value <> "CC" Then .Interior.ColorIndex = x
        If .Value = "HH" Then x = x + 2 Else .Interior.ColorIndex = x
    End With
Next i
End Sub

*Merci de ton retour

@Phil69970

Mimi3131 · 12 Novembre 2021

Bonsoir Phil69970
Ta proposition marche impeccablement. Elle est élégante et va au but.
C'est tout simplement impressionnant (d'autant plus en comparaison de ma machine à gaz initiale !
Merci !

Microsoft 365 Séléction successives en fonction des valeurs aux bornes dans un même plage de données

Mimi3131

XLDnaute Nouveau

Pièces jointes

Phil69970

XLDnaute Barbatruc

Mimi3131

XLDnaute Nouveau

Discussions similaires