Boite de dialogue

[myelmehdi]

Bonjour,

j'aurai besoin de votre aide.

voilà mon problème. je veux faire afficher une boite de dialogue, si à l'ouverture du fichier excel la cellule H1 de l'onglet "intro"est vide. sinon rien faire.

ci-dessous le code que j'ai essayé de faire mais ça ne marche pas.

Pouvez-vous m'aider.

Merci

Private Sub Workbook_Open()
Sheets("Intro").Activate
If Range("H1") = "" Then Response = MsgBox("xx", vbInformation, "ATTENTION : INFORMATION")
Else
Range("A1").Select
End If

End Sub

 

[zeb]

Salut Mehdi,

Grrrrr tu vas arrêter avec ces Activate, oui ! [:zeb:4]

Qu'est-ce qui ne marche pas ?
Si tu as correctement copié ton code, tu devrais avoir une erreur sur la ligne 4.
Il faut écrire sur une ligne ou sur plusieurs, mais ne pas faire de mélange :

' // Syntaxe 1
If condifiton Then action1 Else action2

' // Syntaxe 2
If condifiton Then
    action1
Else
    action2
End IF