Modification code formulaire

[maval]

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:

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 Sub

Je vous remercie d'avance.
Un fichier valant mieux qu'un long discours, veuillez voir la pièce jointe.

Cordialement

Max

 

[laetitia90]

Re : Modification code formulaire

bonjour Maval 🙂

comme je comprends???

Private Sub CmdValider_Click()
    With ThisWorkbook.Worksheets("Janvier")
       .Rows("19:19").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
        .Cells(19, 2) = Me.TextBoxDate
        .Cells(19, 3) = Me.ComboBoxMPayement.Value
        .Cells(19, 4) = Me.TextBoxN°Document.Value
        .Cells(19, 5) = Me.ComboBoxLibelle.Value
        .Cells(19, 6) = Me.TextBoxDébit.Value
        .Cells(19, 7) = Me.TextBoxCrédit.Value
        .Cells(19, 8) = Me.TextBoxContValeur.Value
    End With
End Sub

ps : Me. sert a rien dans ton cas supprime


bises egalement Jean claude🙂🙂

 

[JCGL]

Re : Modification code formulaire

Bonjour à tous,

Peux-tu essayer :

Private Sub CmdValider_Click() Dim i As Long
'Transfert des données du formulaire vers la feuille de calcul
With ThisWorkbook.Worksheets("Janvier")
.Range("B19").EntireRow.Insert
i = 19
.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

A+ à tous

Edition : Bises à Laetitia 🙄

 

[pierrejean]

Re : Modification code formulaire

Bonjour maval

vois si cela te convient

Arf àla bourre moi !!
Salut JC
Bises Laetitia

 

[grisan29]

Re : Modification code formulaire

bonjour a vous Maval,laetitia90,JCGL,pierrejean et le forum
voici une autre solution

Private Sub CommandButton1_Click()
Dim lig As Integerlig = .Range("B65536").End(xlUp)(2).Row
    If lig < 19 Then lig = 19
    
    With Sheets("feuil1")
  'insertion d'une ligne
  .Rows(lig + 1).Insert

.Cells(lig, "B") = Me.TextBoxDate
         etc...
end if
end sub

Pascal

 

[maval]

Re : Modification code formulaire

Bonjour Pascal, Lætitia, JC, PierreJean,

Je vous remercie et vous souhaite un excellent 1er Mai

Max

 

[laetitia90]

Re : Modification code formulaire

re, Bises Pierre jean 🙂🙂
contente de te "croiser" 🙂