[VBA Listbox pb avec "value"] Fermé

Question

Bonjour à tous, je suis nouvelle sur ce forum, et là j'ai extrêmement besoin de votre aide !!
J'ai créé une userform dans laquelle se trouve une listbox. Selon le nom du classeur qui contient la macro, je mets une certaine valeur dans ma listbox, au moyen de "additem".
le pb est que lorsque je souhaite acceder a la valeur de la listbox, celle-ci est vide........ je ne sais pas quoi faire....
je vous mets mon code si cela peut vous aider :

If (ThisWorkbook.Name = "02_2007.xls") Then
    i = 2
    Saisie_mois.Nummois.AddItem (i)
    Saisie_mois.Nummois.Value = "2"
End If

j'ai aussi testé avec Saisie_mois.Nummois.Value = i et Saisie_mois.Nummois.Value = 2, mais ca ne donne rien (quand je fais MsgBox Saisie_mois.Nummois.Value, ca ne m'affiche rien...)

ce code doit absolument marcher pour demain, d'ou mon appel a l'aide aujourd hui !!

merci beaucoup de regarder ca, meme si ce n est que pour 5minutes.

a bientot j espere,
Steph

stephanie_33 · Answer

s'il vous plait aidez-moi !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

je croyais que ce forum etait fait pour que les gens s aident entre eux :'( je suis désespérée, je ne sais pas quoi faire j'ai besoin de votre aide !!

stephanie_33 · Answer

aidez-moi je vous en suppliiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiie

stephanie_33 · Answer

aidez- moiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii j'ai besoin de vous !!!!!! svp c'est URGENT !!!!!!!!

Utilisateur anonyme · Answer

Bonjour,

exemple d'utilisation :


Private Sub cmd_Execute_Click()
    
    Dim Nombre As Long, Boucle As Long, i As Integer
    
    Saisie_mois.Nummois.Clear
    
    If (ThisWorkbook.Name = "Ex_ListBox.xls") Then
        i = 2
        Saisie_mois.Nummois.AddItem (i)
        Saisie_mois.Nummois.AddItem (i + 1)
        Saisie_mois.Nummois.AddItem (i + 2)
    End If
    Nombre = Saisie_mois.Nummois.ListCount
    
    MsgBox Saisie_mois.Nummois.List(Saisie_mois.Nummois.ListCount - 1)
    
    For Boucle = 0 To Nombre - 1
        MsgBox (Saisie_mois.Nummois.List(Saisie_mois.Nummois.ListCount - Boucle - 1))
    Next Boucle
    
End Sub
'

Lupin

stephanie_33 · Answer

merci de ta reponse, mais je ne vois pas comment rentrer la valeur "2" dans la liste box, pour pouvoir m'en servir après par la suite ........

tu crois que tu saurais comment faire ?

stephanie_33 · Answer

help !

Utilisateur anonyme · Answer

re :


Private Sub cmd_Execute_Click()
    
   Saisie_mois.Nummois.AddItem "2"
   MsgBox (Saisie_mois.Nummois.List(Saisie_mois.Nummois.ListCount - 1)) ' Le dernier ajouté !

End Sub
'

Lupin

[VBA Listbox pb avec "value"]

7 réponses

Discussions similaires

Newsletters