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

[MGN]

Bonjour,
Je souhaite savoir comment faire pour identifier et mettre une forme a des cellules qui se suivent un certain nombre de fois (ex 4) et qui ont la même valeur.
Exp :
la france est présente 4 fois mais pas à suivre, mais l'espagne est présente 5 fois, dont 4 à suivre. Je souhaite mettre de fond rouge les 4 cases espagne qui se suivent.

Avez vous une solution ?

A	B	C	D	E	F	G	H	I	J
france	france	france	espagne	espagne	espagne	espagne	france	allemagne	espagne

 

[mapomme]

Bonjour @MGN, bienvenue sur XLD ,

Comme aucun fichier n'a été fourni, j'ai pondu un code qui n'est ni optimisé, ni sans doute adapté à votre cas réel.

• 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!

Le code est dans le module de la feuille "Feuil1".

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]

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

 

[MGN]

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

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 ?

 

[job75]

Bonjour MGN, mapomme,

Une solution très simple dans le fichier joint :

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+

 

[mapomme]

Bonjour @job75 ,

En fait, si j'ai bien compris, le demandeur souhaite:

• 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)

Une autre question du demandeur: comment faire pour mettre le code VBA dans son classeur ?
N'aurais pas tu quelque chose de tout fait et disponible à ce propos ou un lien qui présente comment faire ?

 

[MGN]

Bonjour MGN, mapomme,

Une solution très simple dans le fichier joint :

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+

J'aimerai si possible pouvoir changer la taille de la séquence. Peux-tu appliquer cela a plusieurs ligne d'une meme feuille. mais que cela prenne en compte ligne par ligne

 

[MGN]

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 ?

@mapomme avez vous un tuto explicatif pour que je puisse le faire dans mon document ?

 

[mapomme]

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

 

[MGN]

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

 

[MGN]

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

@mapomme voici le document , sans informations personnelles

 

[mapomme]

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.

 

[MGN]

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.

Le menu développeur est Ok pour moi.

 

[mapomme]

Re,

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

 

[MGN]

Re,

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

@mapomme c'est vraiment ça que vous avez fait ! bravo ! Puis je avec cet excel, refaire ma mise en page sans qu'elle s'enlève à chaque fois que je cliques sur HOP !