Création formulaire prise de note

Bonjour,

Avant toute chose, je tient a précisé que je suis tout débutant en VBA et que je n'ai pas tout les thermes etc et que j'ai tout appris seul.

Je suis téléconseiller, nous n'avons aucuns support mis a notre disposition pour la prise de note lors de nos appels et je souhaite donc me créer mon propre support avec les outils mis à disposition, soit Excel MS 2013.

J'ai donc créer un Userform avec les champs qui m’intéresse lors de ma prise d'appel (nom, prénom, numéro de téléphone etc...) et je souhaite créer un bouton qui me permet une fois tout mes champs remplis et mon appel terminé que cela s'enregistre sur une page Excel (pour qu'en fin de journée je puisse consulté mon historique d'appel), que ça vide tout mes champs remplis (afin de reprendre un appel rapidement) et donc automatique allez à la ligne suivant pour que je puisse de nouveau remplir mon formulaire cliquer sur le bouton, remplir le fichier cliquer sur le bouton etc, etc...

J'ai trouver pour noter mes champ sur mon excel, mais pas pour aller a la ligne et vider mon Userform de ses champs remplie.

Merci, d'avance pour votre aide.

Bonjour,

Si vous avez déjà trouvé coment alimenter votre feuille Excel c'est déjà un bon début.

Pour le reste :

1) Il va falloir utiliser une variable en début de votre code pour trouver la première ligne vide de votre feuille excel.

Dim NUMLIGNE as long
NUMLIGNE= Worsheets("Nomde votre feuille de saisie").Range("A65536").End(xlUp).Row + 1

'Ensuite vous pouvez utiliser cette variable vos code d'alimentation de cellule excel

Worsheets("Nomde votre feuille de saisie").Range("A" & NUMLIGNE).value=Textbox1.value

'ce qui vient alimenter la première cellule vide de la colonne A dans cet exemple.

Pour vider votre userform le plus simple est en fin de code de le fermer et le réouvrir dans la foulée :

'En fin de code :
unload me
userform1.show

Super, merci pour ta réponse rapide, cependant quand je le met en place je rencontre une erreur :

"Erreur de compilation : Sub ou Function non définie"

pour ton point 1 (le 2nd fonctionne du feu de dieux), ça me surligne en jaune "Private Sub Bmaj_Click()" et en bleu Worsheets de la première ligne.

B'jour,

Remplacez : Worsheets

par : Worksheets

Et adaptez le nom de votre feuille.

Bien vu Pijaku j'ai ecrit trop vite ... manque tous les K est sans eux c'est caca

Worsheets nan çà c'est pas bien Worksheets c'est mieux

Non mais c'est juste ca ?

Et oui en effet ça marche, c'est magnifique, grand merci a vous.