Formule intégrant des Range au lieu des références de cellules [Résolu]

Signaler
Messages postés
34
Date d'inscription
mercredi 15 juin 2016
Statut
Membre
Dernière intervention
30 septembre 2016
-
Messages postés
34
Date d'inscription
mercredi 15 juin 2016
Statut
Membre
Dernière intervention
30 septembre 2016
-
Bonjour,
je voulais savoir comment faire pour calculer des opérations du genre:
Range("G1").End(xlDown).Offset(1, 0).Select
ActiveCell.FormulaR1C1 = _
"=Range("A1").End(xlDown).Offset(1, 0).value+Range("B1").End(xlDown).Offset(1, 0).value"

je ne peux mettre les références des cellules car je ne peux les connaître à l'avance ca dépendra de comment l'utilisateur remplira la feuille.
Merci bien

2 réponses

Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
237
Bonjour,
du genre ????
Messages postés
34
Date d'inscription
mercredi 15 juin 2016
Statut
Membre
Dernière intervention
30 septembre 2016

du genre du code que j'ai tapé.... je voulais savoir en résumé quel est l'équivalent de Range("A1").End(xlDown).Offset(1, 0).value dans une formule de calcul
Messages postés
3877
Date d'inscription
mardi 19 mars 2002
Statut
Membre
Dernière intervention
23 août 2018
18
Bonjour,

Si je comprends bien...
Dim nbLIgnes as long
nbLignes = Range("A1").End(xlDown) 'Dernière ligne remplie


Il te reste à intégrer la variable à ta formule
ex:
Range("A" & nbLignes + 1).Formula = "=SUM(A2:A" & nbLignes & ")"
Messages postés
34
Date d'inscription
mercredi 15 juin 2016
Statut
Membre
Dernière intervention
30 septembre 2016

Bonjour finalement voilà la solution que j'ai trouvé. Merci à tous les membres de ce forum qui ont bien voulu me répondre.
@ CsMPi je vais aussi tester ta solution. Merci
Range("G1").End(xlDown).Offset(1, 0).Select
ActiveCell.Formula = _
"=(" & Range("E1").End(xlDown).Offset(0, 0).Address & ")*(" & Range("F1").End(xlDown).Offset(0, 0).Address & ")/(1000*1.31*10^(-6))"
' la propriété offset peut aussi être enlevée de la syntaxe