Problème ouverture Userform

[nextrevolution]

Bonjour à tous,

L'ouverture de ma UserForm fonctionné très bien, je l'ouvrai à partir d'un commandbutton dans ma UserForm2.
Mais maintenant impossible à l'ouvrir, erreur 9, l'indice n'apaprtient pas à la sélection.

Private Sub CommandButton1_Click()
Unload Me
[COLOR="Red"]UserForm1.Show[/COLOR]
End Sub

J'ai changé le nom, enlever les dernière modification, rien à faire je sais pas d'où ça viens. Par contre mon lien vers l'UserForm3 fonctionne trés bien.

Private Sub CommandButton2_Click()
Unload Me
UserForm3.Show
End Sub

Est ce que quelqu'un a une idée pour résoudre mon problème?
Merci d'avance

 

[Dull]

Re : Problème ouverture Userform

Salut nextrevolution, le Forum

J'ai changé le nom...

de Quoi? de ton USF? alors remplace:

Private Sub CommandButton2_Click()
Unload Me
UserForm3.Show
End Sub

Par

Private Sub CommandButton2_Click()
Unload Me
[COLOR=Green][B]NomDeTonUserForm[/B][/COLOR].Show
End Sub

Si c'est pas ça joint ton fichier allégé pour voir de quoi il retourne 😉

EDITION: Aïeeeee....désolépourlacollision Gilbert🙂, Doc Banner🙂, Eric 🙂

Bonne Journée

 

[gilbert_RGI]

Re : Problème ouverture Userform

Bonjour

Userform1 est-il bien le nom de l'userform appelé???

erreur 9, l'indice n'apaprtient pas à la sélection.

Cdlt

Gilbert_RGI

 

[Hulk]

Re : Problème ouverture Userform

Hello,

Sans fichier joint, difficile de dire d'où provient le problème.

Dépose un fichier exemple dans les pièces jointes, ou bien tu peux utiliser Cijoint.fr - Service gratuit de dépôt de fichiers si ton fichier est plus lourd que 50 Ko.

Cdt, Hulk.

 

[RENAUDER]

Re : Problème ouverture Userform

Bonjour,
Je viens de faire un test et ce code ci-dessous fonctionne
Tu as 2 formulaires Userform1 et Userform2 ?

Private Sub CommandButton1_Click()
    ' Code Userform1
    Unload Me
    UserForm2.Show
End Sub

Private Sub CommandButton1_Click()
    ' Code Userform2
    Unload Me
    UserForm1.Show
End Sub

 

[nextrevolution]

Re : Problème ouverture Userform

Bonjour,
Désolé je me suis mal exprimé.

Enfaite j'ai 3 UserForm (UserForm1, UserForm2 et UserForm3)

De ma UserForm2 je peux soit allé vers UserForm1 ou UserForm3 (avec les 2 codes précédent.

Le lien vers UserForm3 marche mais UserForm1 marche plus.
J'ai essayé de changer le nom de UserForm1 et remplacé son nom dans la macro, mais sa change rien.
Au début elle fonctionnait très bien. J'ai du ajouter quelque chose qui la fait bogué, je sais pas.

Je vous envoie le fichier.
Cijoint.fr - Service gratuit de dépôt de fichiers

 

[gilbert_RGI]

Re : Problème ouverture Userform

Bonjour,
Désolé je me suis mal exprimé.

Enfaite j'ai 3 UserForm (UserForm1, UserForm2 et UserForm3)

De ma UserForm2 je peux soit allé vers UserForm1 ou UserForm3 (avec les 2 codes précédent.

Le lien vers UserForm3 marche mais UserForm1 marche plus.
J'ai essayé de changer le nom de UserForm1 et remplacé son nom dans la macro, mais sa change rien.
Au début elle fonctionnait très bien. J'ai du ajouter quelque chose qui la fait bogué, je sais pas.

Je vous envoie le fichier.
Cijoint.fr - Service gratuit de dépôt de fichiers

Bonjour,

l'erreur est ICI en rouge dans le Private Sub UserForm_Initialize()

  With Sheets("Synthèse")
    If .Range("p22") = "" Then
UserForm1.Label7.Caption = Sheets("Bilan Audit Unité[COLOR="Red"]s[/COLOR]").Range("b4").Value
      Else
UserForm1.Label7.Caption = Sheets("Bilan Audit Unité").Range("c7").Value
    End If
  End With

salutations

Gilbert_RGI

 

[nextrevolution]

Re : Problème ouverture Userform

Merci beaucoup.

J'en étais sûr que c'était une erreur bête mais j'aurais encore cherché des heures. Encore merci

 

[gilbert_RGI]

Re : Problème ouverture Userform

Merci beaucoup.

J'en étais sûr que c'était une erreur bête mais j'aurais encore cherché des heures. Encore merci

pour trouver en mode débogage avancer pas à pas avec la touche F8

Cdlt

Gilbert_RGI