A
amel
Guest
bonjour le forum!
j'aimerais fermer une msgbox soit en cliquant sur le bouton 'annuler' soit en cliquant 'sur la petite croix je ne sais pas trop comment ça se code.. Merci de votre aide
Dim Reponse As String
Reponse = InputBox('Entrez le numero du rapport:') 'affichage de la boite de dialogue
Set maselection = Application.Worksheets('feuil1').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('feuil1').cells(3, 2)
maselection.Value = Reponse
End If
j'aimerais fermer une msgbox soit en cliquant sur le bouton 'annuler' soit en cliquant 'sur la petite croix je ne sais pas trop comment ça se code.. Merci de votre aide
Dim Reponse As String
Reponse = InputBox('Entrez le numero du rapport:') 'affichage de la boite de dialogue
Set maselection = Application.Worksheets('feuil1').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('feuil1').cells(3, 2)
maselection.Value = Reponse
End If