Somme vba

Le
Brat'ac
Bonjour,

L'enregistreur de macro me donne:
ActiveCell.FormulaR1C1 = "=SUM(R[-102]C:R[-4]C)"
pour faire la somme des cellules de 11 a 102 de la colonne R

Comment faire pour remplacer 11 et 102 par des variables ?

Je galère, Merci
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Jacquouille
Le #26433452
Bonjour
Range("A1").Select
ActiveCell.FormulaR1C1 = "=SUM(zaza:toto)"
Jacques
" Le vin est au repas ce que le parfum est à la femme."
.
"Brat'ac" a écrit dans le message de groupe de discussion :

Bonjour,
L'enregistreur de macro me donne:
ActiveCell.FormulaR1C1 = "=SUM(R[-102]C:R[-4]C)"
pour faire la somme des cellules de 11 a 102 de la colonne R
Comment faire pour remplacer 11 et 102 par des variables ?
Je galère, Merci
Jacquouille
Le #26433473
Re
Ce n'est pas tout à fait la bonne réponse.
dans ce cas, il s'agit de la somme d'une plage délimitée par des cellules
nommées Zaza et Toto.
désolé.
Jacques
" Le vin est au repas ce que le parfum est à la femme."
.
"Jacquouille" a écrit dans le message de groupe de discussion :
of4863$30l$
Bonjour
Range("A1").Select
ActiveCell.FormulaR1C1 = "=SUM(zaza:toto)"
Jacques
" Le vin est au repas ce que le parfum est à la femme."
.
"Brat'ac" a écrit dans le message de groupe de discussion :

Bonjour,
L'enregistreur de macro me donne:
ActiveCell.FormulaR1C1 = "=SUM(R[-102]C:R[-4]C)"
pour faire la somme des cellules de 11 a 102 de la colonne R
Comment faire pour remplacer 11 et 102 par des variables ?
Je galère, Merci
MichD
Le #26433477
Bonjour,
Essaie comme ceci :
'--------------------------------------
Sub test()
'Dans la cellule où tu veux le résultat
'Supposons que c'est dans la cellule A1
'adapte le nom de la feuille.
Worksheets("Feuil1").Range("A1").Formula = "=Sum(R11:R102)"
End Sub
'--------------------------------------
MichD
isabelle
Le #26433484
bonjour,
pour faire la somme de la plage R11:R102
r1 = 11
r2 = 102
ActiveCell.Formula = "=Sum(R" & r1 & ":R" & r2 & ")"
vous pourriez aussi remplacer ActiveCell par la cellule de votre choix,
par exemple:
Range("R" & r2 +1).Formula = "=Sum(R" & r1 & ":R" & r2 & ")"
isabelle
Le 2017-05-12 à 06:11, Brat'ac a écrit :
Bonjour,
L'enregistreur de macro me donne:
ActiveCell.FormulaR1C1 = "=SUM(R[-102]C:R[-4]C)"
pour faire la somme des cellules de 11 a 102 de la colonne R
Comment faire pour remplacer 11 et 102 par des variables ?
Je galère, Merci
Jacquouille
Le #26433488
Salut Isabelle
Tu as bien compté les " ?
Il n'en manque pas un devant le premier R ?
Jacques
" Le vin est au repas ce que le parfum est à la femme."
.
"isabelle" a écrit dans le message de groupe de discussion :
of58u2$1q51$
bonjour,
pour faire la somme de la plage R11:R102
r1 = 11
r2 = 102
ActiveCell.Formula = "=Sum(R" & r1 & ":R" & r2 & ")"
vous pourriez aussi remplacer ActiveCell par la cellule de votre choix,
par exemple:
Range("R" & r2 +1).Formula = "=Sum(R" & r1 & ":R" & r2 & ")"
isabelle
Le 2017-05-12 à 06:11, Brat'ac a écrit :
Bonjour,
L'enregistreur de macro me donne:
ActiveCell.FormulaR1C1 = "=SUM(R[-102]C:R[-4]C)"
pour faire la somme des cellules de 11 a 102 de la colonne R
Comment faire pour remplacer 11 et 102 par des variables ?
Je galère, Merci
isabelle
Le #26433490
meuh.... non,
fait le test ;-)
isabelle
Le 2017-05-12 à 17:56, Jacquouille a écrit :
Salut Isabelle
Tu as bien compté les " ?
Il n'en manque pas un devant le premier R ?
Jacques
" Le vin est au repas ce que le parfum est à la femme."
.
"isabelle" a écrit dans le message de groupe de discussion :
of58u2$1q51$
bonjour,
pour faire la somme de la plage R11:R102
r1 = 11
r2 = 102
ActiveCell.Formula = "=Sum(R" & r1 & ":R" & r2 & ")"
vous pourriez aussi remplacer ActiveCell par la cellule de votre choix,
par exemple:
Range("R" & r2 +1).Formula = "=Sum(R" & r1 & ":R" & r2 & ")"
isabelle
Le 2017-05-12 à 06:11, Brat'ac a écrit :
Bonjour,
L'enregistreur de macro me donne:
ActiveCell.FormulaR1C1 = "=SUM(R[-102]C:R[-4]C)"
pour faire la somme des cellules de 11 a 102 de la colonne R
Comment faire pour remplacer 11 et 102 par des variables ?
Je galère, Merci

Brat'ac
Le #26433499
Dans son message précédent, isabelle a écrit :
Merci à tous c'est parfait.
Bon Week-End
Publicité
Poster une réponse
Anonyme