Voici un pti bout du code, j'en ai encore des lignes et des lignes du meme genre... lorsque je le lance, tout les inputbox s'enchainent les unes apres les autres, si par exemple je veux stopper la saisie dès la 2eme inputbox, ce n'est pas possible.. je suis obligée de faire 'ok' sur chaque boite et les passer toutes...
c'est pourquoi je voudrais stopper la saisie à tout moment...
Sub saisie()
'deprotege la feuille
Sheets('events').Unprotect
Sheets('temoin').Visible = False ' cache la feuille temoin
Sheets('formulaire').Visible = False
msg = 'Bonjour, vous allez proceder à la saisie d'un evenement!'
Style = vbInformation
Title = 'Saisie de l'evenement'
Réponse = MsgBox(msg, Style, Title)
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
report_num:
Dim Reponse As String
Reponse = InputBox('Entrez le numero du rapport:') 'affichage de la boite de dialogue
Set maselection = Application.Worksheets('events').cells(3, 2)
maselection.Value = Reponse
If Reponse = Empty Then ' test pour forcer la saisie par l'utilisateur
Reponse = InputBox(' Vous n'avez pas entré de numero! Entrez le numero du rapport')
Set maselection = Application.Worksheets('events').cells(3, 2)
maselection.Value = Reponse
End If
Debug.Print Reponse
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
reported_title:
Reponse = InputBox('Entrez le titre du rapport:')
Set maselection = Application.Worksheets('events').cells(3, 3)
maselection.Value = Reponse
If Reponse = Empty Then ' test pour forcer la saisie par l'utilisateur
Reponse = InputBox(' Vous n'avez pas entré de titre! Entrez le titre du rapport') 'affichage de la boite de dialogue
Set maselection = Application.Worksheets('events').cells(3, 3)
maselection.Value = Reponse
End If
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
author_name:
Reponse = InputBox('Entrez votre nom et prenom:') 'affichage de la boite de dialogue
Set maselection = Application.Worksheets('events').cells(3, 4)
maselection.Value = Reponse
If Reponse = Empty Then
Do Until Reponse <> Empty
Reponse = InputBox(' Vous n'avez rien saisi! Veuillez entrer l'information demandée')
Set maselection = Application.Worksheets('events').cells(3, 4)
maselection.Value = Reponse
Loop
End If
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
author_number:
Reponse = InputBox('Entrez votre numero de téléphone:') 'affichage de la boite de dialogue
Set maselection = Application.Worksheets('events').cells(3, 5)
maselection.Value = Reponse
If Reponse = Empty Then ' test pour forcer la saisie par l'utilisateur
Reponse = InputBox(' Vous n'avez pas entré de numero! Entrez votre numero de téléphone') 'affichage de la boite de dialogue
Set maselection = Application.Worksheets('events').cells(3, 5)
maselection.Value = Reponse
End If
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
author_mail:
Reponse = InputBox('Entrez votre adresse e-mail') 'affichage de la boite de dialogue
Set maselection = Application.Worksheets('events').cells(3, 6)
maselection.Value = Reponse
If Reponse = Empty Then ' test pour forcer la saisie par l'utilisateur
Reponse = InputBox(' Vous n'avez rien saisi! Entrez votre adresse e-mail:') 'affichage de la boite de dialogue
Set maselection = Application.Worksheets('events').cells(3, 6)
maselection.Value = Reponse
End If
:woohoo: