Salut le forum, bonjour tontoncarton
Ce que tu veux faire, c'est une petite base de donnée ? Alors, petit conseil :
-Regarde dans la rubrique 'télécharger' Il y a forcement ce que tu recherches
-Fais également une recherche sur le forum ;-)
Autrement, si tu est pressé :
Option Explicit
Dim WS As Worksheet 'Variable pour un Objet Worksheet en PUBLIC pour tous les Controls de ce UserForm
Dim L As Integer 'Variable pour connaitre le numéro de derniere ligne
Et voilà le code pour ajouter ta donnée lorsque tu valides ton Userform
Private Sub CmdAjouter_Click()
Set WS = ThisWorkbook.Sheets("Feuil1") 'On identifie l'objet pour la feuille de travail
L = WS.Range("A65536").End(xlUp).Row + 1 ' On identifie la dernière ligne vide en partant du bas
'ici avec la Feuille WS On écrit dans chaque colonne les valeurs des différents controls :
With WS
.Range("A" & L) = TextBox1 'donnée 1
.Range("B" & L) = TextBox2 'et la suite...
Bon courage
@+ peper-eliot