Question VBA

Bonjour

Je n'ai jamais fait de vba et je n'arrive pas a faire mon programme...

Dans ce macro , je dois vérifier que la case A1 de la feuille 1 sois la même que la case A1 de la feuille 2. Et je dois faire la même chose pour la case B1 , C1 , D1 , E1 ... jusqu’à Z1 . Si les cases sont identiques , ils ne se passe rien , si au contraire les cases sont différentes alors un message d'erreur s'affiche et la case de la feuille 2 doit être surligné.

J'espere que vous m'avez compris ^^

Merci d'avance

Laurene

EDIT: La feuille 1 s’appelle Opération et la feuille 2 contrat

Bonjour,

une proposition de macro

Sub test()
    With Sheets("contrat")
        For i = 1 To 26
            If Sheets("operation").Cells(1, i) <> .Cells(1, i) Then
                .Cells(1, i).Font.Underline = xlUnderlineStyleSingle
            End If
        Next i
    End With

End Sub

Bonjour H2SO4

Quand j'applique ton programme , il n'y a aucune case qui devient rouge alors que j'ai fait expres de faire des erreurs

Laurene

Bonjour,

les cases ne deviennent pas rouges, mais le texte est souligné comme tu l'as demandé.

mais il y a effectivement une erreur.

voici une correction.

Sub test()
    With Sheets("contrat")
        For i = 1 To 26
            If Sheets("operation").Cells(1, i) <> .Cells(1, i) Then
            MsgBox "cellule " & Cells(1, i).Address & " différente"
                .Cells(1, i).Font.Underline = xlUnderlineStyleSingle
            End If
        Next i
    End With

End Sub

Oui je me suis trompé ,

Le programme marche à merveille merci beaucoup