Selection d'une ligne Listbox multicolonnes

Salut à tous,

Je n'arrive pas à sélectionner une ligne d'une listbox de 2 colonnes. J'ai pourtant essayé ces 2 choses là, mais sans succès:

            UserForm1.ListBox2.Selected(3) = True
            UserForm1.ListBox2.ListIndex = 3

Sauriez vous comment faire?

Merci à tous pour votre aide

Bonjour,

UserForm1.ListBox2.Selected(3) = True devrait fonctionner ...

Si UserForm1.ListBox2.Selected(3) = True ne fonctionne pas ...

Il y a erreur dans le nom du userform ou de la listbox ...

Ou encore le userform n'est pas démarré > ou le listbox2 n'a pas au moins 3 lignes ...

Ou autre chose que l'on ne voit pas sans le fichier ...

ric

Salut Ric, merci pour ta réponse

Ah mince, c'est embêtant parce que:

- J'ai une autre listbox monocolonne (cf. "2) Sélection du mois en cours") pour laquelle j'utilise exactement la même syntaxe (j'ai juste changé le 1 en 2 en gros) et ça fonctionne parfaitement.

- Le nom de l'userform et de la listbox sont bon

- Je lance cette instruction au même moment que la Userform1.ListBox1 (au moment d'UserForm_Initialize)

- La listbox a 12 lignes et 2 colonnes

J'ai fait ce code pour ça:

    For i = 0 To UserForm1.ListBox1.ListCount - 1

        If Month(Date) = Month("01 " & UserForm1.ListBox1.List(i) & " 2000") Then

            UserForm1.ListBox1.ListIndex = i 'Listbox selection du mois
            UserForm1.ListBox2.ListIndex = i 'Listbox Statistiques
            UserForm1.ListBox2.Selected(i) = True 'Listbox Statistiques

        End If

    Next

Bonjour,

J'ai reproduit sommairement ton UserForm ...

UserForm1.ListBox2.ListIndex = i 'Listbox Statistiques  ...
et
UserForm1.ListBox2.Selected(i) = True 'Listbox Statistiques ...

Font la même chose > ce sont des équivalents et ils fonctionnent correctement ...

ric

Ah bah je ne comprends pas d'où vient le problème alors... Je vais chercher dans les options de la listbox...

Merci quand même en tout cas ;)

Bonjour,

Au besoin > tu peux m'envoyer le fichier en message privé ...

ric

Salut ric, ced_le_dingue

dit moi que tu donne ça : les 2 msgbox

EDIT : voir les les trois MSGBOX N01 , N02, N03

For i = 0 To UserForm1.ListBox1.ListCount - 1
         MsgBox "N01 : ListCount-1:" & UserForm1.ListBox1.ListCount - 1
         MsgBox "N02 : " & Month(Date) & " = " & Month("01 " & UserForm1.ListBox1.List(i) & " 2000")
        If Month(Date) = Month("01 " & UserForm1.ListBox1.List(i) & " 2000") Then
         MsgBox "N03 : OK elle passe " 
            UserForm1.ListBox1.ListIndex = i 'Listbox selection du mois
            UserForm1.ListBox2.ListIndex = i 'Listbox Statistiques
            UserForm1.ListBox2.Selected(i) = True 'Listbox Statistiques

        End If

    Next

Salut Amir,

En fait j'ai solutionné le problème en appelant cette instruction à partir d'une autre sub... Bizarre mais en l'appelant ailleurs ça marche...

Merci en tout cas pour ta contribution à mon soucis ;)