Problème avec 3 Listbox dans userform

[Arpette]

Bonjour à toutes et à tous,

J'ai un problème avec mon userform qui fonctionne avec deux listbox, mais qui bug quand j'en rajoute une troisième. Je vous donne le code pour voir si j'ai une erreur d'écriture.
Merci pour votre aide.

Option Explicit
'*****************************************************************
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Unload Me
'On ferme le Userform
Application.ScreenUpdating = True
End Sub
'*****************************************************************
Private Sub LIDF_Click()
Application.ScreenUpdating = False
Dim DernLign As Long
    With Sheets("Saisie")
        'On mémorise dans DernLign le numéro de la première ligne libre de la feuille Saisie
        DernLign = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
        'On met à jour la feuille Saisie avec les données du Userform
        .Cells(DernLign, 1).Value = Me.LIDF.List(Me.LIDF.ListIndex)
    End With
Application.ScreenUpdating = True
End Sub
'*****************************************************************
Private Sub LProduits_Click()
Application.ScreenUpdating = False
Dim DernLign As Long
    With Sheets("Saisie")
        'On mémorise dans DernLign le numéro de la première ligne libre de la feuille Saisie
        DernLign = .Cells(.Rows.Count, 9).End(xlUp).Row + 1
        'On met à jour la feuille Saisie avec les données du Userform
        .Cells(DernLign, 9).Value = Me.LProduits.List(Me.LProduits.ListIndex)
    End With
Application.ScreenUpdating = True
End Sub
'*****************************************************************
Private Sub LModeadmi_Click()
Application.ScreenUpdating = False
Dim DernLign As Long
    With Sheets("Saisie")
        'On mémorise dans DernLign le numéro de la première ligne libre de la feuille Saisie
        DernLign = .Cells(.Rows.Count, 11).End(xlUp).Row + 1
        'On met à jour la feuille Saisie avec les données du Userform
        .Cells(DernLign, 11).Value = Me.LModeadmi.List(Me.LModeadmi.ListIndex)
    End With
Application.ScreenUpdating = True
End Sub
'******************************************************************
Private Sub UserForm_Initialize()
Application.ScreenUpdating = False
Dim i As Integer
i = 3
With Worksheets("Identifiants").Select
    While Worksheets("Identifiants").Cells(i, 1).Value <> ""
    'Boucle dans le classeur sur feuille identifiants 1ère colonne affiche la valeur tant que les cellules ne sont pas vides
    Me.LIDF.AddItem (Worksheets("Identifiants").Cells(i, 1).Value)
    i = i + 1
    Wend
    Module1.SortListBox Me.LIDF, 0, 1, 1
'*****************************************************************
With Worksheets("Produits").Select
    While Worksheets("Produits").Cells(i, 1).Value <> ""
    'Boucle dans le classeur sur feuille Produits 1ère colonne affiche la valeur tant que les cellules ne sont pas vides
    Me.LProduits.AddItem (Worksheets("Produits").Cells(i, 1).Value)
    i = i + 1
    Wend
    Module1.SortListBox Me.LProduits, 0, 1, 1

    While Worksheets("Produits").Cells(i, 2).Value <> ""
    'Boucle dans le classeur sur feuille Produits 2ème colonne affiche la valeur tant que les cellules ne sont pas vides
    Me.LModeadmi.AddItem (Worksheets("Produits").Cells(i, 2).Value)
    i = i + 1
    Wend
    Module1.SortListBox Me.LModeadmi, 0, 1, 1
End With
End With
Application.ScreenUpdating = True
End Sub
'*****************************************************************
Function FindIndexClasseur(ByVal NomClasseur) As Integer

End Function

 

[tototiti2008]

Re : Problème avec 3 Listbox dans userform

Bonjour Arpette,

c'est censé servir à quoi le :

With Worksheets("Identifiants").Select

?

With doit désigner un Objet pour faciliter son utilisation dans la suite du code et éviter de reciter son nom à chaque fois
Donc je mettrais plutôt :

With Worksheets("Identifiants")

et même chose plus bas avec la feuille Produits

 

[Arpette]

Re : Problème avec 3 Listbox dans userform

Bonjour Arpette,

c'est censé servir à quoi le :

With Worksheets("Identifiants").Select

?

With doit désigner un Objet pour faciliter son utilisation dans la suite du code et éviter de reciter son nom à chaque fois
Donc je mettrais plutôt :

With Worksheets("Identifiants")

et même chose plus bas avec la feuille Produits

