Microsoft 365 METTRE UNE FORME A DES CELLULES EN FONCTION DU NOMBRE DE REPETITIONS

• on calcule le nombre d'élément de la séquence la plus longue
• puis on colore toutes les séquences ayant ce nombre d'éléments
• on alterne les couleurs
• cliquer sur le bouton Hop!

Sub colorer()
Dim xrg As Range, t, max, ref, n&, j&, plage As Range, coul
   Set xrg = Range("a1:j1"): t = xrg.Value
   xrg.Interior.ColorIndex = xlColorIndexAutomatic
   max = 0: ref = t(1, 1): n = 1
   For j = 2 To UBound(t, 2)
      If t(1, j) = ref Then
         n = n + 1
      Else
         If n > max Then max = n
         n = 1: ref = t(1, j)
      End If
   Next j
   If n > max Then max = n

   n = 0
   Do
      Set plage = xrg.Offset(, n).Resize(, max)
      If Application.CountIf(plage, plage(1, 1)) = max Then
         plage.Interior.Color = IIf(coul Mod 2 = 0, vbYellow, vbGreen): coul = coul + 1
         n = n + max
      Else
         n = n + 1
      End If
      If n > xrg.Count - 1 Then Exit Do
   Loop
End Sub

mapomme à dit:

Re,
Une version v2 dans laquelle on demande à l'utilisateur de saisir la longueur des séquences à colorer.

Cliquez pour agrandir...

• saisir la taille des séquences à formater
• formater toutes les séquences ayant cette taille
• quand une séquence a été formatée, on passe à la cellule qui suit la séquence formatée et on réexamine (je crois)

job75 à dit:

Bonjour MGN, mapomme,

Une solution très simple dans le fichier joint :

VB:

Sub Serie_max()
Dim P As Range, ncol%, i%, j%, Q As Range, maxi%, R As Range
Set P = Rows(1).Cells 'ligne à adapter
ncol = Cells(P.Row, Columns.Count).End(xlToLeft).Column + 1 '1 colonne de plus
For i = 1 To ncol - 1
    If P(i) <> "" Then
        For j = i To ncol
            If P(j) <> P(i) Then
                Set Q = Range(P(i), P(j - 1))
                If Q.Count > maxi Then maxi = Q.Count: Set R = Q
                Exit For
            End If
        Next j
    End If
Next i
'---restitution---
Application.ScreenUpdating = False
P.Interior.ColorIndex = xlNone 'RAZ
R.Interior.ColorIndex = 6 'jaune
End Sub

A+

Cliquez pour agrandir...

MGN à dit:

C'est exactement cela que je souhaite faire ! Comme ça je peux changer le nombre en fonction de mes cellules. Comment pourrais-je faire pour créer cette macro dans mon excel ?

Cliquez pour agrandir...

mapomme à dit:

Re @MGN,

Il nous faut absolument votre fichier de travail.
Pas le fichier dans sa totalité, mais un extrait reflétant exactement la structure de votre fichier réel. Et bien sûr sans données personnelles pour respecter le RGPD)

Je sentais bien que pour une ligne, ce ne serait pas suffisant.

Quand à un tuto explicatif, je recherche...

Cliquez pour agrandir...

mapomme à dit:

Re @MGN,

Il nous faut absolument votre fichier de travail.
Pas le fichier dans sa totalité, mais un extrait reflétant exactement la structure de votre fichier réel. Et bien sûr sans données personnelles pour respecter le RGPD)

Je sentais bien que pour une ligne, ce ne serait pas suffisant.

Quand à un tuto explicatif, je recherche...

Cliquez pour agrandir...

mapomme à dit:

Re,
Un tuto pour débuter ICI
Au moins pour afficher le menu "Développeur" et se placer dans l'environnement VBA (tout début de la vidéo)
Après, on poursuivra.

Cliquez pour agrandir...

mapomme à dit:

Re,

En attendant les instructions suivantes, voici votre document modifié.
A vous de le tester à fond pour voir si c'est OK.

Cliquez pour agrandir...