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

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 !

Mimi3131

XLDnaute Nouveau
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 !
1636653098723.png
 

Pièces jointes

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
1636669252589.png

*Merci de ton retour

@Phil69970
 
Dernière édition:
- 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
Retour