Discussion :

[lerico]

Bonjour,

J'utilise un programme qui me permet de créer des listes déroulantes en fonction d'un filtre, à partir d'un tableau contenu dans une feuille.
Cela marche parfaitement.

Ci-dessous le programme :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub CreerListe(NMAG As String)
 
LigneCourante2 = 2
TaillePark = Sheets("Feuil2").Cells(1, 1).CurrentRegion.Rows.Count + 1
i = 1
Txt = ""
While LigneCourante2 <> TaillePark
    If Sheets("Feuil2").Cells(LigneCourante2, 3) = NMAG Then
        Txt = Txt & "," & Sheets("Feuil2").Cells(LigneCourante2, 1).Value
        LigneCourante2 = LigneCourante2 + 1
        i = i + 1
    Else
        LigneCourante2 = LigneCourante2 + 1
    End If
Wend
 If Txt <> "" Then Txt = Right(Txt, Len(Txt) - 1)
End Sub

Par contre, après enregistrement et fermeture du fichier, lorsque j'ouvre de nouveau, j'ai les messages d'erreur suivant :



Cette erreur est due au dépassement du nombre de caractère dans la liste déroulante, qui est supérieur à 255 (Variable Txt).

J'ai besoin de votre aide pour contourner cette limite car de mon côté, je sèche.
Il y a peut être une autre façon de créer cette liste ?.

Merci pour vos réponse.

Eric

[Invité]

Cette erreur est due au dépassement du nombre de caractère dans la liste déroulante, qui est supérieur à 255 (Variable Txt).
Il y a peut être une autre façon de créer cette liste ?

Bonjour,

Une solution possible avec ce code qui utilise une matrice pour charger la liste déroulante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
 
Option Explicit
 
Public MatriceNmag() As Variant
Public NombreDeValeurs As Long
 
 
Sub CreerListe(ByVal NMAG As Variant)
 
Dim I As Long
Dim DerniereLigne As Long
Dim AireNmag As Range
Dim CelluleNmag As Range
 
    With Sheets("Feuil2")
         DerniereLigne = .Cells(.Rows.Count, 1).End(xlUp).Row
         Set AireNmag = .Range(.Cells(2, 1), .Cells(DerniereLigne, 1))
         NombreDeValeurs = WorksheetFunction.CountIf(AireNmag.Offset(0, 2), NMAG)
         If NombreDeValeurs > 0 Then
            ReDim MatriceNmag(NombreDeValeurs - 1)
            I = 0
            For Each CelluleNmag In AireNmag
                If CelluleNmag.Offset(0, 2) = NMAG Then
                   MatriceNmag(I) = CelluleNmag
                   I = I + 1
                End If
            Next CelluleNmag
         End If
         Set AireNmag = Nothing
    End With
 
End Sub

Et pour charger la combobox de votre userform :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Sub EssaiCreerListe()
 
Dim ValeurATrouver As Variant
 
    ValeurATrouver = 1
    CreerListe ValeurATrouver
 
    With UserForm1
         If NombreDeValeurs > 0 Then
            .ComboBox1.List = MatriceNmag
            .Show
         Else
            MsgBox "Aucune valeur trouvée pour " & ValeurATrouver & " !", vbCritical
         End If
    End With
 
End Sub

Cordialement.

[lerico]

Bonjour,

Je te remercie pour ta réponse.

J'ai effectué plusieurs tests à partir de ta solution mais cela ne correspond pas exactement à mon besoin.
Après réflexion, j'ai modifié ma méthode en ajoutant sur une feuille à part, les données de la liste de validation, pour ensuite créé un nom que j'associe à la liste.
Avec ce nouveau procédé, je n'ai plus de problème de contrainte de 255 caractères.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub CreerListe(NMAG As String)
'Suppresion de la liste
With Sheets("LISTE").Columns("A:A")
    .ClearContents
End With
'Création de la nouvelle liste
LigneCourante2 = 2
TaillePark = Sheets("Feuil").Cells(1, 1).CurrentRegion.Rows.Count + 1
i = 1
Txt = ""
While LigneCourante2 <> TaillePark
    If Sheets("Feuil").Cells(LigneCourante2, 3) = NMAG Then
        Sheets("LISTE").Cells(i, 1) = Sheets("Feuil").Cells(LigneCourante2, 1).Value
        LigneCourante2 = LigneCourante2 + 1
        i = i + 1
    Else
        LigneCourante2 = LigneCourante2 + 1
    End If
Wend
j = i - 1
ActiveWorkbook.Names.Add Name:="LISTE", RefersToR1C1:="=LISTE!R1C1:R" & j & "C1"
End Sub

Cordialement,

Eric