Commencer a ecrire a partir de la derniere ligne...

[choupi_nette]

Bonjour,
j'ai le fichier suivant
Ce qui est en vert a deja ete ecrit niveau macro
Mon souci c'est d'ecrire ce qui est dessous...
L'autre souci c'est que la partie verte peut varier (dans l'exemple elle s'arrete a ligne 21 mais elle peut s'arreter plus bas ou plus haut selon les cas)

Ce que je cherche c'est integrer en VBA (uniquement) la partie qui se trouve sous la zone verte.
Merci pour votre aide

PS: je ne sais pas dire en VBA a partir de la derniere ligne ecrite continue avec ceci ou cela...

 

[Compte Supprimé 979]

Re : Commencer a ecrire a partir de la derniere ligne...

Bonjour choupi_nette

Tu devrais effectuer des recherches sur le forum, c'est un sujet maintes fois abordé

Sub DernièreLigneRemplie()
  Dim DLig As Long
  With Sheets("Model")
    ' A partir de la dernière cellule en bas de la colonne A
    ' remontée à la première remplie, soit la dernière en partant du haut
    DLig = .Range("A" & Rows.Count).End(xlUp).Row
    ' Il suffit ensuite d'écrire sur la dernière ligne + 1
    .Range("A" & DLig + 1).Value = "toto"
  End With
End Sub

A+

 

[choupi_nette]

Re : Commencer a ecrire a partir de la derniere ligne...

Re bonjour BrunoM45 et merci de ta réponse,
Je connais cette formule mais sauf erreur de ma part je ne pourrais pas écrire en colonnes C,D et E car elles se terminent plus haut que les autres.
Je pense qu il faut utiliser la commande offset mais je connais mal la syntaxe pour y arriver

Merci pour votre aide

 

[Compte Supprimé 979]

Re : Commencer a ecrire a partir de la derniere ligne...

Re,

Si tu n'écris pas une ligne entière,
il suffit d'utiliser la formule pour chaque colonne en modifiant simplement la lettre

A+