Discussion :

[cagouille65]

Bonjour à tous et meilleurs vœux

J'ai un petit soucis.... Je suis débutant et je demande de l'aide....

J'ai un userform avec ce code pour l'initialiser mais il me mets un message d'erreur comme quoi l'indice ne fait pas parti de la sélection....

Merci à tous pour vos réponses.

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
 
st_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, 15) = "" 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 Sub

[unparia]

Bonjour
Je te suggère de bien vouloir modifier on titre (qui ne résume pas la difficulté) et d'indenter ton code. Je le regarderai alors.
EDIT : tu crois que la modification que tu as faite du titre résume maintenant la difficulté rencontrée ?
Et tu crois avoir indenté ton code ?

[cagouille65]

Titre modifié... par contre je ne maîtrise pas l'indentation du code car cela me mets pleins de message d'erreur à chaque fois que j'essaie....

[unparia]

Le revoilà, ton code, indenté :

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
  st_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, 15) = "" 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 Sub

Il est maintenant lisible
on aurait bien aimé pouvoir voir à quel Sub correspond ce End Sub

[cagouille65]

Merci pour l'indentation. Effectivement cela fonctionne je viens de le tester dans mon code....

Ce end sub appartient à la commande : Private sub Userform_Initialize()

[unparia]

Déjà et pour commencer : à quel moment (quelle ligne de ton code) penses-tu, déjà, avoir abondé ton dictionnaire d ?

[cagouille65]

J'ai pas tout compris, mais je vais essayer de répondre...

Lorsque je lance l'exécution de mon USERFORM pour vérifier que tout fonctionne, j'ai de suite un msg d'erreur qui m'indique que l'indice ne fais pas parti de la sélection et ne me surligne aucune ligne en particulier.

Par contre je n'ai pas compris ton histoire de dictionnaire. Si c'est une moquerie, elle doit être trop élevée pour mon niveau intellectuel....