Microsoft 365 VBA Probleme avec Autofill

[trekkeur50]

Bonjour,
Je commence depuis hier à me lancer dans VBA.
Je cherche a copier des données à l'aide d'Autofill mais
j'ai un code qui ne fonctionne pas et que je n'arrive pas a résoudre
C'est la partie destination (derniere ligne en jaune) qui ne fonctionne pas.

lastRow2 = Range("E" & Rows.Count).End(xlUp).Row
Lastcell = Range("C" & dlig + 1).Select
Selection.Copy
Selection.AutoFill Destination:=Range(Lastcell & lastRow2)

Si vous avez une idée, elle serait la bienvenue car je sature

Merci

 

[Staple1600]

Bonsoir le fil, le forum, trekkeur50

Tu veux recopier tout (format, formules) ?
Ou simplement les formules?

 

[trekkeur50]

Bonsoir le fil, le forum, trekkeur50

Tu veux recopier tout (format, formules) ?
Ou simplement les formules?

Bonsoir Staple1600
je voudrais recopier tout

 

[trekkeur50]

Ce sont juste des valeurs que j'ai a recopier.Et le format m'importe peu

 

[Staple1600]

Re

Dans ta colonne C, il y a des valeurs ou des formules ?
Regardes cet exemple (à tester sur une feuille vierge)

Sub testA()
[C1:C4] = "=ROW()": [E1:E20] = 1
Derlig = Cells(Rows.Count, "E").End(xlUp).Row
formul = Cells(Rows.Count, "C").End(xlUp).Formula
Cells(Rows.Count, "C").End(xlUp).Offset(1).Resize(Derlig).Formula = formul
End Sub

Je recopie les formules sans passer par Autofill

 

[trekkeur50]

On s'approche de la solution.
Le probleme qu'il reste c'est que cela copie la cellule C sur trop de lignes.
C'est la raison pour laquelle j'avais essayé autofill car j'ai la colonne E qui est adjacente.Je souhaite stopper la copie sur la derniere ligne de la colonne adjacente.
Dans la colonne c, ce sont des valeurs.

 

[trekkeur50]

J'ajoute un fichier pour etre plus comprehensible

 

[Staple1600]

Re

C'est plus mieux comme ceci?

Sub testB()
[C1:C4] = "=ROW()": [E1:E20] = 1
Derlig = Cells(Rows.Count, "E").End(xlUp).Row
formul = Cells(Rows.Count, "C").End(xlUp).Formula
Range(Cells(Rows.Count, "C").End(3)(2), Cells(Derlig, "C")) = formul
End Sub

PS: C'est juste une macro illustrative
A toi de faire les adaptations idoines.

 

[trekkeur50]

CA MARCHEEEEEEEEEEEEEEEEEEEEEE
Un grand grand merci
Je pars me coucher heureux