Pas de +1 à msgbox si non

[PAULUX]

Pas de +1 si non à msgbox

Bonjour au forum.

j'ai une feuille qui se numérote à chaque ouverture, et je ne sais pas écrire la ligne après ma MSGBOX >> si réponse non >> ne pas a jouter 1 >> "cas d'ouverture malencontreuse".

Mon code >>

Private Sub Worksheet_Activate()
MsgBox ("N° voulez vous continuer"), vbYesNoCancel
Sheets("Facture").Range("C7") = Sheets("Facture").Range("C7") + 1
End Sub

Merci pour vos réponses.

Cordialement

 

[Guest]

Re : Pas de +1 à msgbox si non

Bonjour Paulux,

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

 

[PAULUX]

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

 

[PAULUX]

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+

 

[Guest]

Re : Pas de +1 à msgbox si non

RE,

j'aimerai en plus le renvoie sur Feui1

Le renvoi de quoi?

A+

 

[PAULUX]

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+

 

[Guest]

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

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

 

[PAULUX]

Re : Pas de +1 à msgbox si non

Merci bcp Hasco, c'est sympa.

Cordialement

Paulux