S
Sylvain
Guest
Bonjour à tout le Forum,
J'ai quelques petits problèmes avec mon code VBA.
J'ai créé un classeur XLS qui appel une Userform dès le clique sur un CommandButton.
Sur cette Userform se trouvent plusieurs TextBox.
Ensuite, à partir du moment ou je clique sur un CommandButton (situé sur ma Userform), les informations contenues dans les TextBox se recopient automatiquement dans un tableau préalablement tracé (de la colonne B à M).
A chaque appel et saisie sur ma Userform, les informations se recopient à la suite du tableau.
Je souhaiterai qu'à chaque clique sur mon CommandButton de ma Userform, un numéro apparaisse dans la colonne 'A' (et s'incrémente à chaque clique).
Mille merci à ceux qui pourront m'éclairer.
Voici le code du CommandButton :
Private Sub CommandButton1_Click()
Dim MaLigne As Integer
MaLigne = Range('A65536').End(xlUp).Row + 1
Range('A' & MaLigne) = Label14.Caption + 1 'le Label14 contient le n°0 : Pbm : J'ai tjr le n°1 dans ma colonne A
Range('B' & MaLigne) = TextBox1.Value 'Ecrit le contenu de Textbox1 dans la colonne B
Range('C' & MaLigne) = TextBox2.Value
Range('D' & MaLigne) = TextBox3.Value
Range('E' & MaLigne) = TextBox4.Value
Range('F' & MaLigne) = TextBox5.Value
Range('G' & MaLigne) = TextBox6.Value
Range('H' & MaLigne) = TextBox7.Value
Range('I' & MaLigne) = TextBox8.Value
Range('J' & MaLigne) = TextBox9.Value
Range('K' & MaLigne) = TextBox10.Value
Range('L' & MaLigne) = TextBox11.Value
Range('M' & MaLigne) = TextBox12.Value
Unload Me 'Vide et ferme le UserForm
End Sub
Bonne fin de journée
J'ai quelques petits problèmes avec mon code VBA.
J'ai créé un classeur XLS qui appel une Userform dès le clique sur un CommandButton.
Sur cette Userform se trouvent plusieurs TextBox.
Ensuite, à partir du moment ou je clique sur un CommandButton (situé sur ma Userform), les informations contenues dans les TextBox se recopient automatiquement dans un tableau préalablement tracé (de la colonne B à M).
A chaque appel et saisie sur ma Userform, les informations se recopient à la suite du tableau.
Je souhaiterai qu'à chaque clique sur mon CommandButton de ma Userform, un numéro apparaisse dans la colonne 'A' (et s'incrémente à chaque clique).
Mille merci à ceux qui pourront m'éclairer.
Voici le code du CommandButton :
Private Sub CommandButton1_Click()
Dim MaLigne As Integer
MaLigne = Range('A65536').End(xlUp).Row + 1
Range('A' & MaLigne) = Label14.Caption + 1 'le Label14 contient le n°0 : Pbm : J'ai tjr le n°1 dans ma colonne A
Range('B' & MaLigne) = TextBox1.Value 'Ecrit le contenu de Textbox1 dans la colonne B
Range('C' & MaLigne) = TextBox2.Value
Range('D' & MaLigne) = TextBox3.Value
Range('E' & MaLigne) = TextBox4.Value
Range('F' & MaLigne) = TextBox5.Value
Range('G' & MaLigne) = TextBox6.Value
Range('H' & MaLigne) = TextBox7.Value
Range('I' & MaLigne) = TextBox8.Value
Range('J' & MaLigne) = TextBox9.Value
Range('K' & MaLigne) = TextBox10.Value
Range('L' & MaLigne) = TextBox11.Value
Range('M' & MaLigne) = TextBox12.Value
Unload Me 'Vide et ferme le UserForm
End Sub
Bonne fin de journée