boite de dialogue

boite de dialogue - VB/VBA/VBS - Programmation

Marsh Posté le 17-04-2009 à 10:42:18    

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  
 
[code]  
 
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  
 
[code]  
 

Reply

Marsh Posté le 17-04-2009 à 10:42:18   

Reply

Marsh Posté le 18-04-2009 à 11:54:47    

bonjour,
comme ça c'est mieux :

Code :
  1. Private Sub Workbook_Open() 
  2. Sheets("Intro" ).Activate 
  3. If Range("H1" ) = "" Then
  4. Response = MsgBox("xx", vbInformation, "ATTENTION : INFORMATION" ) 
  5. Else 
  6. Range("A1" ).Select 
  7. End If 
  8. End Sub


A+

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed