poussy67
XLDnaute Occasionnel
Bonjour Le forum
J'ai un USF avec plusieurs 45 textbox, le 3 premier textbox doivent saisir sur la première ligne, 3 textbox suivant doivent saisir sur la deuxieme ligne vide etc..
Ma vba devient énorme, je charche à simplifier la vba.
L = Sheets("RDVCH").Range("A65536").End(xlUp).Row + 1
Sheets("RDVCH").Range("A" & L).Value = TextBoxCh1.Value
Sheets("RDVCH").Range("B" & L).Value = TextBoxCh2.Value
Sheets("RDVCH").Range("G" & L).Value = TextBoxCh3.Value
Sheets("RDVCH").Range("C" & L).Value = TextBox1.Value
Sheets("RDVCH").Range("D" & L).Value = TextBox2.Value
Sheets("RDVCH").Range("E" & L).Value = TextBox3.Value
Sheets("RDVCH").Range("A" & L + 1).Value = TextBoxCh4.Value
Sheets("RDVCH").Range("B" & L + 1).Value = TextBoxCh5.Value
Sheets("RDVCH").Range("G" & L + 1).Value = TextBoxCh6.Value
Sheets("RDVCH").Range("C" & L + 1).Value = TextBox1.Value
Sheets("RDVCH").Range("D" & L + 1).Value = TextBox2.Value
Sheets("RDVCH").Range("E" & L + 1).Value = TextBox3.Value
Sheets("RDVCH").Range("A" & L + 2).Value = TextBoxCh4.Value
Sheets("RDVCH").Range("B" & L + 2).Value = TextBoxCh5.Value
Sheets("RDVCH").Range("G" & L + 2).Value = TextBoxCh6.Value
Sheets("RDVCH").Range("C" & L + 2).Value = TextBox1.Value
Sheets("RDVCH").Range("D" & L + 2).Value = TextBox2.Value
Sheets("RDVCH").Range("E" & L + 2).Value = TextBox3.Value
Etc. Étant nul en VBA j'ai essayer de trouver une solution sans résultat.
je remercie d'avance pour le coup pousse .
Cdt Poussy
J'ai un USF avec plusieurs 45 textbox, le 3 premier textbox doivent saisir sur la première ligne, 3 textbox suivant doivent saisir sur la deuxieme ligne vide etc..
Ma vba devient énorme, je charche à simplifier la vba.
L = Sheets("RDVCH").Range("A65536").End(xlUp).Row + 1
Sheets("RDVCH").Range("A" & L).Value = TextBoxCh1.Value
Sheets("RDVCH").Range("B" & L).Value = TextBoxCh2.Value
Sheets("RDVCH").Range("G" & L).Value = TextBoxCh3.Value
Sheets("RDVCH").Range("C" & L).Value = TextBox1.Value
Sheets("RDVCH").Range("D" & L).Value = TextBox2.Value
Sheets("RDVCH").Range("E" & L).Value = TextBox3.Value
Sheets("RDVCH").Range("A" & L + 1).Value = TextBoxCh4.Value
Sheets("RDVCH").Range("B" & L + 1).Value = TextBoxCh5.Value
Sheets("RDVCH").Range("G" & L + 1).Value = TextBoxCh6.Value
Sheets("RDVCH").Range("C" & L + 1).Value = TextBox1.Value
Sheets("RDVCH").Range("D" & L + 1).Value = TextBox2.Value
Sheets("RDVCH").Range("E" & L + 1).Value = TextBox3.Value
Sheets("RDVCH").Range("A" & L + 2).Value = TextBoxCh4.Value
Sheets("RDVCH").Range("B" & L + 2).Value = TextBoxCh5.Value
Sheets("RDVCH").Range("G" & L + 2).Value = TextBoxCh6.Value
Sheets("RDVCH").Range("C" & L + 2).Value = TextBox1.Value
Sheets("RDVCH").Range("D" & L + 2).Value = TextBox2.Value
Sheets("RDVCH").Range("E" & L + 2).Value = TextBox3.Value
Etc. Étant nul en VBA j'ai essayer de trouver une solution sans résultat.
je remercie d'avance pour le coup pousse .
Cdt Poussy