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

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

Bonjour,

une macro en texte serait mieux qu'une photo, et un fichier encore plus pratique !

pourquoi ne pas faire une MFC ?

Il me semblait avoir mis le fichier, autant pour moi !

Désolé.

Possible en MFC ?

Merci de ton aide :)

en MFC

Merci mais comment faire pour que cela colorise la ligne entière ?

Bonjour,

Multiposte !...

Pour ceux que ça intéresse voici deux solutions que l'on m'a transmise :

En VBA :

    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

Et en MFC :

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

Merci pour votre aide :)

akira a écrit :

Merci mais comment faire pour que cela colorise la ligne entière ?

tu mets des $ devant F et tu appliques à la ligne entière

edit : la solution la meilleure est celle que tu cites, je suppose que son auteur est Jean-Eric

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

appliquée sur toute la ligne

et si tu as maintenant un filtre sur ton tableau, trie bien les valeurs, ajoute un colonne (N) qui donnera la fréquence et la formule devient

=EST.IMPAIR(ARRONDI.SUP(SOUS.TOTAL(9;$N$4:$N5);0))

@akira

je viens de retrouver une solution différente

n'oublie pas de clore le fil de discussion en cliquant sur

Bonjour Steelson,

Merci pour le fichier, c'est exactement ça :)

Bonne journée