écrire une valeure d'un userform dans un onglet excel

Bonjour,

Voici des questions qui peuvent être débiles mais qui expliquerait ton problème :

1°)As-tu une feuille qui s'appelle Data?
2°) As-tu une feuille qui s'appelle Feuil1
3°) Est-ce que l'une des deux feuilles est protégée?

Si tu as répondu OUI aux questions 1 et 2 et NON à la 3ème, il vaut mieux que tu mettes ton classeur sur cjoint.com et mettre le lien ici.

Sinon :
- Modifies ton code ou nommes une feuille Data ou feuil1
- Rajoutes dans ton code une déprotection de la feuille en question, écris ta valeur et remets ta protection.

Merci melanie1324.

Malheureusement j'ai bien des feuilles qui s'appelle Data et Feuil1 et elles ne sont pas protégées.
Voici donc mon fichier: http://cjoint.com/?3LEogf0vzaH

Merci pour ton aide.

Bonjour,

J'ai trouvé ton souci :

si ton tableau est vide, le code provoque une erreur.
Par contre s'il y a une donnée renseignée en A3, ton code fonctionne.

Pour le contourner :

Private [/contents/446-fichier-sub Sub] OK_Click() 

if Sheets("Data").Range("A3")="" then
Sheets("Data").Range("A3") = TextBox1 
else

Sheets("Data").Range("A2").End(xlDown).Offset(1, 0) = TextBox1 
end if

Sheets("feuil1").Range("B2") = TextBox1 

End Sub 

C'est genial ça marche!

Merci bcp melanie1324!