Chessnocoma
XLDnaute Junior
Bonjour,
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
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