Problème d'initialisation de userform

**cagouille65** · 06/01/2017, 10h04

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** · 06/01/2017, 10h11

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** · 06/01/2017, 10h15

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** · 06/01/2017, 10h21

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** · 06/01/2017, 10h26

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** · 06/01/2017, 10h27

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

**cagouille65** · 06/01/2017, 10h31

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....

**unparia** · 06/01/2017, 10h37

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....

ce n'est pas du tout une moquerie (hélas, dirais-je maintenant) !
qu'est selon toi ton objet d ?
Moi, je te laisse maintenant là (pas le courage ni maintenant la volonté de continuer dans de telles "conditions").

**cagouille65** · 06/01/2017, 10h42

OK. Merci tout de même pour ton "aide".

D pour moi correspond à un tableau.

Je cherche mon erreur mais je ne la trouve pas.....

**unparia** · 06/01/2017, 10h43

D pour moi correspond à un tableau.

Ah ?

Code :

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

Set d = CreateObject("Scripting.Dictionary")

Tu comprendras maintenant (peut-être) pourquoi je te laisse là...

**joe.levrai** · 06/01/2017, 10h44

Bonjour,

un tableau vba issu d'une plage excel est TOUJOURS à 2 dimensions

voilà pour te donner la première piste

EDIT : allez, je suis sympa. Intéresse toi à ta ligne 8
fait un mode pas à pas, et tu verras que c'est cette ligne qui part en erreur

**cagouille65** · 06/01/2017, 11h04

Je comprends le principe de l'erreur mais je n'arrive pas à la résoudre... surtout que cela fonctionne dans un autre USERFORM pour d'autres données.....

Voici le code qui fonctionne dans un autre 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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
 
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 = 17 To 25
     If a(i, n) = "" Then
       cd = True: Exit For
     End If
   Next n
   If a(i, 16) = "" Or (a(i, 16) <> "Manque ancienneté" And cd) 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 3
       .List(0, i) = Tbl(0)(i)
     Next i
   End With
End If
End Sub

**bboy-eazy** · 06/01/2017, 14h35

Bonjour,

Une erreur 9 peut être tout et n'importe quoi.

il faut que tu fasses le mode pas à pas pour connaitre la ligne exacte provoquant l'erreur

**cagouille65** · 06/01/2017, 14h40

Bonjour,

joe.levrai m'indique que c'est la ligne 8 qui pose problème, hors j'ai beau chercher je ne trouve pas....

**bboy-eazy** · 06/01/2017, 14h50

et pour comprendre le pourquoi, il faut que tu fasses le mode pas à pas
comprends tu le code que tu as posté?

maintenant fait une sub test

Code :

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

1
2
3
sub test
userform1.show 'userform1 ou celui qui provoque l'erreur
end sub

lance ta sub en mode pas à pas via la touche F8
et dis nous ensuite quand est ce que ca "bug" avec les variables retournées

**cagouille65** · 06/01/2017, 15h09

Alors j'ai exécuté un sub test

résultat :

cela sélectionne la ligne
- Donnees_pers_manquante.show

et j'ai une fenêtre qui s'ouvre " l'indice ne fait pas parti de la sélection"
Erreur d'exécution : '9'

**joe.levrai** · 06/01/2017, 17h02

Bonjour,

il ne faut pas mettre le point d'arrêt sur la ligne qui appelle le Userform
il faut le mettre sur la première ligne de code de la procédure Initialize du Userform

car quand un bug survient dans cette procédure évènementielle, le pointeur d'arrêt présentera la ligne d'appel du userform (Userform1.Show) et ne permet pas de savoir où ça a coincé.

J'ai parlé de la ligne 8 car tu manipules les bornes d'un tableau multidimensionnel, sans préciser la dimension utilisée
Certes, dans certains cas ça passe (peut-être qu'ici ça passe) .... mais ça peut générer des problématiques ultérieures dans la procédure

Je n'ai rien testé, j'ai juste lu ta procédure

**cagouille65** · 06/01/2017, 17h29

J'ai bien mis le point d'arrêt sur la première ligne....
Mais il n'y accède pas quand le lance la procédure SUB
Voici le message :

Nom : erreur.png
Affichages : 444
Taille : 142,5 Ko

Nom : erreur.png
Affichages : 444
Taille : 142,5 Ko

**joe.levrai** · 06/01/2017, 17h42

Après avoir scrupuleusement vérifié que chaque nom d'objet (contrôles, userform etc...) n'ont aucune coquille quand tu les manipules (faute de frappe, changement d'un nom qui n'aurait pas été répercuté dans ton code), afin d'écarter un problème d'appel d'un objet qui n'existe pas (ou plus) ....

peux-tu copier AU PROPRE ta procédure initialize ?
car moi je vois pas le "l" du contrôle lst_xxx_xxxx dans les premiers échanges

et au passage, la procédure complète dans laquelle tu fais un .Show sur le userform

**cagouille65** · 06/01/2017, 17h45

Pour le "L" J'ai corrigé l'erreur. Il a été effacé lors de l'incrémentation

Pour l'appel du USERFORM

Code :

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

1
2
3
4
 
Private Sub CommandButton4_Click()
   Donnees_pers_manquante.Show
End Sub

Pour l'initialisation du 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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
 
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, 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

Problème d'initialisation de userform

Macros et VBA Excel

Discussions similaires

Partager

Partager