Ajout ligne formulaire

Bonjour,

je souhaite créer un usf qui ajoute un enregistrement à la suite des autres. Il y a juste une textbox sur ce USF. Je pensais que le code suivant marcherait mais non. Vous savez quoi modifier?

Merci

    Private Sub CommandButton1_Click()
ActiveSheet.Unprotect Password:="toto"
derligne = Feuil1.Range("a32").End(xlUp).Row + 1
derligne = TextBox1.Value
ActiveSheet.Protect Password:="toto"
End Sub

Bonjour

Modifies ton code

Private Sub CommandButton1_Click()
  ActiveSheet.Unprotect Password:="toto"
  derligne = Feuil1.Range("a32").End(xlUp).Row + 1
  Feuil1.Range("A" & derligne) = TextBox1.Value
  'derligne = TextBox1.Value
  ActiveSheet.Protect Password:="toto"
End Sub

Excuse moi Banzai mais cela ne fonctionne pas.

Par exemple si je mets une valeur et que je clique, il le met un peu n'importe où dans la colonne.

et si je mets une uatre valeur, il remplace la précédente par celle ci.

Bonjour

Fournis le fichier que tu as fait

A tester

merci banzai.

Bonjour

J'ai effacé complétement la zone A2:A32

Puis exécuté la macro et pas de souci

ton fichier

Regardes le fichier dans mon précédent message

Excuse moi banzai mais je pensais que la macro faisait partir de la cellule A32 et cela remontait jusqu"à la dernière cellule non vide.

Or là, quand je veux ajouter une valeur, cela remonte tout en haut "en traversant" les valeurs saisies au préalable.

edit :

En effet sur le fichier test cela marche super.

Quand je copie colle le code sur mon fichier cela traverse les données.... :/

Voici le fichier de base.

Bonjour

Sélectionnes toute la zone A2:A32, puis appuies sur la touche "Suppr"

Et exécute le code

Pour moi dans tes cellules tu as des m....s (je ne sais pas pourquoi) mais le fait d'effacer la zone comme indiqué pallie ce défaut

Oui il y a des m.... comme tu dis mais je ne sais pas quoi du tout.

En effaçant la zone avant effectivement cela fonctionne. Mais c'est quand même incompréhensible.

Merci pour ton temps en tout cas. Merci bcp