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

dyjatou92 34 Messages postés mercredi 15 juin 2016Date d'inscription 30 septembre 2016 Dernière intervention - 4 août 2016 à 12:45 - Dernière réponse : dyjatou92 34 Messages postés mercredi 15 juin 2016Date d'inscription 30 septembre 2016 Dernière intervention
- 9 août 2016 à 11:58
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
Afficher la suite 

Votre réponse

4 réponses

ucfoutu 18039 Messages postés lundi 7 décembre 2009Date d'inscriptionModérateurStatut 11 avril 2018 Dernière intervention - 4 août 2016 à 12:49
0
Merci
Bonjour,
du genre ????
dyjatou92 34 Messages postés mercredi 15 juin 2016Date d'inscription 30 septembre 2016 Dernière intervention - 4 août 2016 à 12:55
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
cs_MPi 3872 Messages postés mardi 19 mars 2002Date d'inscription 13 juillet 2018 Dernière intervention - 8 août 2016 à 19:44
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 & ")"
Commenter la réponse de ucfoutu
dyjatou92 34 Messages postés mercredi 15 juin 2016Date d'inscription 30 septembre 2016 Dernière intervention - Modifié par dyjatou92 le 9/08/2016 à 12:01
0
Merci
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
Commenter la réponse de dyjatou92

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.