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
Code:
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
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
En partant du principe que ta formule est en A2
(test OK sur mon PC)
VB:
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