XL 2019 Macro VBA autofill à partir de la première cellule vide du tableauRépondre

rems972

XLDnaute Nouveau
Bonjour,

Je cherche à formuler une macro qui rempli automatiquement la dernier cellule d'un tableau puis qui étend la formule jusqu'en bas de la colonne pour finir par copier les données en valeur.
Voici le code que j'ai pour l'instant. Il me permet de remplir une recherchev dans la première cellule vide mais ensuite je n'arrive pas à faire en sorte que la macro autofill cette formule jusqu'en bas.

Merci pour votre aide

VB:
Sub Classement()
'
' Classement Macro
'
' Touche de raccourci du clavier: Ctrl+Shift+S
'
    Sheets("Résultat courses").Select
    Range("B3").Select
    Selection.End(xlToRight).Select
    Selection.Offset(0, 1).Select
    ActiveCell.FormulaR1C1 = _
        "=VLOOKUP(RC2,Tableau_DonnéesExternes_1[[No]:[PTS]],4,FALSE)"
    Range("B3").Select
    Selection.End(xlToRight).Select
    Selection.AutoFill Destination:=[RC:R[-22]C & Netxfill], Type:=xlFillDefault
    Range("D3:K22").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("B24").Select
End Sub
 

Discussions similaires

Réponses
13
Affichages
1 K
Réponses
1
Affichages
285

Statistiques des forums

Discussions
294 039
Messages
1 935 784
Membres
187 444
dernier inscrit
Sylviestl