Pas de +1 à msgbox si non

G

Guest

Guest

• 2 Novembre 2008

• #2

Re : Pas de +1 à msgbox si non

Bonjour Paulux,

Code:

Private Sub Worksheet_Activate()
 
Dim Rep as integer 'Variable de réponse au message
Rep= MsgBox ("N° voulez vous continuer", VbQuestion+vbYesNoCancel)
 
If Rep=VbYes then 'Si la réponse est oui
   Sheets("Facture").Range("C7") = Sheets("Facture").Range("C7") + 1
End IF

End Sub

A Bientôt

 

Vote positif 0 Vote négatif

P

PAULUX

XLDnaute Occasionnel

• 2 Novembre 2008

• #3

Re : Pas de +1 à msgbox si non

Bonjour et merci Hasco pour cette réponse rapide, c'est parfait j'ai encore bcp à apprendre .....!!!

Cordialement

Paulux

 

Vote positif 0 Vote négatif

P

PAULUX

XLDnaute Occasionnel

• 2 Novembre 2008

• #4

Re : Pas de +1 à msgbox si non

Re: j'aimerai en plus le renvoie sur Feui1 >> If Rep=VbNot then

Comment l'écrire? excuse moi j'abuse!!!!!!!!

Merci A+

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 2 Novembre 2008

• #5

Re : Pas de +1 à msgbox si non

RE,

j'aimerai en plus le renvoie sur Feui1

Cliquez pour agrandir...

Le renvoi de quoi?

A+

 

Vote positif 0 Vote négatif

P

PAULUX

XLDnaute Occasionnel

• 2 Novembre 2008

• #6

Re : Pas de +1 à msgbox si non

Re:
Le renvoie vers Feuil1 si MSGBOX >> NON Facture >> "ouvert par erreur"

Merci et toutes mes excuses.

A+

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 2 Novembre 2008

• #7

Re : Pas de +1 à msgbox si non

Re,

Je ne comprends toujours pas ce que tu appèles renvoi mais voici une activation de Feuil1

Code:

Private Sub Worksheet_Activate()
 
Dim Rep as integer 'Variable de réponse au message
Rep= MsgBox ("N° voulez vous continuer", VbQuestion+vbYesNoCancel)
 
If Rep=VbYes then 'Si la réponse est oui
   Sheets("Facture").Range("C7") = Sheets("Facture").Range("C7") + 1
Else 'Si la réponse est non ou cancel
   Sheets("Feuil1").Activate
End IF
 
End Sub

A plus

 

Dernière modification par un modérateur: 2 Novembre 2008

Vote positif 0 Vote négatif

P

PAULUX

XLDnaute Occasionnel

• 2 Novembre 2008

• #8

Re : Pas de +1 à msgbox si non

Merci bcp Hasco, c'est sympa.

Cordialement

Paulux

 

Vote positif 0 Vote négatif