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 :
Par contre, après enregistrement et fermeture du fichier, lorsque j'ouvre de nouveau, j'ai les messages d'erreur suivant :
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
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
Partager