prob Variable et fonction moyenne - VB/VBA/VBS - Programmation
Marsh Posté le 04-11-2004 à 17:30:31
ActiveCell.FormulaR1C1 = "=AVERAGE(RC[" & cstr(-x) & "]:RC[-1])"
Marsh Posté le 04-11-2004 à 18:12:38
Cells(6, 4 + 2 * x).Select
ActiveCell.FormulaR1C1 = "=AVERAGE(RC[" & CStr(-x) & "]:RC[-1])"
Selection.AutoFill Destination:=Cells(6 + CStr(y), 4 + 2 * CStr(x)), Type:=xlFillDefault
merci alors j'ai fais ça maintenant mais la dernière ligne ne marche toujours pas (j'ai l'idée de faire une boucle avec un "for...to" mais y'a pas plus simple?
Marsh Posté le 04-11-2004 à 19:20:23
Selection.AutoFill "Cells(6 + " & CStr(y) & ", 4 + 2 * " & CStr(x) & " )", xlFillDefault
PS: j'ai un doute sur la syntaxe de la méthode autofill, que je n'ai jamais utilisé... c'est quoi ?
je ne suis pas familier avec les truc:=machin je ne sais pas trop à quoi ça correspond en VB, normalement on n'utilise pas cette syntaxe, et je suis un peu perdu
Marsh Posté le 04-11-2004 à 20:09:40
Selection.AutoFill c'est la fonction que créé la macro quand tu fais une formule puis tu clique en bas à droite de la cellule et tu descend (s'a incremente ta formule au fur et à mesure)
Ex:
A1=(A2+A3)/2
B1=(B2+B3)/2
C1=(C2+C3)/2....
Marsh Posté le 05-11-2004 à 10:04:08
j'ai trouvé une solution assez simple, j'ai fait ça:
For i = 1 To y + 1
Cells(5 + i, 9 + 7 * x).Select
ActiveCell.FormulaR1C1 = "=AVERAGE(RC[" & CStr(-x) & "]:RC[-1])"
Next i
Marsh Posté le 05-11-2004 à 15:10:14
OK
désolé, j'ai vu ton mail ce matin, mais je ne l'ai même pas ouvert. On est en plein migration d'un tas d'outils au boulot, et ça se passe assez mal, du coup je disparais sous les problèmes et bugs divers...
Marsh Posté le 04-11-2004 à 15:57:53
j'ai enregistré une macro comme celle-ci:
ActiveCell.FormulaR1C1 = "=AVERAGE(RC[-4]:RC[-1])"
Selection.AutoFill Destination:=Range("G6:G52" ), Type:=xlFillDefault
Range("G6:G52" ).Select
je voudrais la modifier pour y ajouter des variables mais j'ai des pitit probleme!
je voudrais avoir ça:
Sheets("tableau" ).Cells(6, 4 + 2 * x).Select
ActiveCell.FormulaR1C1 = "=AVERAGE(RC[-x]:RC[-1])"
Selection.AutoFill Destination:=Range(Cells(6, 4 + 2 * x), Cells(6 + y, 4+ 2 * x)), Type:=xlFillDefault
X et y sont des valeurs égal à une valeur que je mets dans 2 cases d'une feuille
qq'un peut m'aider svp?