je cherche actuellement à créer un code me permettant de remplir des cellules quand je rempli et valide un formulaire. Pour faire simple, dans l idéal :
- Je rempli le formulaire
- Si B7 est vide, les données collectés vont sur la ligne B en partant de B7
- Si B7 est rempli, il tente avec C7 et sa ligne etc Jusqu'a la ligne 11
- Une fois que les donné écrites sont implémentés sur une ligne, l userform se ré initialise afin d'incrémenter d'autres information aux tableau.
Merci pour votre aide,
Cordialement Jessy
désolé d'avance pour le codage plus que maladroit
Mon code actuelle est
Code:
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
If IsEmpty(Range("B7")) Then
Range("B7") = TextBox7.Value
Range("C7") = TextBox1.Value
Range("D7") = TextBox2.Value
Range("E7") = TextBox3.Value
Range("F7") = TextBox4.Value
Range("G7") = TextBox5.Value
Range("H7") = TextBox6.Value
Unload Me
If Not IsEmpty(Range("B8")) Then
Range("B8") = TextBox7.Value
Range("C8") = TextBox1.Value
Range("D8") = TextBox2.Value
Range("E8") = TextBox3.Value
Range("F8") = TextBox4.Value
Range("G8") = TextBox5.Value
Range("H8") = TextBox6.Value
Unload Me
If Not IsEmpty(Range("B9")) Then
Range("B9") = TextBox7.Value
Range("C9") = TextBox1.Value
Range("D9") = TextBox2.Value
Range("E9") = TextBox3.Value
Range("F9") = TextBox4.Value
Range("G9") = TextBox5.Value
Range("H9") = TextBox6.Value
Unload Me
If Not IsEmpty(Range("B10")) Then
Range("B10") = TextBox7.Value
Range("C10") = TextBox1.Value
Range("D10") = TextBox2.Value
Range("E10") = TextBox3.Value
Range("F10") = TextBox4.Value
Range("G10") = TextBox5.Value
Range("H10") = TextBox6.Value
Unload Me
If Not IsEmpty(Range("B11")) Then
Range("B11") = TextBox7.Value
Range("C11") = TextBox1.Value
Range("D11") = TextBox2.Value
Range("E11") = TextBox3.Value
Range("F11") = TextBox4.Value
Range("G11") = TextBox5.Value
Range("H11") = TextBox6.Value
Unload Me
MsgBox "Fin de tableau "
Application.ScreenUpdating = True
Unload Me
End If
End If
End If
End If
End If
End Sub
Oui, pas faux !
Je viens de comprendre, la macro recherche la dernière ligne, mais mon tableau ne se trouvent pas sur celles ci.
J'ai mis le fichier en question, l userform se lance a l activation de la feuille "balance Sygma"
Si tu le permets, je vais dormir
Demain je bosse tôt.
L'essentiel dans ma syntaxe, c'est cette ligne Cells(dl + 1, 2).Resize(, 7) = _ Array(TextBox7, TextBox1, TextBox2, TextBox3, TextBox4, TextBox5, TextBox6) A toi de l'adapter à ta problématique. Je repasserai voir ultérieurement comment tu t'en sors Bonne nuit.
INDICE: Va voir en cellule B39 sur la feuille Balance SYGMA et tu verras qu'il s'est bien passé quelque chose
Finalement, j'ai tout simplement adapté le fichier à la macro en ajoutant une macro qui copie et colle les donnés collecter sur la plage voulu à la base