Insertion ligne sous la dernière ligne enregistrée

[Tibonaldo]

Bonjour à vous tous,
Après plusieurs recherches et essais de macro mentionnées sur ce site, je n'arrive pas à insérer les coordonnées présentes dans mon onglet "facture" pour les ajouter à la suite les unes des autres de mon onglet "BDD". Je souhaiterais pouvoir émettre une facture et ensuite enregistrer les coordonnées de cette facture à la suite dans un onglet différent ("BDD") par l'intermédiaire de mon bouton "Enregistrer facture".
Si quelqu'un peut m'aiderrrrrrrrrrrr.................................

 

[kiki29]

Re : Insertion ligne sous la dernière ligne enregistrée

Salut,un debut à toi de poursuivre

Option Explicit

Sub Bouton3_QuandClic()
Dim LastRow As Long

    LastRow = Feuil2.Range("B" & Rows.Count).End(xlUp).Row + 1
    With Feuil2
        .Range("B" & LastRow) = Feuil3.Range("C9")
        .Range("C" & LastRow) = Feuil3.Range("C10")
        .Range("D" & LastRow) = Format(Feuil3.Range("C8"), "dd/mm/yy")
        ' etc ....
    End With
End Sub

 

[Tibonaldo]

Re : Insertion ligne sous la dernière ligne enregistrée

Bonjour Kiki29,

Merci de ta réponse, mais je souhaite que l'opération s'effectue sans devoir sélectionner un nombre interminable de ligne, le document devant gérer, à terme, une dizaine de facturation par jour.

 

[kiki29]

Re : Insertion ligne sous la dernière ligne enregistrée

Re,visiblement tu ne l'a pas essayé, car le code que tu as à compléter est associé à ton bouton Bouton3_QuandClic ,on peut encadrer ce code par

Application.ScreenUpdating = False
    '   ....
Application.ScreenUpdating = True

 

[Tibonaldo]

Re : Insertion ligne sous la dernière ligne enregistrée

Ca fonctionne très bien !! Merci pour ta rapidité de réponse !!