Copier à partir d'une ligne donnée

Bonjour,

J'ai un onglet, sur lequel je dois copier des données provenant d'un Usf.

Or je voudrais que la copie ne commence pas à partir de la ligne 16, sauf que dans ce que j'ai écrit pour l'instant ça part de la dernière ligne (logique c'est ce que j'ai écrit). Et je n'arrive pas à trouver comment faire la copie depuis la ligne 16 et ensuite que cela s'ajoute à chaque nouvelle saisie.

Voici la macro pour l'instant (elle n'est pas complète) mais je bute sur ce point:

Sub Envoi_Cheques()
derligne = Sheets("Saisies").Range("a456541").End(xlUp).Row + 1

' Sheets("Saisies").Cells(derligne, 2) = TextBox_Banque
' Sheets("Saisies").Cells(derligne, 3) = TextBox_Titulaire
' Sheets("Saisies").Cells(derligne, 4) = CDate(Date)
' Sheets("Saisies").Cells(derligne, 5) = CCur(TextBox_Cheques)

End Sub

J'ai compris que ma 1° ligne de commande n'est pas correcte.

Et le fichier pour plus de compréhension

Merci d'avance

Cordialement.

9test.xlsm (47.01 Ko)

Salut Carpe Diem,

une solution, si tu n'as pas besoin de ta cellule 'Saisies' [B14], est d'y "écrire" une apostrophe ' (invisible) avec le calcul de ta ligne suivant...

iRow = Sheets("Saisies").Range("B14").End(xlDown).Row + 1


A+

Merci de ta réponse,

Mais je ne comprends pas comment cela fonctionne du coup je n'arrive pas à la faire fonctionner.

Cordialement.

Salut Carpe Diem,

or donc, tu tapes une apostrophe ( ' ) en 'Saisies' [B14] et tu remplaces ta ligne de calcul (bon, d'accord, j'ai mis iRow à la place de DerLigne) par celle que je t'ai envoyée.


A+

Merci de ta réponse ça fonctionne impeccable

Merci de ton aide.

Cordialement

Xavier

Rechercher des sujets similaires à "copier partir ligne donnee"