Somme des valeurs dans listbox vba excel

Saddoud walid -  
 Saddoud walid -
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
A voir également:

3 réponses

Réponse 1 / 3
ThauTheme Messages postés 1442 Date d'inscription   Statut Membre Dernière intervention   160
 
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
1
Réponse 2 / 3
Saddoud walid
 
merci bien ... ça marche très bien
0
Réponse 3 / 3
Saddoud walid
 
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
0