prob Variable et fonction moyenne

prob Variable et fonction moyenne - VB/VBA/VBS - Programmation

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?

Reply

Marsh Posté le 04-11-2004 à 15:57:53   

Reply

Marsh Posté le 04-11-2004 à 17:30:31    

ActiveCell.FormulaR1C1 = "=AVERAGE(RC[" & cstr(-x) & "]:RC[-1])"

Reply

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?

Reply

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 :)


Message édité par Arjuna le 04-11-2004 à 19:21:12
Reply

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....

Reply

Marsh Posté le 04-11-2004 à 20:41:08    

ha ok

Reply

Marsh Posté le 04-11-2004 à 21:24:26    

t'as vu ton mail? j't'en ai envoyé un

Reply

Marsh Posté le 04-11-2004 à 23:23:17    

nope, tu l'as envoyé où ? :)

Reply

Marsh Posté le 05-11-2004 à 08:39:20    

ici: sylvain.devidal@med.ge.com

Reply

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

Reply

Marsh Posté le 05-11-2004 à 10:04:08   

Reply

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... :sweat:

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed