Comparer la valeur entre 2 cellule

Bonjour,

Je recherche quelque chose de simple, mais je ne comprends pas pourquoi cela ne fonctionne pas,

Je cherche juste à mettre une condition de comparaison entre 2 valeurs dans 2 cellules comme ci-dessous :

Sub testre()
   Dim Cellule As String
   Dim Destinataire As String

    Cellule = Sheets("Pilotage").Range("D22").Value
    Destinataire = Sheets("Paramètres").Cells(1, 1).Value

    MsgBox Cellule
    MsgBox Destinataire

    If Cellule = Destinaire Then

        MsgBox "TEST OK"     
        Else   
        MsgBox "TEST FAILED"   
    End If
End Sub

bien que la valeur qui s'affiche dans les deux msgbox soit égale, le test est toujours, systématiquement raté, je ne comprends pas pourquoi...

Bonjour,

Regarde bien ton code : Destinataire et Destinaire

Une fois la ligne "If Cellule = Destinaire Then" corrigée, ça fonctionnera bien.

ric

Rebonjour,

Tu as déclaré : Dim Destinataire As String ... il y a une majuscule au début de ta variable ... excellent.

Quand tu tapes ta variable dans le code, ne mets pas la majuscule, mets le d en minuscule.

En changeant de ligne, la majuscule va se mettre toute seul si la variable est reconnue.

ric

Bonjour,

Essaie avec ça pour voir

Sub testre()
   Dim Cellule As String
   Dim Destinataire As String

    Cellule = Sheets("Pilotage").Cells(22, 4).Value
    Destinataire = Sheets("Paramètres").Cells(1, 1).Value

    MsgBox (Cellule)
    MsgBox (Destinataire)

    If Cellule = Destinataire Then

    MsgBox ("TEST OK")
    Else
    MsgBox ("TEST FAILED")

    End If

End Sub

Roh, le boulet ....................

Merci Beaucoup,

Bonsoir Lolo1905, le forum,

pour le fun, je propose ce code VBA :

Sub testre()
  Dim Cellule$, Destinataire$: Cellule = [Pilotage!D22]: Destinataire = [Paramètres!A1]
  MsgBox Cellule & " ; " & Destinataire & vbLf & vbLf & "TEST " & IIf(Cellule = Destinataire, "OK", "FAILED")
End Sub

dhany