VBA effacer données rentrées par userform

shouuu Messages postés 10 Statut Membre -  
zebulon2503 Messages postés 1229 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

J'ai fait une macro sous VBA excel 2003, c'est un userform, je voudrais que lorsque je clique sur annuler, les valeurs que ma userform a permis de remplir dans ma feuille excel ( textbox et combobox) s'effacent pour redevenir comme avant l'utilisation de la userform.

Voila pour le moment mon code de mon bouton annuler:

Dim Confirm As Single
Confirm = MsgBox("Si vous annulez la procédure, vous perdrez toutes les données d'entrées." & "Etes-vous sûr de vouloir continuer?", vbYesNo + vbCritical, "abandon de la procédure")
If Confirm = vbYes Then
UserForm1.Hide
Exit Sub
End If

Merci d'avance
Configuration: Windows 2000
Internet Explorer 6.0

1 réponse

  1. benzi Messages postés 84 Statut Membre 1
     
    Salut,

    Je ne sais pas si tu as besoin encore d'info mais je te donne celle-ci:

    Private Sub BtnAnnuler_Click()
    'Efface les données dans les cellules A18 à A22
    ActiveSheet.Range("A18:A22").Value = ""
    Par exemple.
    A +
    Dan
    1
    1. zebulon2503 Messages postés 1229 Date d'inscription   Statut Membre Dernière intervention   110
       
      Salut
      Il vaut mieux faire un ClearContents :-)
      0