je suis dans une feuille intitule "donnees" et je compte donc le nombre de ligne et colonne du colonne pour pouvoir effectuer un simple copie coller sur le nombre de ligne du tableau qui peut changer.
En cellule Y2, je rentre ma formule et je souhaite la copier en dessous suivant le nombre de ligne..

Bien sur le code ci dessous ne marche toujours pas.. pour l'instant je copie colle 2000 ligne mais avec la varibale numligne1 cela devrait fonctionner non?

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
 
  ' Lecture du fichier Donnees
Sheets("Donnees").Activate
Set tbl = ActiveCell.CurrentRegion
numLigne1 = tbl.Rows.Count
numColum1 = tbl.Columns.Count
    ' Activation de la feuille Donnees et calcul des LGD dans la feuille donnee !!
    Sheets("Donnees").Activate
    Sheets("Donnees").Select
    Range("Y2").Select
    ActiveCell.FormulaR1C1 = "=(RC[-19]+RC[-18])/RC[-17]"
    Range("Y2").Select
    Selection.AutoFill Destination:=Range("Y2:Y+numLigne1"), Type:=xlFillDefault
    Range("Y2:Y+numLigne1").Select
    Range("A2").Select