Bonjour tototiti, c'est une erreur, j'ai tendance à mettre des .Select et .Value un peu partout. Néanmoins, je les ai enlevés, mais au lancement j'ai toujours le bug. Je pense qu'il n'aime pas deux listbox dans une même feuille source.
Merci pour ton aide
@+

 

[tototiti2008]

Re : Problème avec 3 Listbox dans userform

Re,

Rien qui me saute aux yeux sinon... tu utilises une sub SortListbox d'un autre module que l'on ne voit pas, mais ça ne veut pas dire que ça vienne de là... et sans fichier exemple, un peu compliqué

 

[Arpette]

Re : Problème avec 3 Listbox dans userform

Re,

Rien qui me saute aux yeux sinon... tu utilises une sub SortListbox d'un autre module que l'on ne voit pas, mais ça ne veut pas dire que ça vienne de là... et sans fichier exemple, un peu compliqué

Re, c'est une Function que j'ai pompée sur le net, elle n'est peut-être pas adaptée pour 3 listbox (dans module 1). Je te joints mon fichier par le biais de ce lien.
Merci
@+

http://cjoint.com/?iFkPo5x1vt

 

[tototiti2008]

Re : Problème avec 3 Listbox dans userform

Re,

essaye comme ça :

Private Sub UserForm_Initialize()
Application.ScreenUpdating = False
Dim i As Integer
i = 3
With Worksheets("Identifiants")
    While Worksheets("Identifiants").Cells(i, 1).Value <> ""
    'Boucle dans le classeur sur feuille identifiants 1ère colonne affiche la valeur tant que les cellules ne sont pas vides
    Me.LIDF.AddItem (Worksheets("Identifiants").Cells(i, 1).Value)
    i = i + 1
    Wend
    Module1.SortListBox Me.LIDF, 0, 1, 1
'*****************************************************************
[COLOR=red]i = 2
[/COLOR]With Worksheets("Produits")
    While Worksheets("Produits").Cells(i, 1).Value <> ""
    'Boucle dans le classeur sur feuille Produits 1ère colonne affiche la valeur tant que les cellules ne sont pas vides
    Me.LProduits.AddItem (Worksheets("Produits").Cells(i, 1).Value)
    i = i + 1
    Wend
    Module1.SortListBox Me.LProduits, 0, 1, 1
'*****************************************************************
[COLOR=red]i = 2
[/COLOR]With Worksheets("Mode")
    While Worksheets("Mode").Cells(i, 1).Value <> ""
    'Boucle dans le classeur sur feuille Produits 2ème colonne affiche la valeur tant que les cellules ne sont pas vides
    Me.LModeadmi.AddItem (Worksheets("Mode").Cells(i, 1).Value)
    i = i + 1
    Wend
    Module1.SortListBox Me.LModeadmi, 0, 1, 1
End With
End With
End With
Application.ScreenUpdating = True
End Sub

 

[Arpette]

Re : Problème avec 3 Listbox dans userform

Re,

essaye comme ça :

Private Sub UserForm_Initialize()
Application.ScreenUpdating = False
Dim i As Integer
i = 3
With Worksheets("Identifiants")
    While Worksheets("Identifiants").Cells(i, 1).Value <> ""
    'Boucle dans le classeur sur feuille identifiants 1ère colonne affiche la valeur tant que les cellules ne sont pas vides
    Me.LIDF.AddItem (Worksheets("Identifiants").Cells(i, 1).Value)
    i = i + 1
    Wend
    Module1.SortListBox Me.LIDF, 0, 1, 1
'*****************************************************************
[COLOR=red]i = 2
[/COLOR]With Worksheets("Produits")
    While Worksheets("Produits").Cells(i, 1).Value <> ""
    'Boucle dans le classeur sur feuille Produits 1ère colonne affiche la valeur tant que les cellules ne sont pas vides
    Me.LProduits.AddItem (Worksheets("Produits").Cells(i, 1).Value)
    i = i + 1
    Wend
    Module1.SortListBox Me.LProduits, 0, 1, 1
'*****************************************************************
[COLOR=red]i = 2
[/COLOR]With Worksheets("Mode")
    While Worksheets("Mode").Cells(i, 1).Value <> ""
    'Boucle dans le classeur sur feuille Produits 2ème colonne affiche la valeur tant que les cellules ne sont pas vides
    Me.LModeadmi.AddItem (Worksheets("Mode").Cells(i, 1).Value)
    i = i + 1
    Wend
    Module1.SortListBox Me.LModeadmi, 0, 1, 1
End With
End With
End With
Application.ScreenUpdating = True
End Sub

Re, merci tottiti, çà fonctionne très bien.
Bonne journée
@+