Somme VBA

Fermé
Skylee - 18 nov. 2009 à 00:44
f894009 Messages postés 17190 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 16 mai 2024 - 29 nov. 2009 à 11:55
Bonjour,

Je viens à nouveau solliciter votre aide. Voilà je souhaiterai sommer les nombres contenus dans ma colonne B de ma feuille excel et correspondant à des cellules précises de la colonne A (dans mon userform, un nom est entré dans une combobox, je recherche ce nom dans ma colonne A et à chaque fois que je le trouve, j'ajoute la valeur correspondante de la colonne B).
Je vous propose le code que j'ai écrit, mais le total est toujours égal à 0, et je ne parviens pas à voir d'où provient mon erreur.

Sub quantite()

'Recherche de la quantité totale de la sélection commandée
Dim n As Integer
Dim total As Long

n = 1
total = 0

Do While ActiveWorkbook.Sheets("Commandes").Cells(n, 1) <> Null
If ActiveWorkbook.Sheets("Commandes").Cells(n, 1).Value = UserForm_Stat.ComboBox1.Value Then
total = total + Sheets("Commandes").Cells(n, 2).Value
End If
n = n + 1

Loop
TextBox2.Value = total

End Sub

Par avance merci!!
Skylee

1 réponse

f894009 Messages postés 17190 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 16 mai 2024 1 705
29 nov. 2009 à 11:55
Bonjour,

Remplacez <>NULL par <>""

et

ActiveWorkbook.TextBox2.Value = total


Bonne suite

SWF
0