VBA Acces somme dans Excel
Résolu/Fermé
darkspoilt
Messages postés
254
Date d'inscription
jeudi 13 janvier 2005
Statut
Membre
Dernière intervention
10 octobre 2013
-
10 mai 2007 à 17:19
darkspoilt Messages postés 254 Date d'inscription jeudi 13 janvier 2005 Statut Membre Dernière intervention 10 octobre 2013 - 11 mai 2007 à 10:34
darkspoilt Messages postés 254 Date d'inscription jeudi 13 janvier 2005 Statut Membre Dernière intervention 10 octobre 2013 - 11 mai 2007 à 10:34
Bonjour j'ai un probleme avec une fonction somme mais je ne vois pas du tout ce que c'est. Si quelqu'un peut m'aider je lui en serait reconnaissant
voici le code
mon paste est résolu j'ai un autre souci
xls.ActiveSheet.Cells.Range("C2:J4").Select
xls.ActiveSheet.Cells.Range("C4").Activate
xls.ActiveSheet.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
Merci d'avance
voici le code
mon paste est résolu j'ai un autre souci
xls.ActiveSheet.Cells.Range("C2:J4").Select
xls.ActiveSheet.Cells.Range("C4").Activate
xls.ActiveSheet.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
Merci d'avance
A voir également:
- VBA Acces somme dans Excel
- Formule somme excel colonne - Guide
- Liste déroulante excel - Guide
- Somme si couleur excel - Guide
- Acces rapide - Guide
- Word et excel gratuit - Guide
5 réponses
xjl
Messages postés
232
Date d'inscription
mardi 27 mars 2007
Statut
Membre
Dernière intervention
12 juin 2007
183
10 mai 2007 à 17:42
10 mai 2007 à 17:42
En fait, comme tu mets ta formule dans une cellule en particulier, le plus simple serait que tu ne code pas l'adresse des cellules que tu veux additionner en relatif mais en absolu, ce qui donnerait dans ce cas:
xls.ActiveSheet.Cells.Range("C2:J4").Select
xls.ActiveSheet.Cells.Range("C4").Activate
xls.ActiveSheet.ActiveCell.FormulaR1C1 = "=SOMME(C2;C3)"
si j'interprète bien ta ligne de départ...
xls.ActiveSheet.Cells.Range("C2:J4").Select
xls.ActiveSheet.Cells.Range("C4").Activate
xls.ActiveSheet.ActiveCell.FormulaR1C1 = "=SOMME(C2;C3)"
si j'interprète bien ta ligne de départ...
darkspoilt
Messages postés
254
Date d'inscription
jeudi 13 janvier 2005
Statut
Membre
Dernière intervention
10 octobre 2013
1
10 mai 2007 à 17:50
10 mai 2007 à 17:50
tu as très bien interprèter ma ligne de départ mais si je l'ai fait en relatif c justement que en absolu cela ne fonctionne pas et je n'aurais meme pas eu besoin de mes deux premiere lignes.
C'est tout la le probleme
Merci de m'aider en tout cas
C'est tout la le probleme
Merci de m'aider en tout cas
xjl
Messages postés
232
Date d'inscription
mardi 27 mars 2007
Statut
Membre
Dernière intervention
12 juin 2007
183
11 mai 2007 à 10:12
11 mai 2007 à 10:12
Je ne comprends d'ailleurs pas bien l'intérêt de la première ligne...
Normalement, il te suffit de faire:
xls.ActiveSheet.Cells.Range("C4").Select
xls.ActiveSheet.ActiveCell.FormulaR1C1 = "=SOMME(C2;C3)"
et ça devrait te mettre =SOMME(C2;C3) dans C4, à moins que ce ne soit pas ce que tu veux faire, je ne vois pas pourquoi ça ne fonctionnerait pas !
Normalement, il te suffit de faire:
xls.ActiveSheet.Cells.Range("C4").Select
xls.ActiveSheet.ActiveCell.FormulaR1C1 = "=SOMME(C2;C3)"
et ça devrait te mettre =SOMME(C2;C3) dans C4, à moins que ce ne soit pas ce que tu veux faire, je ne vois pas pourquoi ça ne fonctionnerait pas !
darkspoilt
Messages postés
254
Date d'inscription
jeudi 13 janvier 2005
Statut
Membre
Dernière intervention
10 octobre 2013
1
11 mai 2007 à 10:19
11 mai 2007 à 10:19
En fait la premiere étaient présentes pour additioner en relatif. les lignes que tu m'a donné sont les première que j'ai écrite avant les modifications et cela ne fonctionne pas et moi aussi je ne comprends pas pourquoi c'est pour cela que je demande de l'aide sur le forum.
Il me met que l'objet ne connait pas ou ne peux pas utiliser cette méthode.
Merci en tous cas pour ton aide
Il me met que l'objet ne connait pas ou ne peux pas utiliser cette méthode.
Merci en tous cas pour ton aide
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
darkspoilt
Messages postés
254
Date d'inscription
jeudi 13 janvier 2005
Statut
Membre
Dernière intervention
10 octobre 2013
1
11 mai 2007 à 10:34
11 mai 2007 à 10:34
une ligne suffisait
voila
xls.ActiveSheet.Cells.Range("C4").FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
Merci pour l'aide mais je ne comprends toujours pas pourquoi cela ne fonctionnais pas avant.
Bon c'est pas grave mon probleme est résolu c'est l'essentiel :)
voila
xls.ActiveSheet.Cells.Range("C4").FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
Merci pour l'aide mais je ne comprends toujours pas pourquoi cela ne fonctionnais pas avant.
Bon c'est pas grave mon probleme est résolu c'est l'essentiel :)