Discussion :

[Muntjact]

Bonjour,

Mon problème est que je voudrais que l'autofill s'exécute sur la feuil1 car dans mon fichier j'ai 2 feuilles Excel.

Merci

Code :

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

1
2
3
4
5
6
7
8
9
 
ActiveCell.FormulaR1C1 = "=(RC[-1]/(COUNTA(R8C10:R14C10)))"
 
Dim DernLigne As Long
 
DernLigne = Sheets("Feuil1").Range("K" & Rows.Count).End(xlUp).Row
Range("L8").AutoFill Destination:=Range("L8:L" & DernLigne)
 
End Sub

[BENNASR]

bonsoir
si ça fonctionne sur ton feuille et non pas sur la feuille 1 essayer avec

Code :

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

1
2
3
4
5
6
7
8
9
 
ActiveCell.FormulaR1C1 = "=(RC[-1]/(COUNTA(R8C10:R14C10)))"
 
Dim DernLigne As Long
 
DernLigne = Sheets("Feuil1").Range("K" & Rows.Count).End(xlUp).Row
 Sheets("Feuil1").Range("L8").AutoFill Destination:=Range("L8:L" & DernLigne)
 
End Sub

[Muntjact]

Quand je vais ça il y a un message d'erreur qui dit

Erreur 1004 La méthode 'Range' de l'objet'_Global' a échoué

[BENNASR]

peux tu joindre un fichier exemple avec qq ligne de données fictives et explique davantage ce que tu cherches à faire stp

[Muntjact]

oui voici le fichier Excel la macro c'est Test au module 1

[MarcelG]

Bonjour,

Sans rappeler le rattachement nécessaire, voire obligatoire, des objets, je me permets d'insister.
Si une formule doit affecter plusieurs cellules, alors cette action peut s'exécuter simultanément.
Il n'est donc pas besoin d'utiliser la méthode - lourde - Autofill.

Quant à la formulation, mieux vaut utiliser Formulalocal.

Voir le 2ème code du post #10 de cette discussion.

C'est juste mon avis.

[BENNASR]

le code doit s'exécuter sur la feuille 2 non ?

si c'est le cas (y a une erreur dans ta formule ):

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
With Sheets("Feuil2")
 .Activate
 .Range("G5").Select
 ActiveCell.FormulaR1C1 = "=((NUMBERVALUE(RC[-2]))*10)+(RC[-1]*10000)"
 .Range("G5").Select
 Selection.AutoFill Destination:=Range("G5:G25"), Type:=xlFillDefault
 .Range("G5:G25").Select
 .Range("G26").Select
 ActiveCell.FormulaR1C1 = "=(SUM(R[-21]C:R[-1]C))+(SUM(R[-21]C:R[-1]C)/10)"
 Selection.NumberFormat = "0.00"
 
  End With