XL 2016 saisie sur plusieurs ligne vides avec USF

[poussy67]

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

 

[patricktoulon]

bonsoir
est tu sur de ne pas avoir fait une erreur pour le dernier paragraphe?
c'est bien TextBoxCh(4,5,6)

 

[mapomme]

Bonjour,

A tout hasard:

Private Sub UserForm_Click()
   With Sheets("RDVCH")
      L = .Range("A65536").End(xlUp).Row + 1
      For j = 0 To 14
         .Range("A" & L + j) = Controls("TextBoxCh" & 3 * j + 1)
         .Range("B" & L + j) = Controls("TextBoxCh" & 3 * j + 2)
         .Range("G" & L + j) = Controls("TextBoxCh" & 3 * j + 3)
         .Range("C" & L + j).Value = TextBox1.Value
         .Range("D" & L + j).Value = TextBox2.Value
         .Range("E" & L + j).Value = TextBox3.Value
      Next j
   End With
End Sub

 

[poussy67]

Bonjour MaPomme

Je te remercie pour ton aide.



Quand je saisi qu'une partie dans USF, j'ai les textbox 1,2,3 remplissent automatiquement
les 15 lignes. J'ai essayé de modifier ton code mais sans succès.

Oui je mes suis trompé dans le dernier paragraphe

Ci-joint un fichier exemple

 

[mapomme]

Bonjour @poussy67,

Voir le fichier joint. On n'inscrit une ligne que si au moins une des trois TextBoxCh n'est pas vide.

 

[poussy67]

Impect

Merci beaucoup Mapomme