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

MGN · 27 Janvier 2022

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 · 27 Janvier 2022

Re,

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

mapomme · 27 Janvier 2022

Re,

Vous trouverez 3 fichiers joints :

Un fichier nommé mColorer.txt. Il est à sauvegarder sur votre disque. Une fois sauvegardé sur votre disque, changer son extension .txt en .bas (XLD refuse les fichier avec l'extension .bas)
Il devra ensuite être importé dans votre classeur. Pour cela:

ouvrez votre classeur (refermer tous les autres)
et suivez les instructions dans le fichier MGN Importer-Module.gif

Pour lancer ensuite la macro:
suivre les instructions du fichier MGN Lancer une macro.gif

N'oublier de sauvegarder le classeur au format .xlsm sinon les macros seront perdues!

mapomme · 27 Janvier 2022

MGN à dit:
@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 !

Je ne comprend pas le problème (je comprends vite mais il faut m'expliquer longtemps)

Quelle mise en page voulez-vous conserver et quelle mise en page disparait ? (normalement je ne touche qu'à la couleur de fond)

job75 · 27 Janvier 2022

Je trouve la solution de mapomme compliquée alors voici la mienne sur le fichier du post #10 :

VB:

Sub Sequence()
Dim x$, N, lig&, P As Range, ncol%, i%, j%
Do
    x = InputBox("Entrez la dimension des séquences à colorer :", "Séquences", x)
    If x = "" Then Exit Sub
    N = Int(Val(x))
Loop While N < 1
Application.ScreenUpdating = False
With Feuil1.Range("A1", Feuil1.UsedRange) 'Feuil1=CodeName
    For lig = 6 To 50 'limites à adapter
        ncol = .Cells(lig, Columns.Count).End(xlToLeft).Column + 1 '1 colonne de plus
        If ncol > 4 Then
            Set P = .Cells(lig, 4).Resize(, ncol - 3)
            P.Interior.ColorIndex = xlNone 'RAZ
            For i = 1 To ncol - 4
                x = LCase(P(i)) 'texte en minuscules
                If x <> "" And x <> LCase(P(i - 1)) Then
                    For j = i + 1 To ncol - 3
                        If LCase(P(j)) <> x Then
                            If j - i = N Then P(i).Resize(, j - i).Interior.ColorIndex = 6 'jaune
                            Exit For 'jaun
                        End If
                    Next j
                End If
            Next i
        End If
    Next lig
End With
End Sub

mapomme · 27 Janvier 2022

job75 à dit:
Je trouve la solution de mapomme compliquée alors voici la mienne sur le fichier du post #10 :

Comment voulez vous qu'un esprit nativement aussi tordu que celui de ma pomme ponde des codes simples?
C'est vrai que j'ai une propension à chercher midi à quatorze heure.

Blague à part,, nos deux codes ne réalisent pas la même chose (ce qui ne justifie sans doute pas la complexité du mien, je le concède aisément)

MGN · 27 Janvier 2022

mapomme à dit:
Comment voulez vous qu'un esprit nativement aussi tordu que celui de ma pomme ponde des codes simples?
C'est vrai que j'ai une propension à chercher midi à quatorze heure.

Blague à part,, nos deux codes ne réalisent pas la même chose (ce qui ne justifie sans doute pas la complexité du mien, je le concède aisément)

Pour avoir tester les 2 j'ai bien l'impression que celui ci fonctionne également !
C'est vraiment cool ce que vous avez fait tous en tout cas !

Compte Supprimé 979 · 27 Janvier 2022

Bonsoir le fil

MGM écrit son titre en majuscule et ça ne choque personne
Ecrire en MAJUSCULE c'est COMME HURLER...

Mais apparemment vous aimez qu'on vous crie dessus

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

MGN

XLDnaute Nouveau

mapomme

mapomme

XLDnaute Barbatruc

Pièces jointes

mapomme

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Pièces jointes

mapomme

XLDnaute Barbatruc

MGN

XLDnaute Nouveau

Compte Supprimé 979

Guest

Discussions similaires