Discussion :

[Renaultt]

Bonjour
J'ai un tableau de ligne aléatoire.
A la dernière colonne, je fais une somme.
ce mois ci le tableau fait 15 ligne, donc je fais une somme sur la première ligne, et je veux faire un autofill sur les 14 lignes suivantes.
Je veux créer ça part macro VBA.
sachant que cette macro va être utilisée le mois prochain et le tableau aura un nombre de ligne différent.
Donc je fais :

Code :

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

1
2
3
4
5
6
 Set Table = Worksheets(1).Range("B2").CurrentRegion
 NbLigne = Table.Rows.Count
 nbcol = Table.Columns.Count
 Range("BR3").Select
 ActiveCell.FormulaR1C1 = "=RC[-4]*RC[-3]"
 Selection.AutoFill Destination:=Range("BR3:BR12")

mais je ne veux pas mettre le nom des cellules mais les longueurs liés au tableau.
donc je pensais

Code :

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

 Selection.AutoFill Destination:=Range(Cells(1, 1), Cells(NbLigne, 1))

mais cela ne fonctionne pas.
Avez vous une solution svp.
Cordialement

[Menhir]

Petite remarque liminaire : les Select/Selection sur des Ranges, c'est rarement une bonne idée.

Ce que tu veux faire ne nécessite pas d'AutoFill :

Code :

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

Range("BR3:BR" & (NbLigne + 2)).Formula = "=BN3*BO3"

Mais si tu tiens à ton AutoFill :

Code :

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

Range("BR3").AutoFill Destination:=Range("BR3:BR" & (NbLigne + 2))