VBA coller jusqu'à dernière ligne

Fermé
chailiii Messages postés 7 Date d'inscription dimanche 29 janvier 2017 Statut Membre Dernière intervention 9 juillet 2017 - 8 juil. 2017 à 19:03
ccm81 Messages postés 10851 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 16 avril 2024 - 9 juil. 2017 à 19:57
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
A voir également:

2 réponses

ccm81 Messages postés 10851 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 16 avril 2024 2 404
8 juil. 2017 à 19:24
Bonjour

Je ne sais pas si j'ai tout compris
Public 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
0
chailiii Messages postés 7 Date d'inscription dimanche 29 janvier 2017 Statut Membre Dernière intervention 9 juillet 2017
9 juil. 2017 à 14:50
Bonjour ccm81

Merci de ta réponse éclair & exacte! A perfection
Quel plaisir de pouvoir compter sur vous:)
Bon dimanche!
Chaiii
0
ccm81 Messages postés 10851 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 16 avril 2024 2 404
9 juil. 2017 à 19:57
De rien

Si c'est fini, peux tu mettre le sujet à résolu (en dessous du titre de ton premier message)

Cdlmnt
0