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
580

Membres actuellement en ligne

Statistiques des forums

Discussions
298 030
Messages
1 965 290
Membres
200 896
dernier inscrit
vassaf