mise à jour d'une listbox

[arvin]

bonjour à tous ,

voilà je souhaite mettre à jour une listbox : en fait, le principe est de chercher un nom dans une listbox et si il n'y est pas de le créer . Mais le souci est qu'en le créant , la listbox ne se met pas à jour immédiatement
Je voudrais que ma Listbox s'actualise en meme temps; or ce n'est pas le cas. Lorsque l'on supprime un nom de la base de donnee, il reste inscrit dans la listbox. Je suis donc oblige de fermer et reouvrir mon fichier excel pour mettre a jour cette listbox.

J'ai essayé en refaisant une boucle par add mais cela ne fonctionne pas : qui pourrais me corriger ?

merci

Private Sub CommandButton2_Click()

Call ajouterunnom

Dim i As Integer

'boucle sur chaque élément de la listbox1, si sélectionné, copie le nom
'dans le label
With ListBox1
For i = 0 To .ListCount - 1
If .Selected(i) Then
ListBox2.AddItem .List(i, 0)

End If
Next i
End With

[porcinet82]

Salut Arvin,

Tu peux aller voir ici, la ou encore la, tu trouveras différents expemples pour mettre a jour une Listbox

@+

[arvin]

merci beaucoup, j'ai essayé de comprendre mais finalement rien ne se rajoute dans le listbox1, pourquoi ?????

merci


Public Sub initlistbox()
Dim Cel As Range 'déclare la variable Cel

'Remplit la ListBox1
'boucle sur toutes les cellules Cel éditées de la colonne A
For Each Cel In Range("A1:A" & Range("A65536").End(xlUp).Row)
ListBox1.AddItem Cel 'ajoute la valeur de la cellule à la ListBox1
Next Cel 'prochaine cellule Cel de la colonne A
End Sub

[porcinet82]

re,

Est-ce que tu pourrais mettre un exemple simple de ton fichier pour qu'on voit ou cela ne fonctionne pas parce que comme ca, je ne suis pas sur de pouvoir t'aider et j'ai la fleme de créer une Listbox pour tester.

@+

[_Thierry]

Bonjour Romain, Arvin, le Forum

Selon ton premier Post cette Procédure envoit de la ListeBox1 les éléments sélectionnés (sous-entendu que la Listbox1 est paramétrée en MultiSelect) vers la ListBox2

Ceci par action sur le "CommandButton2"

 
Private Sub CommandButton2_Click()
Dim i As Integer
 
'Call AjouterUnNom '<<<<<<< Procédure à voir... ????
 
Me.ListBox2.Clear '<<<<<<<< A AJOUTER SINON TU AURAS DES DOUBLONS....
 
With ListBox1
    For i = 0 To .ListCount - 1
        If .Selected(i) Then
                ListBox2.AddItem .List(i, 0)
        End If
    Next i
End With
 
End Sub

Maintenant ta procédure postée dans ton autre Post :

Private Sub Init_Listbox() 'NB : Private Sub
Dim Cel As Range
    For Each Cel In Range("A1:A" & Range("A65536").End(xlUp).Row)
        ListBox1.AddItem Cel
    Next Cel '
 
Me.ListBox1.MultiSelect = fmMultiSelectMulti '<<<<<<<< A AJOUTER SI TU VEUX DU MULTISELECT
End Sub

En fait, si tu veux ré-initialiser ta ListBox1, la procédure du CommandButton2 n'a strictement rien à voir....

Il faudrait voir le code de la Sub "AjouterUnNom" et probablement en fin de celle-ci y adjoindre un Call vers "Init_Listbox".... Cependant cela aurait pour effet de mettre la selection en MultiSelect à néant pour le CommandButton2...

Pas clair, pas clair...

Bon Aprèm

@+Thierry

[arvin]

merci beaucoup de ta réponse je pense être sur la bonne voie
j'apprends , j'apprends

je te tiens au courant

à +