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

[Muntjact]

Oui une partie du code doit s"exécute sur la Feuil2 mais la derniere partie du code sur la Feuil1 car les infos que j'affiche j'ai besoin de les voir a la Feuil1 dans la colonne L

[BENNASR]

pour la partie du code qui concerne la feuil1 comme indiqué ci haut utiliser

Code :

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

1
2
3
4
5
6
with sheets("feuil1")
    .
    .
    .traitement
    ...
end with

sans oublier de mettre un point devant le range et/ou cells (exemple : .range("A" & i) ou bien .cells(i,1) quand vous êtes encore entre le with et le end with.

[Muntjact]

Voila mon code ça fonctionne comme ca

Code :

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

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

[mercatog]

Sans les select et sans l'autofill

Code :

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

1
2
3
4
5
6
Sub test()
 
With Worksheets("Feuil1")
    .Range("L8:L" & .Cells(.Rows.Count, 11).End(xlUp).Row).FormulaR1C1 = "=(RC[-1]/(COUNTA(R8C10:R20C10)))"
End With
End Sub

[MarcelG]

Salut mercatog,

C'est ce que j'ai écrit plus haut.
A cette différence près, je préfère Formulalocal.
Cette propriété offre, à mon avis, plus de lisibilité.

[mercatog]

Bonjour Marcel

Oui effectivement j'avais vu. Mais comme l’intéressé n'a probablement pas pu s'en sortir, je me suis permis de l'écrire clairement au cas où.

[MarcelG]

Aucun problème, tu penses bien.

Je voulais juste attirer l'attention sur la priorité donnée à Formulalocal.
C'est l'enregistreur de macro qui orientent, pour la plupart, nos amis vers FormulaR1C1.
Et ce, à mon sens, à tort.