erreur syntaxe average

[Tmumu]

bonjour,

Qui peux corriger ma Macro ?

Sub Macrotest()
'
' Macro6 Macro
' Macro enregistrée le 28/12/2007 par TM
'

'
Dim linfin As Integer
Dim x As Variant

Sheets("F. calcul").Select

linfin = Range("A65536").End(xlUp).Row

x = "AVERAGE(g11:g " & linfin & ")"

Worksheets("FeuilleTCD").Range("c11").Formula = "=" & x

Sheets("FeuilleTCD").Select


End Sub

Ou avez vous une autre façon de faire ?

Merci

 

[pierrejean]

Re : erreur syntaxe average

bonjour Tmumu

Atester:

[COLOR=black]x = "AVERAGE[COLOR=red]A[/COLOR](g11:g " & linfin & ")"

Worksheets("FeuilleTCD").Range("c11").Formula[COLOR=red]local[/COLOR] = "=" & x[/COLOR]
 
[COLOR=black]

[/COLOR]

pour Excel français bien sur !!

 

[Pierrot93]

Re : erreur syntaxe average

Bonjour Tmumu, PierreJean

j'ai Excel (2003) installé en français et chez moi la ligne de code ci dessous fonctionne bien :

Worksheets("Feuil1").Range("c11").Formula = "=AVERAGE(g11:g" & Range("G65536").End(xlUp).Row & ")"

par contre Tmumu, tu recherches la dernière ligne de la colonne A....

bonne fin d'après midi
@+

 

[Tmumu]

Re : erreur syntaxe average

Bonjour Tmumu, PierreJean

j'ai Excel (2003) installé en français et chez moi la ligne de code ci dessous fonctionne bien :

Worksheets("Feuil1").Range("c11").Formula = "=AVERAGE(g11:g" & Range("G65536").End(xlUp).Row & ")"

cela ne marche pas chez moi
par contre Tmumu, tu recherches la dernière ligne de la colonne A....

La derniére ligne de la colonne A et aussi celle de G
Merci

 

[myDearFriend!]

Re : erreur syntaxe average

Bonjour Tmumu, pierrejean, Pierrot93,

Sauf erreur de ma part, la procédure de Tmumu devrait fonctionner dès lors où :

• on supprime l'espace en trop dans :

  x = "AVERAGE(g11:g[COLOR=RED][B]_[/B][/COLOR]" & linfin & ")"

• La feuille "FeuilleTCD" existe bien.
  

De plus, je pense que déclarer la variable x As String serait mieux venu que Variant.

Par ailleurs, quant à utiliser la formulation française grâce à FormulaLocal, à mon avis, il conviendrait mieux d'utiliser MOYENNE plutôt que AVERAGEA qui n'est pas tout à fait la même fonction (un "vrai" formuliste saurait sans doute mieux expliquer ça que moi).

Cordialement,

 

[pierrejean]

Re : erreur syntaxe average

bonjour Didier

decidement !!
il faut que je cesse de me meler des formules même lorsqu'elles apparaissent dans le Vba

Merci Didier pour cette mise au point

 

[Tmumu]

Re : erreur syntaxe average

cela va mieux mais il m'indique le résultat de la moyenne (g11:g66) de lafeuilleTCD.

😕

 

[Pierrot93]

Re : erreur syntaxe average

Re, bonjour Didier

essaye peut être comme ceci :

Worksheets("FeuilleTCD").Range("c11").Formula = _
    "=AVERAGE(F. calcul!g11:g" & Sheets("F. calcul").Range("G65536").End(xlUp).Row & ")"

@+

 

[myDearFriend!]

Re : erreur syntaxe average

Re,

Et en décomposant comme tu l'as fait plus haut...

[COLOR=NAVY]Sub[/COLOR] Macrotest()
[COLOR=NAVY]Dim[/COLOR] linfin [COLOR=NAVY]As Long
Dim[/COLOR] x [COLOR=NAVY]As String[/COLOR]
    linfin = Sheets("F. calcul").Range("A65536").[COLOR=NAVY]End[/COLOR](xlUp).Row
    x = "=AVERAGE('F. calcul'!g11:g" & linfin & ")"
    Worksheets("FeuilleTCD").Range("c11").Formula = x
[COLOR=NAVY]End Sub[/COLOR]

Cela dit, si tu avais joint un exemple de ton fichier dès le départ, on aurait compris où tu voulais en venir exactement...

Cordialement,

 

[Tmumu]

Re : erreur syntaxe average

Un grand merci pour votre aide et un excelent réveillon à toutes et à tous.

🙂