Créer un userform réutilisable

Up

Salut mélanie,
Merci Chris pour la remontée.
Oui il est possible d'utiliser le même. C'est même fortement recommandé.

Supposons que sur ton userform, tu disposes de 5 textbox (TextBox1, TextBox2, TextBox3, TextBox4, TextBox5) et d'un bouton de commande (CommandButton1) qui te sert à valider.
Tu ouvres ton classeur, saisie tes données dans les textbox et clic sur valider.
Tes données sont transférées, grâce à ton code, en feuille : Feuil2 cellules : de A1 à E1.
Le lendemain, tu ouvres ton classeur, saisie tes textbox, et, en cliquant sur valider, tu souhaites que tes données soient enregistrées de A2 à E2. Tu ne travailles donc plus sur des adresses de cellules fixes, mais sur les cellules se situant sur la première ligne vide de A à E.
OK avec ceci?
Bon alors le code de ce que je viens de décrire serait :

Private Sub CommandButton1_Click()
Dim Lign As Long

With Sheets("Feuil2")
    Lign = .Range("A" & Rows.Count).End(xlUp).Row + 1
    .Cells(Lign, 1) = TextBox1
    .Cells(Lign, 2) = TextBox2
    .Cells(Lign, 3) = TextBox3
    .Cells(Lign, 4) = TextBox4
    .Cells(Lign, 5) = TextBox5
End With
End Sub

Code dans lequel on peux intégrer une boucle, pour le cas ou on aurait 26 textbox qui renverraient, dans le bon ordre, leurs donénes dans les 26 1eres colonnes de la feuil2 :

Private Sub CommandButton1_Click()
Dim Lign As Long
Dim Col As Byte

With Sheets("Feuil2")
    Lign = .Range("A" & Rows.Count).End(xlUp).Row + 1
    For Col = 1 To 26 'dans le cas de 26 colonnes!!!!!
        .Cells(Lign, Col) = Me.Controls("TextBox" & Col)
    Next Col
End With
End Sub

Bonjour Frank,
Désolé du délai, dans mon suivi de sujet je ne voyais que j'avais une réponse. alors premièrement un énorme merci! Je commence en VbA et je dois dire qu'à date je semble pas comprendre grand chose et ça m'énerve un peu!!! Alors présentement J'ai ceci

Private Sub CmdOK_Click()
Sheets("tournée").Range("D10").Value = TextBox1.Value
Sheets("Tournée").Range("E10").Value = TextBox2.Value
Sheets("Tournée").Range("D11").Value = TextBox3.Value
Sheets("Tournée").Range("E11").Value = TextBox4.Value
Sheets("pesées").Range("c5").Value = TextBox5.Value
Sheets("pesées").Range("D5").Value = TextBox6.Value
Sheets("pesées").Range("e5").Value = TextBox7.Value
Sheets("pesées").Range("f5").Value = TextBox8.Value
Sheets("pesées").Range("g5").Value = TextBox9.Value
Sheets("pesées").Range("h5").Value = TextBox10.Value
Sheets("pesées").Range("i5").Value = TextBox11.Value
Sheets("pesées").Range("j5").Value = TextBox12.Value
Unload Me

End Sub

Private Sub TextBox1_Change()
Sheets("Tournée").Range("D10").Value = TextBox1.Value
End Sub

Private Sub TextBox2_Change()
Sheets("Tournée").Range("E10").Value = TextBox2.Value
End Sub

Private Sub TextBox3_Change()
Sheets("Tournée").Range("D11").Value = TextBox3.Value
End Sub

Private Sub TextBox4_Change()
Sheets("Tournée").Range("E11").Value = TextBox4.Value
End Sub

Private Sub TextBox5_Change()
Sheets("pesées").Range("c5").Value = TextBox5.Value
End Sub

Private Sub TextBox6_Change()
Sheets("pesées").Range("D5").Value = TextBox6.Value
End Sub

Private Sub TextBox7_Change()
Sheets("pesées").Range("e5").Value = TextBox7.Value
End Sub

Private Sub TextBox8_Change()
Sheets("pesées").Range("f5").Value = TextBox8.Value
End Sub

Private Sub TextBox9_Change()
Sheets("pesées").Range("g5").Value = TextBox9.Value
End Sub
Private Sub TextBox10_Change()
Sheets("pesées").Range("h5").Value = TextBox10.Value
End Sub

Private Sub TextBox11_Change()
Sheets("pesées").Range("i5").Value = TextBox11.Value
End Sub

Private Sub TextBox12_Change()
Sheets("pesées").Range("j5").Value = TextBox12.Value
End Sub
Private Sub CmdAnnuler_Click()
Unload Me
End Sub;

Si je comprends bien j'enlève tout ça?!

Re-
Alors ton code complet devient :

Private Sub CmdOK_Click() 
Dim Col As Byte, Lign As Long

With Sheets("tournée")
    Col = .Cells(10, .Cells.Columns.Count).End(xlToLeft).Column
    .Cells(10, Col + 1) = TextBox1
    .Cells(10, Col + 2) = TextBox2
    .Cells(11, Col + 1) = TextBox3
    .Cells(11, Col + 2) = TextBox4
End With
With Sheets("pesées")
    Lign = .Range("C" & Rows.Count).End(xlUp).Row
    .Cells(Lign + 1, 3) = TextBox5.Value 
    .Cells(Lign + 1, 4) = TextBox6.Value 
    .Cells(Lign + 1, 5) = TextBox7.Value 
    .Cells(Lign + 1, 6) = TextBox8.Value 
    .Cells(Lign + 1, 7) = TextBox9.Value 
    .Cells(Lign + 1, 8) = TextBox10.Value 
    .Cells(Lign + 1, 9) = TextBox11.Value 
    .Cells(Lign + 1, 10) = TextBox12.Value
End With
Unload Me 
End Sub 
Private Sub CmdAnnuler_Click() 
Unload Me 
End Sub

Testes et reviens nous dire...

Bonjour

ça ne fonctionne pas... Cela peut-il être parce que dans la feuille tournée je ne commence à mettrre des infos pour la première fois à la ligne 10 et que dans la feuille pesées je ne commence qu'à la ligne 5?

merci
Mélanie

Bonjour,
Dernière tentative...
Donne moi une copie du classeur définitif, sur lequel je pourrais travailler...

Bonjour,

http://www.cijoint.fr/cjlink.php?file=cj201110/cijVufCCzb.xls

merci beaucoup de ta patience
Mélanie