XL 2019 Etendre mon copier coller jusqu'a la dernière ligne non vide de la colonne adjacente

[desmonts]

Bonjour à Toutes et tous,

J'aurai encore besoin de votre aide. Je cherche à étendre la formule de la dernière ligne non vide de la colonne A jusqu'à la dernière ligne non vide de la colonne B.
Pour ce cas je tire ma formule en A1 jusqu'en A7.

	A	B	C
1​	NSS961479168,69	NSS961479	168,69
2​		NSS961499	179,74
3​		NSS96267	61,68
4​		NSS96343	128,83
5​		NSS969002	82,22
6​		NSS969002	82,22
7​		NSS969002	82,22

voici ce que j'ai fait mais j'ai un pb de syntaxe je pense sur la dernière ligne

Dim dernligne As Long
Dim dlig As Long
dernligne = Range("b" & Rows.Count).End(xlUp).Row
dlig = Range("A" & Rows.Count).End(xlUp).Row
Range("A" & dlig).Select

Selection.AutoFill Destination:=Range("A" & dlig : "A" & dernligne), Type:=xlFillDefault

Par avance merci de votre aide.

 

[Staple1600]

Bonjour le fil

A tester sur ton fichier

Sub test()
Dim DL As Long
DL = Cells(Rows.Count, 2).End(3).Row
Range("A2:A" & DL) = [A1].Formula
End Sub

 

[Ikito]

Bonjour,

Pour ta dernière ligne :

Selection.AutoFill Destination:=Range("A" & dlig ":A" & dernligne), Type:=xlFillDefault

Au lieu de :

Selection.AutoFill Destination:=Range("A" & dlig : "A"& dernligne), Type:=xlFillDefault

 

[Staple1600]

Re

Pour infos
On peut éviter l'Autofill, (si la recopie du format n'est pas désirée)
Voir exemple dans mon message précédent. (le N° 2 dans le fil)

PS: desmonts
(toujours pour infos)
En général, on conseille d'éviter l'emploi des Select, Selection et Activate

 

[desmonts]

Bonjour un grand merci pour vos retour Staple 1600 et Ikito.
Staple 1600 solution ok cela fonctionne top et merci pour tes conseilles.
Ikito j'ai essayé de corrigé la syntaxe avec

Selection.AutoFill Destination:=Range("A" & dlig ":A" & dernligne), Type:=xlFillDefault

mais j'ai tjs une erreur de compilation Erreur de syntaxe.
bonne journée à vous.

 

[Staple1600]

Re

Si vraiment tu veux passer Selection et AutoFill, essaies ainsi:
Selection.AutoFill Destination:=Range("A2:A" & dernligne), Type:=xlFillDefault

 

[Staple1600]

Re

En partant du principe que ta formule est en A2
(test OK sur mon PC)

Sub test2()
Dim dernligne As Long
dernligne = Range("B" & Rows.Count).End(xlUp).Row
Range("A2").AutoFill Destination:=Range("A2:A" & dernligne), Type:=xlFillDefault
End Sub