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

Réponse 1 / 2
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

Discussions similaires

Copie jusqu'à dernière ligne remplie
touroul -
touroul -

2 réponses
Copier plage cellules d'un classeur vers un autre classeur
micheleliane -
babakout -

6 réponses
copier une plage de cellules d'une feuille à une autre
tartempion -
tartempion -

3 réponses
Sélection jusqu'à la prochaine cellule non vide
Débutante -
Frenchie83 -

3 réponses
copier coller une plage de cellules dans une autre feuille
Jo33 -
Jo33 -

9 réponses
Choisir plage jusqu'à la dernière cellule contenant une valeur
MarcAn23 -
MarcAnP23 -

2 réponses