VBA coller jusqu'à dernière ligne
chailiii
Messages postés
7
Statut
Membre
-
ccm81 Messages postés 11033 Statut Membre -
ccm81 Messages postés 11033 Statut Membre -
Bonjour!
Alors j'ai vu plein de réponses pertinentes concernant ce genre de problème mais rien n'y fait je n'y arrive pas:( petite précision, je maitrise très mal le VBA
Donc pour avoir MA solution, quoi de plus simple que de vous soumettre MON fichier!
Alors c'est très simple:
- Les colonnes A, B, C, D, E sont "collées". La colonne A est de longueur variable (92 aujourd'hui, 150 demain...), et ne contient jamais de "trous" contrairement aux autres
- Les colonnes F à R sont des formules
j'ai une macro que je fais tourner et je voudrais copier mes formules F2 à R2 jusqu'à la dernière ligne de la colonne A (soit 92 lignes aujourd'hui, 150 demain...)
j'ai lu qu'il fallait créer une variable, ce dont je n'arrive pas...
Un grand merci par avance à mon sauveur;)
malheureusement je n'arrive pas à joindre mon fichier.....(...)
Chai
Alors j'ai vu plein de réponses pertinentes concernant ce genre de problème mais rien n'y fait je n'y arrive pas:( petite précision, je maitrise très mal le VBA
Donc pour avoir MA solution, quoi de plus simple que de vous soumettre MON fichier!
Alors c'est très simple:
- Les colonnes A, B, C, D, E sont "collées". La colonne A est de longueur variable (92 aujourd'hui, 150 demain...), et ne contient jamais de "trous" contrairement aux autres
- Les colonnes F à R sont des formules
j'ai une macro que je fais tourner et je voudrais copier mes formules F2 à R2 jusqu'à la dernière ligne de la colonne A (soit 92 lignes aujourd'hui, 150 demain...)
j'ai lu qu'il fallait créer une variable, ce dont je n'arrive pas...
Un grand merci par avance à mon sauveur;)
malheureusement je n'arrive pas à joindre mon fichier.....(...)
Chai
2 réponses
-
Bonjour
Je ne sais pas si j'ai tout comprisPublic Sub Kopie()
Dim lifin As Long, plage As Range
lifin = Range("A" & Rows.Count).End(xlUp).Row
Set plage = Range("F2:R2")
plage.AutoFill Destination:=Range("F2:R" & lifin), Type:=xlFillDefault
End Sub
http://www.cjoint.com/c/GGirxkQCozB
Cdlmnt -
De rien
Si c'est fini, peux tu mettre le sujet à résolu (en dessous du titre de ton premier message)
Cdlmnt
