aide sur vba

[cj welch]

bonjour le forum,

je viens de creer un code qui ne fonctionne pas comme je souhaite :

Private Sub Compt_Click()
Sheets("essai").Visible = True
If Sheets("essai").Visible = True Then MsgBox ("Vous devez d'abord relancer le calcul des factures")
End Sub

je voudrais quand la feuille essai est afficher, le message d'erreur ci-dessus s'affiche (le méssage s'affiche uniquement quand la feuille est affiché).

merci de votre aide

 

[bqtr]

Re : aide sur vba

Bonjour cj welch,

Si tu veux l'affichage du message avant l'affichage de la feuille tu peux faire comme ceci :

Private Sub CommandButton1_Click()

If MsgBox("Pour afficher la feuille, Vous devez d'abord relancer le calcul des factures", vbInformation + vbYesNo, "Attention :") = vbYes Then
  Sheets("Feuil3").Visible = True
  'ton calcul
End If

End Sub

Si l'utilisateur click sur "Oui" la feuille s'affiche, sur "Non" rien ne se passe.

A+

 

[PAD]

Re : aide sur vba

bonjour le forum, cj welch, bqtr,

Moi j'avais compris plus simplement...
A mettre sur la feuil1 en code :

Private Sub Worksheet_Activate()
MsgBox ("Vous devez d'abord relancer le calcul des factures")
End Sub


A+

 

[cj welch]

Re : aide sur vba

salut bqtr,

merci de ton interet.
non, je veus juste quand la feuille "essai" est affiché, et si je rappuis sur le bouton, le message suivant s'affiche "Vous devez d'abord relancer le calcul des factures"

au faite, la feuille d'essai s'affiche quand on appuis sur le bouton, j'ai oublié de le préciser.

A+

 

[bqtr]

Re : aide sur vba

Re, Bonjour PAD

Alors essaye comme ça :

Private Sub CommandButton1_Click()

If Not Sheets("Feuil3").Visible = True Then
   Sheets("Feuil3").Visible = True
   Exit Sub
Else
   MsgBox ("Vous devez d'abord relancer le calcul des factures")
End If

End Sub

A+

 

[cj welch]

Re : aide sur vba

re bqtr, salut pad

merci pour le code ça fonctionne.

A+