Discussion :

[ickyknox]

salut à tous.

Petit soucis :

j'ai deux documents excel : A et B
Dans le A j'ai une liste de valeur.

Que faut-til faire pour que la somme de ces valeurs apparaissent dans l'onglet 1 du document B ??

J'ai déjà trouvé cette formule qui me fait la somme de ma liste :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub test()
For Each o In Range("C2:C15000")
If Rows(o.Row).Hidden = False Then Var = Var + o
Next
Worksheets("récapitulatif").Range("e2").Interior.Color = RGB(204, 255, 204)
Worksheets("récapitulatif").Range("e2") = Var
End Sub

MERCI BEAUCOUP !!!

[edelweisseric]

Bonjour à tous

Peut être une solution plus rapide :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub addit()
total = Application.WorksheetFunction.Sum(Range("C2:C15000"))
Windows("Classeur2").Activate
Worksheets("récapitulatif").Range("e2").Value = total
End Sub

si j'ai bien compris.

Il doit y avoir plus court

A+

[ickyknox]

slt Edel.
merci pour ta réponse.

j'ai quelques soucis en VBA , je suis stagiaire et ne comprend pas tout !

Dans cette formule :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub addit()
total = Application.WorksheetFunction.Sum(Range("C2:C15000"))
Windows("Classeur2").Activate
Worksheets("récapitulatif").Range("e2").Value = total
End Sub

à quoi sert Windows("Classeur2").Activate ??

...
désolé j'ai peut etre pas été aussi précis concernant mon besoin :

je suis sur le document Excel n°1 , onglet 1.
Je veut cliquer sur mon bouton et dans ma case A1 va s'afficher une somme X.

X est la somme de (B1,B1000) d'un autre document excel n°2 onglet 2

...
mais je croit que ce Windows("Classeur2").Activate peut m'ouvrir quelques portes !
merci

[edelweisseric]

Bonjour à tous

Essaie ce code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub Macro2()
Windows("Classeur2").Activate   'active le classeur
total = Worksheets("Feuil1").Application.WorksheetFunction.Sum(Range("B1:B1000"))
Windows("Classeur1").Activate
Worksheets("Feuil1").Range("a1").Value = total
End Sub

en modifiant les Classeurs et feuilles/onglets

A+

Eric

[ickyknox]

re .

Merci pour la réponse, elle est très claire !
Mais j'ai un petit soucis !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
Private Sub CommandButton1_Click()
 
Windows("FichierRéférence").Activate   'active le classeur
total = Worksheets("récapitulatif").Application.WorksheetFunction.Sum(Range("c2:c15000"))
Windows("Bilan Inventaire 2007").Activate
Worksheets("Feuil1").Range("c7").Value = total
 
End Sub

Ce code demande de faire la somme de C2:C15000 dans "FichierRéférence" et d'afficher dans "Bilan Inventaire 2007".
Au lieu de ca, elle fait la somme dans ce meme fichier ""Bilan Inventaire 2007".
Apparemment elle n'ouvre pas mon second document excel (ne le consulte meme pas).
Est ce parceque j'ai ces deux documents excel dans le bureau ?
Est ce peut etre parceque je n'ai pas précisé le lien pour retrouver mes documents ?

En tout cas, ta réponse m'a déjà bien avancé, et je t'en remercie

[edelweisseric]

Bonjour à tous

Alors là, je ne comprend pas !!!!! chez moi cela fonctionne.

Les 2 fichiers sont-ils ouverts en même temps?

Si c'est toujours la même plage à additionner, et la même cellule qui réceptionne, il n'est pas utile de le faire en VBA. Une simple fonction suffit.

A +