Bonjour,

J'ai créé sur Excel une feuille de type boite de dialogue contenant des dropdown, editbox etc ..

j'arrive à afficher cette boite de dialogue et à traiter les informations.

J'applique une vérification des données après validation de la boite de dialogue (par exemple je vérifie que les editbox devant contenir des dates contiennent bien des dates), je voudrais en cas d'erreur afficher à nouveau la boite de dialogue.

J'ai opéré comme ceci :


'affiche la boite de dialogue
Sub form_init()
    With Sheets("formulaire.inc")
        .Show
    End With
End Sub

'validation de la boite de dialogue
Sub validation()
    erreur = 0
    With ActiveDialog
    '.......
    'ici j enregistre les données de la boite dans des variables
    '.......
    End With

    '......
    'je vérifie le format des données
    '......

    'si il n'y a pas d erreur j enregistre sinon j affiche la boite de dialogue
    If erreur = 0 Then
        traitement
    Else
        form_init
    End If
End Sub


Mais j'obtiens une erreur à la compilation, car après la validation, la boite de dialogue reste ouverte jusqu'à la fin de l'exécution de la macro.

Donc en cas d'erreur la fonction form_init échoue car pour Excel la boite de dialogue étant déjà ouverte, il ne peut l'ouvrir une seconde fois.

Existe-t-il une commande pour fermer cette boite de dialogue avant la fin de la macro ?