AutoFill jusqu'à la dernière cellule non vide

Résolu
alexysr Messages postés 24 Date d'inscription   Statut Membre Dernière intervention   -  
benol3 Messages postés 570 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour à tous,

Comment allez-vous?

J'ai besoin de votre aide rapide concernant l'option d'AutoFill.
Je fais uen recherche V, et après j'aimerais étendre à toute la sélection de la colonne B,
mais les lignes varients, j'aimerais donc l'étendre jusqu'à la dernière cellule non vide, de manière automatique.
Pouvez-vous m'aider? :)


    Sheets("Composants").Select
Range("B2").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-1],Feuil2!C[-1]:C,2,FALSE)"
Range("B2").Select
Dim DernLigne As Long
Selection.AutoFill Destination:=Range("B2:B71829")
Range("B2:B71829").Select


Merci d'avance et à bientôt

Alexys
A voir également:

2 réponses

benol3 Messages postés 570 Date d'inscription   Statut Membre Dernière intervention   87
 
Salut,

Utilises ceci pour savoir la dernière ligne remplie (ici, nous regardons dans la colonne A) :
dernligne=Range("A" & Rows.Count).End(xlUp).Row


Et cette instruction pour recopier la formule en colonne B :

        Range("B2").Select
        Selection.Autofill Destination:=Range("B2:B" & dernligne), Type:=xlFillDefault 
0