Message d'information

Bonjour à tous,

j'ai un petit problème avec le fichier ci-joint. J'ai un bouton de commande qui sert à effacer les 5 premieres lignes de la feuille. Quand on clique dessus, un message d'information demande confirmation (si l'on veut vraiment effacer ses données ou non).

Le problème c'est que, que l'on fasse oui ou non, il faut cliquer 3 fois de suite dessus pour que cela fonctionne... Une idée de pourquoi?

J'en profite pour étendre ma question. Il se peut que par la suite, ce message donne la possibilité à l'utilisateur d'enregistrer ses données avant de les supprimer. Est-il possible de faire cela?

Merci d'avance pour vos réponses et suggestions

Cordialement

Bonjour,

Private Sub CommandButton1_Click()
Dim Rep$
    Rep = MsgBox("Cette action va effacer toutes vos données. " & _
    "Voulez-vous vraiment continuer?" _
    , vbYesNo + vbCritical + vbDefaultButton2, "Tableaux ")
    If Rep = vbYes Then Range("A1:N5").ClearContents
End Sub

Amicalement

Claude

Cela marche parfaitement, merci beaucoup pour cette réponse rapide

Cordialement