Discussion :

[heavenly]

Bonjour à tous,

Je demande de l'aide car après avoir chercher je ne trouve vraiment pas.
En faite, j'ai un grand tableau, et j'ai plusieurs userform afin de pouvoir le remplir(il est rempli ligne par ligne).
Tout mes userforms se font à la suite.
j'ai fait une procédure afin d'aller chercher dans un autre classeur des données que je colle ensuite dans mon tableau principal.
Tout cela fonctionne très bien sauf que quand un userform doit s'ouvrir un message d'erreur s'ouvre "erreur d'éxécution 9:l'indice n'appartient pas à la séléction"

Code :

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

1
2
3
4
5
6
7
8
Private Sub SusN_Click()
 
If SusN.Value = True Then
    NouvoPdt.Show
End If
 
Unload Me
End Sub

[ouskel'n'or]

Bonjour à tous,

Code :

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

1
2
3
4
5
6
7
8
Private Sub SusN_Click()
 
If SusN.Value = True Then
    NouvoPdt.Show
End If
 
Unload Me
End Sub

Pour appeler un userform, tu ne dois le fermer tout de suite

Code :

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

1
2
3
4
5
6
Private Sub SusN_Click()
    If SusN.Value = True Then
        Load NouvoPdt
        NouvoPdt.Show
    End If
End Sub

et dans Userform_Initialize de NouvoPdt, tu mets

Code :

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

Unload LeClasseurquetuveuxfermer' et non me.

Si tu mets Unload.me, tu fermes le classeur actif
A+

[heavenly]

Merci de m'aider

Je viens de faire ce que tu m'as dit mais ça ne marche pas.
Il me met l'erreur sur NouvoPdt.show

[ouskel'n'or]

NouvoPdt, c'est quoi ? ce n'est pas le nom de l'userform que tu quittes au moins ? Vérifie le nom de l'userform et s'il existe bien.
A+

Pour le nommer, copie son nom dans ses propriétés

[heavenly]

En faite quand je veux lire un user form, n'importe lequel, il me met l'erreur sur les lignes où il y a "show"
J'ai fait comme tu m'a dit mes les erreurs sont toujours là.

[ouskel'n'or]

Si le premier userform ne s'ouvre pas... me vient une question : où mets-tu ton code pour l'ouvrir ?

[mordrhim]

bonjour

essaye voir ça

Code :

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

1
2
3
4
5
6
Private Sub SusN_Click()
     If SusN.Value = True Then
        NouvoPdt.Show
        TonUserformActuel.hide
    End If
End Sub

après, à mon avis, il te faudra mettre à zéro les champs des userforms à l'activation.

[ouskel'n'or]

Attention : TonUserformActuel.hide masque l'userform sans le décharger
Si le code que je lui ai passé ne fonctionne pas, m'étonnerait qu'avec Hide, ça fonctionne mieux.
Pour ouvrir le premier userform, le code doit se trouver dans une macro placée dans un module... Et j'ai bien peur que tout vienne de là.

[heavenly]

J'ai trouvé l'erreur qui faisait tous cafouiller!!
Enfaite je mettais tromper dans l'orthographe d'une feuille donc du coup il voulait pas ouvrir les userforms suivant.

merci pour votre aide

[ouskel'n'or]

Andouille !