Discussion :

[jean30]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[antonysansh]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("G7") = ActiveSheet.Name

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[jean30]

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