MSGbox yes/no qui en fait ouvrir un autre

Bonjour. J'ai un msgBox de type vbokonly. Je désire que lorsque la personne clique sur OK, qu'un nouveau MsgBox s'affiche.

Donc, que lorsque la personne clique sur OK, qu'un nouveau MSGbox s'affiche

Private Sub CheckBox1_Click()
'*******************************
'******Masque les lignes 30à 43 pcq par d'excavation
'*********************************
'Q1 OUI

    If CheckBox1.Value Then MsgBox "À l'étape de planification de tout projet qui implique une excavation de sol, une caractérisation environnementale est requise afin de déterminer si les sols peuvent être être réutilisés sur place ou leur mode de disposition hors-site, le cas échéant (à moins d'avis contraire du responsable de la gestion des sites contaminés)." & Chr(13) & Chr(10) & Chr(13) & Chr(10) & "En cliquant OK vous affirmez avoir lu l'énoncé", vbOKOnly

 End Sub

MErci de votre soutien.

Bonjour,

Essai ça,

Private Sub CheckBox1_Click()
'*******************************
'******Masque les lignes 30à 43 pcq par d'excavation
'*********************************
'Q1 OUI

   If CheckBox1.Value Then
   MsgBox "À l'étape de planification de tout projet qui implique une excavation de sol, une caractérisation environnementale est requise afin de déterminer si les sols peuvent être être réutilisés sur place ou leur mode de disposition hors-site, le cas échéant (à moins d'avis contraire du responsable de la gestion des sites contaminés)." & Chr(13) & Chr(10) & Chr(13) & Chr(10) & "En cliquant OK vous affirmez avoir lu l'énoncé", vbOKOnly
       MsgBox "2eme message" & Chr(13) & Chr(10) & "En cliquant OK vous etes dans une boucle sans fin", vbOKOnly
       MsgBox "3eme message" & Chr(13) & Chr(10) & "En cliquant OK vous etes dans une boucle sans fin", vbOKOnly
       MsgBox "4eme message" & Chr(13) & Chr(10) & "En cliquant OK c'est la fin de la blague", vbOKOnly
   End If
End Sub

Ton "SI" ne vérifie rien, change le

If CheckBox1.Value Then

Par

If CheckBox1.Value = True Then

Pour controler que ta checkbox est coché ou non

A+

Bonjour à tous,

Pas certain d'avoir compris...

If CheckBox1.Value = True Then
     If MsgBox("À l'étape de planification de tout projet qui implique une excavation de sol,une caractérisation environnementale est requise afin de déterminer si les sols peuvent être être réutilisés sur place ou leur mode de disposition hors-site, le cas échéant (à moins d'avis contraire du responsable de la gestion des sites contaminés)." _
     & Chr(13) & Chr(10) & Chr(13) & Chr(10) & "En cliquant sur OUI vous affirmez avoir lu l'énoncé ?", vbYesNo, "Demande de confirmation") = vbYes Then
      MsgBox "Merci d'avoir confirmé la lecture", vbInformation 'ton second message si OUI
     Else
      MsgBox "Vous auriez pu prendre la peine de lire l'énoncé !", vbExclamation 'ton second message si NON (facultatif)
     End If
    End If

[EDIT] pas vu que c'était avec OK

If CheckBox1.Value = True Then
     If MsgBox("À l'étape de planification de tout projet qui implique une excavation de sol,une caractérisation environnementale est requise afin de déterminer si les sols peuvent être être réutilisés sur place ou leur mode de disposition hors-site, le cas échéant (à moins d'avis contraire du responsable de la gestion des sites contaminés)." _
     & Chr(13) & Chr(10) & Chr(13) & Chr(10) & "En cliquant sur OK vous affirmez avoir lu l'énoncé ?", vbOKOnly, "Demande de confirmation") = vbOK Then
      MsgBox "Merci d'avoir confirmé la lecture", vbInformation 'ton second message
     End If
    End If

Cordialement,