Discussion :

[kameylia]

Bonjour, j'ai créer un code sur un formulaire et avec une listbox. Celle-ci affiche les variables présentes dans mon tableau excel mais je voudrai savoir comment ajouter à la liste une variable "toutes" , qui reprendrai le total de toutes les valeurs.
merci d'avance
bonne journée

[fring]

Bonjour,

Voici un exemple:

• un UserForm1
• une ListBox
• des valeurs en A1 --> A5

Chargement de la ListBox lors de l'initialisation du UserForm

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub UserForm_Initialize()
Dim i As Integer
 
For i = 1 To 5
Me.ListBox1.AddItem Cells(i, 1).Value
Next
 
Me.ListBox1.AddItem "toutes"
 
End Sub

Envoie du résultat dans une MsgBox lors de la sélection dans la ListBox

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub ListBox1_Click()
Dim i As Byte, Result As String
 
If Me.ListBox1.Value = "toutes" Then
    For i = 0 To Me.ListBox1.ListCount - 2
        Result = Result & Chr(10) & Me.ListBox1.List(i)
    Next
Else
    Result = Me.ListBox1.Value
End If
 
MsgBox Result
 
End Sub

Il ne reste plus qu'à ajouter un soupçon de réflexion pour accomoder ça à ta sauce

[kameylia]

Bonjour Fring, j'ai ajouter "toutes" mais je n'arrive pas a afficher le resullat.. j'ai essayer de compléter le deuxieme code que tu m'a fourni mais ça ne fonctionne pas
mon résultat ne doit pas s'afficher sur une MsgBox mais il doit completer un tableau excel... en additionnant les données de toutes les variables contenues dans la listbox.
merci et bonne journée

[kameylia]

bonjour.. c'est bon j'ai réussi à résoudre mon probleme
merci bien!