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:

Selectionner plage jusqu'à la dernière cellule non vide vba
Autofill vba - Meilleures réponses
Vba autofill - Meilleures réponses
Frédéric cherche à faire le buzz sur les réseaux sociaux. il a ajouté une image de manchots sur une image de plage. retrouvez l'image originale de la plage. que cachent les manchots ? ✓ - Forum Windows
Coeur vide ✓ - Forum Réseaux sociaux
Formate pour taxer client frigo vide ✓ - Forum Vos droits sur internet
Vba dernière colonne non vide ✓ - Forum VB / VBA
Aller à la ligne dans une cellule excel - Guide

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

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

Discussions similaires

Newsletters