maval
XLDnaute Barbatruc
Bonjour
J'ai un formulaire avec textbox et combobox et j'aimerai que l'on puisse envoyer les première lignes en" B19" et si possible, à chaque enregistrement la nouvelle ligne se mette en "B19" et que les lignes déjà enregistrer descende d'une ligne.
Mon code:
Je vous remercie d'avance.
Un fichier valant mieux qu'un long discours, veuillez voir la pièce jointe.
Cordialement
Max
J'ai un formulaire avec textbox et combobox et j'aimerai que l'on puisse envoyer les première lignes en" B19" et si possible, à chaque enregistrement la nouvelle ligne se mette en "B19" et que les lignes déjà enregistrer descende d'une ligne.
Mon code:
Code:
Private Sub CmdValider_Click()
Dim i As Long
'Transfert des données du formulaire vers la feuille de calcul
With ThisWorkbook.Worksheets("Janvier")
i = .Range("B" & Cells.Rows.Count).End(xlUp).Row + 1
.Cells(i, 2) = Me.TextBoxDate
.Cells(i, 3) = Me.ComboBoxMPayement
.Cells(i, 4) = Me.TextBoxN°Document
.Cells(i, 5) = Me.ComboBoxLibelle
.Cells(i, 6) = Me.TextBoxDébit
.Cells(i, 7) = Me.TextBoxCrédit
.Cells(i, 8) = Me.TextBoxContValeur
End With
End Sub
Private Sub UserForm_Initialize()
Dim Cell As Range
With Sheets("Désignation")
For Each Cell In .Range("C3:C" & .Range("C65536").End(xlUp).Row)
Me.ComboBoxLibelle.AddItem (Cell)
Next
End With
With Sheets("Accueil")
For Each Cell In .Range("P29:P" & .Range("P65536").End(xlUp).Row)
Me.ComboBoxMPayement.AddItem (Cell)
Next
End With
End SubJe vous remercie d'avance.
Un fichier valant mieux qu'un long discours, veuillez voir la pièce jointe.
Cordialement
Max