Discussion :

[lfexcel]

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. (Partie en italique)

Merci pour votre aide

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
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
End Sub

[EricDgn]

Bonjour,

J'ai l'impression que vous essayer de faire ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub Classement()
    Sheets("Résultat courses").Select
    Range("B3").End(xlToRight).Offset(0, 1).Select
    ActiveCell.FormulaR1C1 = "=VLOOKUP(RC2,Tableau_DonnéesExternes_1[[No]:[PTS]],4,FALSE)" 
    ActiveCell.AutoFill Destination:=Range(ActiveCell, Cells(22, ActiveCell.Column)), Type:=xlFillDefault
End Sub

Cordialement.

[Philippe Tulliez]

Bonjour,
En utilisant les tableaux d'excel, il suffit d'écrire la formule dans une seule cellule de la colonne pour la recopier automatiquement dans l'ensemble des cellules de la colonne (voir tutoriel de Pierre Fauconnier Apprendre à utiliser les tableaux structurés Excel : création, manipulations et avantages et avec une plage classique il est parfaitement inutile de recopier une formule à l'aide de la méthode AutoFill voir mes billets sur la question

• Comment écrire une formule dans une plage de cellules en VBA ?
• A l’aide de VBA, comment écrire une formule plus complexe dans une cellule ?