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

R

Rouge

XLDnaute Impliqué

• 17 Janvier 2021

• #2

Bonjour,

Ceci:

VB:

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 17 Janvier 2021

• #3

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

 

Dernière édition: 17 Janvier 2021

Vote positif 0 Vote négatif

R

Rouge

XLDnaute Impliqué

• 17 Janvier 2021

• #4

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

 

Vote positif 0 Vote négatif

A

akira21

XLDnaute Occasionnel

• 17 Janvier 2021

• #5

Rouge à dit:

Bonjour,

Ceci:

VB:

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

Cliquez pour agrandir...

Super, un grand merci 🙂

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 17 Janvier 2021

• #6

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 😉

 

Dernière édition: 17 Janvier 2021

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 17 Janvier 2021

• #7

Re

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

VB:

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)

VB:

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

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 17 Janvier 2021

• #8

Bonjour à tous,
Avec une autre MFC:

VB:

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

 

Pièces jointes

• akira21- MFC- v1.xlsx

  11.3 KB · Affichages: 8

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 17 Janvier 2021

• #9

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?

 

Vote positif 0 Vote négatif

A

akira21

XLDnaute Occasionnel

• 17 Janvier 2021

• #10

mapomme à dit:

Bonjour à tous,
Avec une autre MFC:

VB:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

Solution

Staple1600

XLDnaute Barbatruc

• 17 Janvier 2021

• #11

Re

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

 

Vote positif 0 Vote négatif

A

akira21

XLDnaute Occasionnel

• 17 Janvier 2021

• #12

Staple1600 à dit:

Re

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

Cliquez pour agrandir...

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 🙂

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 17 Janvier 2021

• #13

akira21 à dit:

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

Cliquez pour agrandir...

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.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 17 Janvier 2021

• #14

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.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 17 Janvier 2021

• #15

Re

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

 

Vote positif 0 Vote négatif