comment ecrire ce code

Bonjour à tous,
Je vous remercie de m'aider car je n'arrive pas à formuler ceci par vba :
si A3 = D7 et si G7 = Feuille active

Code:

---

1 2 3 4 5

Sub XXX() If Range("D7") = "A3" And Range("G7") = "ActiveSheet" Then MsgBox "Ok 1" End If End Sub

---

Le MsgBox ne s'affiche jamais.

Bonjour jean30,

Range("G7") = "ActiveSheet" signifie que la cellule G7 de la feuille active doit contenir la chaine de caractères "ActiveSheet"

Si tu cherches à savoir si la cellule G7 de la feuille active a pour valeur le nom de la feuille active, tu dois plutôt écrire ceci :

Code:

---

Range("G7") = ActiveSheet.Name

---

de même pour le teste des valeurs des cellules :

Code:

---

Range("G7") = Range("A3")

---

Bonsoir antonysansh,
Je te remercie pour les codes et les explications fournies qui me sont bien utiles.
Je te souhaite une bonne soirée.