Microsoft 365 Surligner les lignes si valeur d'une cellule de même valeur

[akira21]

Bonjour,

Je bloque sur une macro qui doit me surligner les lignes en couleurs si les cellules dans la colonne F ont la même valeur.

Cela m'envoie une erreur Erreur d'exécution '13': incompatibilité de type

Qq'un peut il m'aider ?

Merci de votre aide

 

[Rouge]

Bonjour,

Ceci:

Sub test()
    Dim cel As Range
    Dim Couleur As Long
    Dim Couleur2 As Long
    Dim Transit As Long
   
    i = 0
    Couleur = 10213316
    Couleur2 = 16777215
   
    For i = 5 To Range("F" & Rows.Count).End(xlUp).Row
        If Cells(i, "F") = Cells(i - 1, "F") Then
            Range(Cells(i, "A"), Cells(i, "M")).Interior.Color = Couleur
        Else
            Range(Cells(i, "A"), Cells(i, "M")).Interior.Color = Couleur2
            Transit = Couleur
            Couleur = Couleur2
            Couleur2 = Transit
        End If
    Next
End Sub

Cdlt

 

[Staple1600]

Bonjour le fil

=>akira21
Tu peux faire cela sans macro
Avec la Mise en Forme conditionnelle
Accueil->Mise en forme conditionnelle
Nouvelle règle
Utiliser une formule...
Et mettre cette formule
=NB.SI($F$5:$F$31;$F5)>1

PS: test OK sur ton fichier exemple

EDITION: Bonjour Rouge

 

[Rouge]

Bonjour Staple1600,

Si j'ai bien compris d'près le code fourni, je ne crois pas que ce n'est pas tout à fait ça, il faut qu'à chaque changement de valeur les couleurs changent elles aussi.

Cdlt

 

[akira21]

Bonjour,

Ceci:

Sub test()
    Dim cel As Range
    Dim Couleur As Long
    Dim Couleur2 As Long
    Dim Transit As Long
  
    i = 0
    Couleur = 10213316
    Couleur2 = 16777215
  
    For i = 5 To Range("F" & Rows.Count).End(xlUp).Row
        If Cells(i, "F") = Cells(i - 1, "F") Then
            Range(Cells(i, "A"), Cells(i, "M")).Interior.Color = Couleur
        Else
            Range(Cells(i, "A"), Cells(i, "M")).Interior.Color = Couleur2
            Transit = Couleur
            Couleur = Couleur2
            Couleur2 = Transit
        End If
    Next
End Sub

Cdlt

Super, un grand merci

 

[Staple1600]

Re

Déjà il y a des petites coquilles dans le code
Au début on a
Dim Traansit As Long
puis
Couleur2 = Transit

Et cela même avec un Excel nourri aux fibres, le transit ne sera pas fluide

 

[Staple1600]

Re

Quand à l'erreur, ce petit test l'explique, non ?

Sub Achtung_Baby()
XX = "C10-97"
XXX = "C10-97"
ZZ = Application.WorksheetFunction.RoundDown(XX, 0)
ZZZ = Application.WorksheetFunction.RoundDown(XXX, 0)
MsgBox ZZ
MsgBox ZZZ
End Sub

EDITION: Là plus d'erreur, car valeur numérique (ce qu'il n'y a pas dans la colonne F du fichier exemple)

Sub Achtung_Baby_OK()
XX = 1.4839
XXX = 1.4849598425
ZZ = Application.WorksheetFunction.RoundDown(XX, 3)
ZZZ = Application.WorksheetFunction.RoundDown(XXX, 3)
MsgBox ZZ
MsgBox ZZZ
End Sub

 

[mapomme]

Bonjour à tous,
Avec une autre MFC:

=EST.IMPAIR(SOMME(N($F$5:$F5<>$F$4:$F4)))

 

[Staple1600]

Bonjour mapomme

Avec ta formule, je n'obtiens pas la même chose
Exemple
La ligne 7 est coloriée
alors qu'il y a une seule occurrence de C10-97 en colonne F.

Qu'est-ce qui m'échappe?

 

[akira21]

Bonjour à tous,
Avec une autre MFC:

=EST.IMPAIR(SOMME(N($F$5:$F5<>$F$4:$F4)))

C'est exactement ça !
Vaut il mieux du VBA ou MFC pour ça ?
MFC sera surement moins lourd ?

 

[Staple1600]

Re

=>akira21
Je p*ue de la gu**le?
Ou c'est juste un zappage inopiné?
Tu n'as pas vu le message#3?

 

[akira21]

Re

=>akira21
Je p*ue de la gu**le?
Ou c'est juste un zappage inopiné?
Tu n'as pas vu le message#3?

Vraiment désolé, je n'avais pas vu :/
Je viens d'essayer ta formule mais ce n'est pas ce que je recherche.
Il faut que le remplissage couleur de la ligne se fasse une fois sur deux comme avec la formule de mapomme.

Mais un grand merci pour ton aide

 

[mapomme]

Vaut il mieux du VBA ou MFC pour ça ?
MFC sera surement moins lourd ?

Rien n'est moins certain. Si le nombre de ligne est grand, alors le VBA prendra moins de ressources (je pense).
Un autre avantage du VBA, c'est qu'on peut trier la plage selon la colonne F avant de la colorier. On est ainsi certain, que le coloriage sera toujours correct.

 

[Staple1600]

Re

=>akira21
Ouf, j'ai cru que j'étais invisible
Ou que mon hygiène laissait à désirer

Le titre de ta discussion parlait de cellule de même valeur
Or on est bien d'accord que dans ton exemple il n'y a qu'une seule fois C10-97
Or la MFC de mapomme la met en couleur.

Ce que je ne comprends donc pas.

 

[Staple1600]

Re

=>mapomme
Toi, non plus, tu ne m'as pas vu?
Ou plutôt pas vu ma question à ton endroit.
(cf message#9)