Discussion :

[ekynoxx]

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]

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]

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]

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]

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

[alsimbad]

même pas une demiseconde pour 65000 lignes