A voir également:
- Somme des valeurs dans listbox vba excel
- Liste déroulante excel - Guide
- Somme excel - Guide
- Somme si couleur excel - Guide
- Formule excel - Guide
- Si et excel - Guide
3 réponses
ThauTheme
Messages postés
1442
Date d'inscription
mardi 21 octobre 2014
Statut
Membre
Dernière intervention
29 juillet 2022
160
15 janv. 2015 à 17:01
15 janv. 2015 à 17:01
Bonjour Saddoud Walid, bonjour le forum,
Une proposition a adapter:
Une proposition a adapter:
Private Sub CommandButton1_Click()
Dim T As Single 'déclare la variable T (Total) / Type à adapter
With ListBox1 'prend en compte la ListBox1 (à adapter)
For I = 0 To .ListCount - 1 'boucle sur tous les lignes de la ListBox1
T = T + .Column(6, I) 'définit le total T (à adapter car tu parles de la colonne 7 et la c'est la "7ème" colonne)
Next I 'prochaine ligne de la boucle
TextBox1.Value = T 'renvoie dans la TextBox1 le total T (à adapter)
Range("A11").Resize(.ListCount, .ColumnCount) = .List 'renvoie la da la cellule A1 la les éléments de la ListBox1
End With 'fin de la prise en compte de la ListBox1
End Sub
