Discussion :

[GafsiTN]

Bonsoir à vous tous,
J'ai mis en place un diagramme avec plusieurs userform, en cliquant sur un rectangle, l'userform apparaît.
J'ai voulu également imprimer l'userform à partir d'une liste déroulante qui est placée dans la page accueil. Donc j'ai listé les noms des userforms pour qu'ils puissent apparaitre dans la liste déroulante.

J'ai mis ce code dans un module, mais j'ai eu l'erreur : erreur d’exécution 91 Variable Objet ou variable de bloc With no définie.

Code :

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

1
2
3
4
5
6
7
8
Sub Impression_Userform()
Dim q As String
Dim frm As Object
q = Sheets("Feuil1").Range("H2").Value
frm = q
frm.PrintForm
Unload frm
End Sub

J'ai voulu également afficher le caption de ce userform en haut de la page.

Merci d'avance de votre aide

[EngueEngue]

Ton userform doit être chargé:

Donc solution... soit tu mets un bouton dans chaque USF pour les print

Code :

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

1
2
3
Private Sub CommandButton1_Click()
    Me.PrintForm
End Sub

Soit tu fais un sub qui va te le charger te le print et te l'unload avec un screenupdating = false

Sans aucune garantie...

Code :

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

1
2
3
4
5
6
7
8
Sub Impression_Userform()
application.screenupdating=false
q = Sheets("Feuil1").Range("H2").Value
q.show
Me.PrintForm
Unload Me
application.screenupdating=true
End Sub

[Invité]

Bonsoir à vous tous,
J'ai mis en place un diagramme avec plusieurs userform, en cliquant sur un rectangle, l'userform apparaît.
J'ai voulu également imprimer l'userform à partir d'une liste déroulante qui est placée dans la page accueil. Donc j'ai listé les noms des userforms pour qu'ils puissent apparaitre dans la liste déroulante.

J'ai mis ce code dans un module, mais j'ai eu l'erreur : erreur d’exécution 91 Variable Objet ou variable de bloc With no définie.

Code :

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

1
2
3
4
5
6
7
8
Sub Impression_Userform()
Dim q As String
Dim frm As Object
q = Sheets("Feuil1").Range("H2").Value
frm = q
frm.PrintForm
Unload frm
End Sub

J'ai voulu également afficher le caption de ce userform en haut de la page.

Merci d'avance de votre aide

tu déclares : Dim frm As Object
ce n'est pas un UserForm! mais ça pourait : set frm=UserForm1
tu fais : q = Sheets("Feuil1").Range("H2").Value
Un string pas de problème.
tu fais : frm = q
pas de problème si frm n'est pas un UserForm.
tu fais frm.PrintForm
comme si c'était une Userform hors c'est un objet auquel tu affecte un string donc c'est un string . vb et mois on ne comprend pas !

[GafsiTN]

Merci de vos réponses....mais malheureusement ça ne marche pas.

Je pense que le problème est au niveau de la déclaration des variables.

frm est objet et q est string, vba n'a pas pu convertir le string en objet

Help please

[EngueEngue]

Effectivement tu as raison...

Code :

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

1
2
3
4
5
6
7
8
Sub Impression_Userform()
Dim q As String
q = Sheets("Feuil1").Range("H2").Value
    VBA.UserForms.Add(q).Show Modal
    VBA.UserForms.Add(q).PrintForm
   End
 
End Sub

[Invité]

Code :

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

1
2
3
4
5
Private Sub Impression_Userform_Click() 'Bouton
Me.Label1.Caption = Sheets("Feuil1").Range("H2").Value
Me.PrintForm
Unload Me
End Sub

[GafsiTN]

Merci de vos réponses, ça ne marche toujours pas.
Cette fois le message est erreur d'exécution 424 !

[EngueEngue]

La mienne marche parfaitement.