Bug formulaire

Bonjour,

j'ai sur mon formulaire ce code pour remplir la colonne A de la feuil1. Les tag ont bien été mis sur la colonne 1. Quand je clique sur valider, je vois que cela écrit la valeur mais en un dixième de seconde ça la supprime.

Si dans le code je change a200 par b200 et que je change les TAG par 2, cela fonctionne correctement.

D'où ma question, pourquoi ce code ne fonctionne pas pour la colonne A ?

Private Sub CommandButton1_Click()

derligne = Feuil1.Range("a200").End(xlUp).Row + 1
For Each Ctrl In UserForm1.Controls
colonne = Val(Ctrl.Tag)
If colonne > 0 Then Feuil1.Cells(derligne, colonne) = Ctrl
Next
End
End Sub

je vous joins un fichier test.7

Merci de votre aide

Bonjour

Tu oublies d'augmenter DerLigne

Essaies

Private Sub CommandButton1_Click()

  derligne = Feuil1.Range("a200").End(xlUp).Row + 1
  For Each Ctrl In UserForm1.Controls
    colonne = Val(Ctrl.Tag)
    If colonne > 0 Then
      Feuil1.Cells(derligne, colonne) = Ctrl
      derligne = derligne + 1
    End If
  Next
  End
End Sub

Merci bcp pour ton aide.

En fait je n'ai pas oublié mais je ne savais pas . Je suis un débutant. Merci bcp en tout cas .