Ca marche pas.......bouhhhh
Je ne comprends pas..... cela me dit que l'indice ne fait pas parti de la sélection.......
Private Sub UserForm_Initialize()
lst_nom_vpc.ColumnCount = 4
lst_nom_vpc.ColumnWidths = "0;50;80;50"
Dim d As Object, a, Tbl, i%, n%, cd As Boolean
Set d = CreateObject("Scripting.Dictionary")
With Worksheets("Données")
a = .Range("A2:Y" & .[D65000].End(xlUp).Row).Value
End With
For i = LBound(a) To UBound(a)
For n = 1 To 16
If a(i, n) = "" Then
cd = True: Exit For
End If
Next n
If a(i, 2) = "" Or a(i, 3) = "" Or a(i, 4) = "" Or a(i, 5) = ""Or a(i, 6) = ""Or a(i, 7) = ""Or a(i, 8) = "" Or a(i, 9) = "" Or a(i, 10) = "" Or a(i, 11) = "" Or a(i, 12) = "" Or a(i, 13) = "" Or a(i, 14) = "" Or a(i, 15) = ""Then d(i) = Array(a(i, 1), a(i, 4), a(i, 5), a(i, 6))
cd = False
Next i
n = d.Count
If n > 1 Then
Tbl = WorksheetFunction.Transpose(d.items)
Me.lst_nom_vpc.List = WorksheetFunction.Transpose(Tbl)
ElseIf n = 1 Then
Tbl = d.items
With Me.lst_nom_vpc
.AddItem Tbl(0)(0)
For i = 1 To 16
.List(0, i) = Tbl(0)(i)
Next i
End With
End If
End SubBonjour,
Aucune réponse depuis hier ... il doit donc y avoir quelque chose de pas clair dans ta demande!
On ne sait pas, par exemple à quel moment, dans l'exécution du code, le message apparaît? Tu as déjà essayé d'exécuter en mode "pas-à-pas"?
Il y a plusieurs instructions, dans ta procédure, qui pourraient générer cette erreur. Sans fichier sur lequel s'appuyer, les hypothèses sont nombreuses et les causes possibles tout autant.
Si le fichier contient des données confidentielles, supprime-les ou remplace-les par des données "bidon" et dépose ton classeur, avec quelques données en exemple, ton UserForm et le bout de code concerné.
Prends la peine également d'expliquer ce que tu cherches à faire: dans ta boucle For n = 1 To 16, tu vérifies si, pour une ligne donnée, une des colonnes est vide; si oui, tu sors de cette boucle et tu vérifies ... si une des colonnes est vide (si j'ai bien compris!?)
Bonjour
Serait il possible d'avoir un fichier avec quelques exemples et ton code vba dedans stp
Cela serait plus simple.
Cdt,