Problème avec 3 Listbox dans userform

Arpette · 31 Août 2010

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.

Code:

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 · 31 Août 2010

Re : Problème avec 3 Listbox dans userform

Bonjour Arpette,

c'est censé servir à quoi le :

Code:

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 :

Code:

With Worksheets("Identifiants")

et même chose plus bas avec la feuille Produits

Arpette · 31 Août 2010

Re : Problème avec 3 Listbox dans userform

tototiti2008 à dit:
Bonjour Arpette,

c'est censé servir à quoi le :

Code:

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 :

Code:

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 · 31 Août 2010

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 · 31 Août 2010

Re : Problème avec 3 Listbox dans userform

tototiti2008 à dit:
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 · 31 Août 2010

Re : Problème avec 3 Listbox dans userform

Re,

essaye comme ça :

Code:

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 · 31 Août 2010

Re : Problème avec 3 Listbox dans userform

tototiti2008 à dit:

Re,

essaye comme ça :

Code:

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
@+

Problème avec 3 Listbox dans userform

Arpette

XLDnaute Impliqué

tototiti2008

XLDnaute Barbatruc

Arpette

XLDnaute Impliqué

tototiti2008

XLDnaute Barbatruc

Arpette

XLDnaute Impliqué

tototiti2008

XLDnaute Barbatruc

Arpette

XLDnaute Impliqué

Discussions similaires

Problème avec 3 Listbox dans userform

Arpette

XLDnaute Impliqué

tototiti2008

XLDnaute Barbatruc

Arpette

XLDnaute Impliqué

tototiti2008

XLDnaute Barbatruc

Arpette

XLDnaute Impliqué

tototiti2008

XLDnaute Barbatruc

Arpette

XLDnaute Impliqué

Discussions similaires

Privacy & Transparency

Privacy & Transparency