macro Copier Coller jusqu'à la dernière ligne

[thenthelo]

Bonjour,

Etant nulle en VBA je fais appel à vos lumières. Dans un tableau je cherche à insérer une nouvelle colonne (en colonne A) et à mettre un texte dans les cellule de cette colonne. pour ca je epsnais taper le texte en A2 et faire un copier coller automatique jusqu'à la fin. Le problème vient du fait que le nombre de ligne de ce tableau varie et que je ne veux donc pas mettre une plage figée dans mon code. Je voudrais qu’il détecte automatiquement jusqu’où il doit copier.
Exemple :Selection.AutoFill Destination:=Range("A2:A5") ne me convient pas car parfois mon tableau aura 10 lignes.
Comment faire ?

Avez-vous une idée simple à me proposer ?

 

[phlaurent55]

Re : macro Copier Coller jusqu'à la dernière ligne

Bonjour thenthelo

Selection.AutoFill Destination:=Range("A2:A" & Range("B65535").End(XlUp).Row)

à+
Philippe

 

[thenthelo]

Re : macro Copier Coller jusqu'à la dernière ligne

Super ! Merci c'est parfait.

 

[tototiti2008]

Re : macro Copier Coller jusqu'à la dernière ligne

Bonjour thenthelo, Bonjour Philippe ,

Ou s'il ne s'agit que de copier la valeur

Range("A2:A" & Range("B65535").End(XlUp).Row).value = Range("A2").value