Erreur d'une Macro de comparaison pour les zéro, majiscule, dates et pourcentage

[Ilias]

Bonjour à tous !

J'ai fait une macro qui me compare deux tabeau, elle change le fond des cases différentes en jaune, mais la macro se trompe pour les zéros, majiscules, dates et pourcentages.. est ce quelqu'un aurait une idée pour résoudre ce problème 😕


Le fichier est en pièce jointe ..et la Macro pour comparer est comparer.. Merci infiniment pour votre aide 🙂

Bien à vous ,

Ilias

 

[mth]

Re : Erreur d'une Macro de comparaison pour les zéro, majiscule, dates et pourcentage

Bonjour,

Tu parles de cette macro là? :

Sub Comparer()
    Dim C As Range
    With Sheets("tableau_chargé")
        For Each C In .Range("B2:X13")
        'cest pas le tableau ref
            If C <> Sheets("Tableau_référence").Range(C.Address) Then
                C.Interior.ColorIndex = 6
                'Sheets("Feuil2").Range(Cell.Address) = 6
            'Else
                'Cell.Interior.ColorIndex = xlNone
               ' Sheets("Feuil2").Range(Cell.Address).Interior.ColorIndex = xlNone
            End If
        Next
    End With
End Sub

J'ai corrigé des petites choses, mais de toute façon, tu compares des cellules numériques avec des cellules texte, est-ce volontaire? ou veux-tu transformer le tout en numérique?

@ +

mth