Sujet Précédent Sujet Suivant

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:

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 84
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
0
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
0
benol3 Messages postés 569 Date d'inscription lundi 29 juillet 2013 Statut Membre Dernière intervention 7 mai 2015 84
15 oct. 2014 à 13:52
De rien ! Penses à mettre le sujet en résolu

@+
0