USF : bouton tout valider

[boby63]

Bonjour
Dans le doc joint, un userform créé juste pour l'occasion avec 9 boutons pour valider les nouveaux enregistrements les uns après les autres.
Je souhaiterai avoir la possibilité de les enregistrer en bloc, en une seule fois, qu'il n'y ait qu'une ligne à enregistrer, ou 2, ou 3, ..., ou toutes, selon le nombre de textbox remplies.
J'espère avoir été clair.
D'avance, merci.
Cordialement

 

[max.lander]

Salut à tous, Boby63,

Simplement en ajoutant une condition de validation pour chaque bouton --si vide on passe sinon on ajoute
et avec le code suivant pour la validation en chaîne

Private Sub CommandButton10_Click()
CommandButton1_Click
CommandButton2_Click
CommandButton3_Click
.
.
.
End Sub

mais je pense qu'il y a plus simple et plus propre que ça en révisant un peu ton code

mais là il faut attendre les pros

 

[Paf]

Bonjour boby63, max.lander

l'idée serait de faire une boucle sur les textbox; mais pour cela il faudrait un pas régulier dans le nommage des ces textbox.
Par exemple :
pour les textbox Infos à enregistrer:TextBox5, TextBox10, TextBox15, ...., TextBox45 => pas de 5
pour les textbox Quantité:TextBox9, TextBox14, TextBox19, ...., TextBox49 =>pas de 5
Il faudrait donc renommer un certain nombre de textbox et corriger le code les utilisant. Sinon la solution de max.lander a

à tester

Private Sub CommandButton10_Click()
ligne = Sheets("BD").[A65000].End(xlUp).Row + 1
For i = 5 To 45 Step 5
  If Me("TextBox" & i) <> "" And Me("TextBox" & i + 4) <> "" Then
    ligne = ligne + 1
    Sheets("BD").Cells(ligne, 1) = Me.TextBox46
    Sheets("BD").Cells(ligne, 2) = Me("TextBox" & i)
    Sheets("BD").Cells(ligne, 3) = CDbl(Me("TextBox" & i + 4))
  Else
    Exit For 'on arrête dès la  première TB vide
  End If
Next
End Sub

A+

 

[boby63]

Re
Merci à vous deux
C'est vrai, la solution était pourtant simple
Merci encore et bonne journée
Cordialement