Initialisation de la listBox et changement de valeur après sélection
Un peu de code pour te guider;) :
Pour initialiser tes ListBoxs, si c'est en fonction d'une recherche
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
| Private Sub UserForm_Initialize()
Dim myRange As excel.Range
' Utilisation de la fonction Find dont patricktoulon à parler
' Elle te retournera la première cellule contenant la valeur cherchée trouver
Set myRange = excel.Range("maPlage").Find(What:="maValeur1", [Autres arguments facultatifs])
If Not myRange Is Nothing Then
Dim addr As String
' On stocke l'adresse de la cellule dans addr
addr = myRange1.Address
' Cette boucle va ajouter toutes les valeurs cherchée dans ta ListBox
Do
ListBox.AddItem myRange.Value
Set myRange = excel.Range("maPlage").FindNext(myRange)
Loop While Not myRange Is Nothing And myRange.Address <> addr
End If
End Sub |
Et pour actualiser la ListBox:
Code:
1 2 3 4 5 6
| Private Sub ListBox_Click()
' ici, tu pourras effectuer toutes les opération que tu veux sur toutes tes listBoxs,
' et notamment les mettre à jour en fonction des valeurs de ListBox
End Sub |
La méthode Clear des ListBoxs te permettra de supprimer tous les éléments de la listBox, et tu pourras y ajouter les éléments trouver grâce à Find en lui donnant en paramètre ListBox.Value!
Voilà, j'espère que c'est plus clair pour toi ^^