somme des valeurs dans listbox vba excel Fermé

Question

Salut,
J'ai deux problèmes avec mon programme :
1-	Je cherche une solution pour faire la somme des valeurs d'une colonne dans une listbox  (la 7éme colonne) et l'afficher dans un textbox
2-	Je cherche à insérer les valeurs du listbox (7 colonnes) dans une feuille au cellule A11
Merci d'avance pour votre aide

ThauTheme · Answer

Bonjour Saddoud Walid, bonjour le forum,

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

Saddoud walid · Answer

merci bien ... ça marche très bien

Saddoud walid · Answer

merci encore ThauTheme
si vous pouvez m'aider pour insérer des lignes (le même nb des lignes du listbox)  pour insérer les valeurs de la listbox

Somme des valeurs dans listbox vba excel

3 réponses

Discussions similaires