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

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

desmonts

XLDnaute Occasionnel
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.
ABC
1​
NSS961479168,69NSS961479168,69
2​
NSS961499179,74
3​
NSS9626761,68
4​
NSS96343128,83
5​
NSS96900282,22
6​
NSS96900282,22
7​
NSS96900282,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

Par avance merci de votre aide.
 
Bonjour,

Pour ta dernière ligne :
VB:
Selection.AutoFill Destination:=Range("A" & dlig ":A" & dernligne), Type:=xlFillDefault
Au lieu de :
VB:
Selection.AutoFill Destination:=Range("A" & dlig : "A"& dernligne), Type:=xlFillDefault
 
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
 
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
VB:
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.
 
Re

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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
15
Affichages
785
Retour