Impression plusieurs Userform depuis une feuille Excel

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:

---

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 :)

Ton userform doit être chargé:

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

Code:

---

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:

---

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

---

Citation:

---

Envoyé par 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:

---

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 !

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 :cry:

Effectivement tu as raison...

Code:

---

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

---

Code:

---

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

---

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

La mienne marche parfaitement.

Bonjour
je rejoint l'avis de rdurupt un objet c'est

Code:

---

1 2 3 4

dim machin as object set machin="userform1" ou 'set machin=sheets("truc").range("chose").value

---

Au plaisir

Merci pour vos réponses...Enfin ça marche !:mrgreen:

Code:

---

1 2 3 4 5 6 7

Sub Impression_Userform() Dim q As String q = Sheets("Feuil1").Range("I2").Value VBA.UserForms.Add(q).PrintForm End   End Sub

---

En fait le code a fonctionné après avoir supprimé cette ligne :

Code:

---

VBA.UserForms.Add(q).Show Modal

---

Avez vous une idée comment afficher le caption dans cette impression ?
Merci d'avance