Bonjour
j'ai besoin d'aide avec ma fonction Loop celle-ci fonctionne très bien
elle copie bien les valeurs des Textboxs sur la feuille LAB, mais
les cellules remplies son bloquées comme si la boucle était toujours active.
Ci-dessous le code
Sub MAJ1()
Sheets("LAB").Select
ActiveSheet.Range("B8").Select
Do Until ActiveCell = ""
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.Value = UserForm1.TextBox1.Text
ActiveCell.Offset(0, 3) = UserForm1.TextBox2.Value
ActiveCell.Offset(0, 6) = UserForm1.TextBox3.Value
ActiveCell.Offset(0, 9) = UserForm1.TextBox4.Value
Sheets("JOUEURS").Select
Range("A1").Select
Sheets("LAB").Select
Range("A1").Select
End Sub
Merci
j'ai besoin d'aide avec ma fonction Loop celle-ci fonctionne très bien
elle copie bien les valeurs des Textboxs sur la feuille LAB, mais
les cellules remplies son bloquées comme si la boucle était toujours active.
Ci-dessous le code
Sub MAJ1()
Sheets("LAB").Select
ActiveSheet.Range("B8").Select
Do Until ActiveCell = ""
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.Value = UserForm1.TextBox1.Text
ActiveCell.Offset(0, 3) = UserForm1.TextBox2.Value
ActiveCell.Offset(0, 6) = UserForm1.TextBox3.Value
ActiveCell.Offset(0, 9) = UserForm1.TextBox4.Value
Sheets("JOUEURS").Select
Range("A1").Select
Sheets("LAB").Select
Range("A1").Select
End Sub
Merci