Empêcher la fermeture du Userform après saisie

Bonjour à tous,

Je suis en train de créer un petit formulaire de saisie.

Dans mon CommandButton pour ajouter mes données j'ai le code suivant :

Private Sub CommandButton1_Click()

Dim ctrl As Control
Dim Colonne As Integer
Dim derligne As Integer

'Trouve la derniere ligne du tableau
derligne = Sheets("BDD").Range("A10000").End(xlUp).Row + 1

'balaye les controles un par un
For Each ctrl In UserForm1.Controls

'la valeur de "Colonne" = tag du controle
Colonne = Val(ctrl.Tag)

If Colonne > 0 Then Sheets("BDD").Cells(derligne, Colonne) = ctrl

Next

End

End Sub

Le problème c'est que mon formulaire se ferme automatiquement après ... et moi je veux qu'il reste ouvert pour saisir une deuxième ligne directement...

Je veux créer un bouton par la suite pour le fermer, quand l'utilisateur le désirera.

Merci pour votre aide.

Bonjour

Supprime l'instruction : " End "

Bye !

Thanks !!

Rechercher des sujets similaires à "empecher fermeture userform saisie"