AutoFill jusqu'à la dernière cellule non vide

Résolu/Fermé

alexysr Messages postés 24 Date d'inscription dimanche 21 septembre 2014 Statut Membre Dernière intervention 5 avril 2016 - 15 oct. 2014 à 11:28
benol3 Messages postés 569 Date d'inscription lundi 29 juillet 2013 Statut Membre Dernière intervention 7 mai 2015 - 15 oct. 2014 à 13:52

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:

Vba autofill
Autofill vba - Meilleures réponses
Selection.autofill - Meilleures réponses
Autofill vba ✓ - Forum Excel
L'indice n'appartient pas à la sélection vba - Forum VB / VBA
Incompatibilité de type vba ✓ - Forum Programmation
Vba ouvrir un fichier excel avec chemin ✓ - Forum VB / VBA
Find vba - Astuces et Solutions

2 réponses

Réponse 1 / 2

benol3 Messages postés 569 Date d'inscription lundi 29 juillet 2013 Statut Membre Dernière intervention 7 mai 2015 87
15 oct. 2014 à 11:54

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

Réponse 2 / 2

alexysr Messages postés 24 Date d'inscription dimanche 21 septembre 2014 Statut Membre Dernière intervention 5 avril 2016
15 oct. 2014 à 13:45

Merci beaucoup ça marche à la perfection

benol3 Messages postés 569 Date d'inscription lundi 29 juillet 2013 Statut Membre Dernière intervention 7 mai 2015 87
15 oct. 2014 à 13:52

De rien ! Penses à mettre le sujet en résolu

@+

Discussions similaires

Copie jusqu'à dernière ligne remplie

Copier plage cellules d'un classeur vers un autre classeur

copier une plage de cellules d'une feuille à une autre

Sélection jusqu'à la prochaine cellule non vide

copier coller une plage de cellules dans une autre feuille

Choisir plage jusqu'à la dernière cellule contenant une valeur