[VBA-E]- Recuperer le resultat d'une somme dans une variable

**ekynoxx** · 04/05/2007, 18h08

Bonjour,
J'aimerai juste pouvoir stocker dans une variable la somme d'une colonne.
J'utilise par la suite la valeur de cette variable.
J'ai teste ca mais ca ne marche pas.

Code :

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

1
2
3
4
5
6
Sub sommetest()
Dim Lasomme As Integer
 
Lasomme = Sum("B:B")
Range("A1").Select = Lasomme
End Sub

Merci d'avance.

**edelweisseric** · 04/05/2007, 18h48

Bonsoir à tous
Bonsoir ekynoxx

Essaie ceci :

Code :

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

1
2
3
4
5
6
7
8
 
Sub sommetest()
Dim Lasomme As Integer
Dim maplage As Range
Set maplage = Range("b:b")
Lasomme = Application.WorksheetFunction.Sum(maplage)
Range("A1").Value = Lasomme
End Sub

Eric

**ekynoxx** · 04/05/2007, 18h53

Salut,
Je viens de tester le code, cela ne fonctionne pas.
Le message d'erreur est le suivant :
Unable to get the sum property of the worksheet function class.

J'ai vu un code sur le net ou il rajoute le nom de la sheet mais il marche pas non plus.
J'ai le meme message d'erreur.
Le pb vient du fait que parfois je tombe sur du texte sur la colonne.

**alsimbad** · 04/05/2007, 19h05

salut
pourquoi tu ne fais pas une boucle toute simple au lieux d'utiliser les fonctions?

Code :

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

1
2
3
4
5
6
7
8
Sub addition()
findecolone = Range("b1").End(xlDown).Row
colonne = Range("b1:b" & findecolone)
For Each valeur In colonne
résultat = résultat + valeur
Next valeur
MsgBox résultat
End Sub

c'est plus simple a utiliser si tu n'a besoin du résultat que comme variable

**edelweisseric** · 04/05/2007, 19h24

Bonsoir à tous

Je viens de réessayer cela fonctionne chez moi. J'ai excel 2000 et toi ?

Pour la boucle, c'est bien, mais s'il y a 50000 lignes, on peut aller prendre un thé en attendant (lol)

Eric