Discussion :

[Pierre67]

Bonjour

j'ai un userform qui avec le code suiavnt me permet d'ouvrir un ou plusieurs autres userform

mais j'obtiens une erreur 9 l'indice n'appartient pas à la selection lorsque je clique sur le btnchau qui m'ouvre un autre userform

je ne trouve pas l'erreur

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
Sub userform_initialize()
End Sub
Sub BTANNUL_Click()
     MENU.Show
End Sub
Sub btnchau_Click()
Unload Me
     Load IMPRESSCHAU
     IMPRESSCHAU.Show
End Sub
Sub btndep_Click()
     Unload MENU
     Load IMPRESSDEP
     IMPRESSDEP.Show
 
End Sub
Sub btnsig_Click()
     Unload MENU
     Load IMPRESSSIG
     IMPRESSSIG.Show
End Sub

cordialement

[Marc-L]

Bonjour.

Le Unload Me n'est pas à sa place !

En lisant l'aide de Unload …

[Pierre67]

j'ai mis le unload me en fin de proc cela ne change rien

[Marc-L]

Cela manque de précisions …

[Pierre67]

voivi le code qui me lance l'userform n° 2 à partir de l'usf n°1

Code :

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

1
2
3
4
5
Sub btprint_Click()
    Load IMPRESSION
    IMPRESSION.Show
    Unload MENU
End Sub

et le code lié à l'usf n°2 qui permet d'autres choix

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 userform_initialize()
End Sub
Sub BTANNUL_Click()
     MENU.Show
End Sub
Sub btnchau_Click()
     Load IMPRESSCHAU
     IMPRESSCHAU.Show
     Unload IMPRESSION
End Sub
Sub btndep_Click()
     Load IMPRESSDEP
     IMPRESSDEP.Show
      Unload MENU
 
End Sub
Sub btnsig_Click()
     Load IMPRESSSIG
     IMPRESSSIG.Show
          Unload MENU
 
End Sub

[Marc-L]

En indentant le code et en "l'aérant" entre les procédures ainsi d'uiliser l'icône de la balise code, cela faciliterait la lecture !

Et cela ne me dit toujours pas quelle ligne déclenche l'erreur.

Ce code d'erreur correspond à un argument appelé inexistant …