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
VBA Office (Excel, Word ...) Posez votre question Signaler Répondre au sujet
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 

4 réponses

Répondre au sujet
ucfoutu 18021 Messages postés lundi 7 décembre 2009Date d'inscriptionModérateurStatut 12 décembre 2017 Dernière intervention - 4 août 2016 à 12:49
0
Utile
2
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 3858 Messages postés mardi 19 mars 2002Date d'inscription 21 novembre 2017 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
Utile
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.