Discussion :

[cchampion2fr]

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

[helios77]

je tste pas ton code mais tu as une erreur de syntaxe

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

Pour le détail, j'ai remplacé

Code :

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

1
2
 
Range("Y2:Y+numLigne1"),

par

Code :

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

1
2
 
Range("Y2:Y" & numLigne1),

Avec ta version, il cherchel a colonne Y+numLigne1 ==> il ne peut pas trouver car tu l'a écrit comme une chaine de caractères

[helios77]

Un petit merci aurait été cool

Ne pas oublier la politesse....... A force, tu te bruleras les ailes tout seul... plus personne ne voudra t'aider