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 -
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? :)
Merci d'avance et à bientôt
Alexys
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
- [Excel] Méthode Autofill dans une macro ✓ - Forum Excel
- L'indice n'appartient pas à la sélection vba - Forum VB / VBA
- Incompatibilité de type vba ✓ - Forum Programmation
- Excel compter cellule couleur sans vba - Guide
- Methode AutoFill - Forum VB / VBA
2 réponses
Salut,
Utilises ceci pour savoir la dernière ligne remplie (ici, nous regardons dans la colonne A) :
Et cette instruction pour recopier la formule en colonne B :
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