Addition dans une autre feuille [VBA]

Bonjour,

Je souhaiterai créer un programme qui permettrait d’additionner des valeurs dans une colonne.

J'ai ecris le code suivant :

 Range("B1").Value = Application.Sum(Range("F1").EntireColumn) 

Je souhaiterai qu'il m’exécute ce code mais dans la feuille 1 quand j'appuis sur un bouton en feuille 7

Pouvez-vous m'aider ?

Cordialement

Bonjour,

Ceci fonctionne :

Sheets(1).Range("B1").Value = Application.Sum(Sheets(1).Range("F1").EntireColumn)

ric

Et si je veux rajouter une feuille, faire exactement pareil mais avec en plus la feuille 2 comme je fais svp ?

Bonjour,

... fais un essai ... juste pour voir avec cette feuille 2.

ric

J'ai essayer ça mais ca ne fonctionne pas

 ThisWorkbook.Sheets("Feuil2").Range("B1").Value = Application.Sum(ThisWorkbook.Sheets("Produit Filaire", "Contrôle carte électronique").Range("F1").EntireColumn)

Bonjour,

Est-ce que ceci convient ?

Sheets("Feuil2").Range("B1").Value = Application.Sum(Sheets("Produit Filaire").Columns("F:F")) _
    + Application.Sum(Sheets("Contrôle carte électronique").Columns("F:F"))

ric

parfait, merci !

Bonjour,

Pour le même résultat, on pourrait aussi écrire :

Sub testsomme()
Dim Ws1, Ws2 As Worksheet

Set Ws1 = Sheets("Produit Filaire")
Set Ws2 = Sheets("Contrôle carte électronique")

Sheets("Feuil2").Range("B1").Value = Application.Sum(Ws1.Columns("F:F")) + _
    Application.Sum(Ws2.Columns("F:F"))

End Sub

ric