Bonjour,
je rencontre un problème que je n'arrive pas à résoudre... En effet je souhaite qu'à partir d'un msgBox je puisse afficher l'userform si l'utilisateur clic sur le bouton vbYes du msgBox et autant de fois qu'il clic sur ce bouton.
J'ai du rajouter la ligne suivante dans mon code "If i > 1 Then Exit Do" pour contourner le problème d'affichage mais cela ne me convient car cela s'apparente à du bricolage. Sans cette ligne la procédure se comporte de façon anormal en effet sur une demande d'arret de la boucle bouton vbNo cliqué la procédure sort bien de la boucle mais une fois sortie y retourne !...
Voici le code de ma procédure :
Encore merci d'avance pour votre aide.
je rencontre un problème que je n'arrive pas à résoudre... En effet je souhaite qu'à partir d'un msgBox je puisse afficher l'userform si l'utilisateur clic sur le bouton vbYes du msgBox et autant de fois qu'il clic sur ce bouton.
J'ai du rajouter la ligne suivante dans mon code "If i > 1 Then Exit Do" pour contourner le problème d'affichage mais cela ne me convient car cela s'apparente à du bricolage. Sans cette ligne la procédure se comporte de façon anormal en effet sur une demande d'arret de la boucle bouton vbNo cliqué la procédure sort bien de la boucle mais une fois sortie y retourne !...
Voici le code de ma procédure :
Code:
Sub traitementRepetionUserform1()
Dim test As Integer
Dim i As Integer
i = 0
Do
i = i + 1
If i > 1 Then Exit Do 'j'ai du rajouter cette ligne, mais cela ne me convient pasn sinon la procédure ne fonctionne pas correctemente
test = MsgBox("Souhaitez-vous refaire une autre planification ? ", vbYesNo + vbQuestion, "REFAIRE UNE PLANIFICATION")
If test = vbYes Then
Unload UserForm1
UserForm1.Show
End If
If test = 7 Then
Unload UserForm1
Exit Do
End If
Loop
End Sub
Dernière édition: