Activation de userforms par combobox

[azerty67]

🙂Bonsoir,

Ayant parcouru le forum à la recherche d'une soluce je me remet à vous pour m'aider un peu.

Voilà, je dispose d'un userform sur lequel par l'intermediaire de différents boutons de commande j'active d'autres userforms

Je ne trouve pas ça très élégant (trop de boutons🙂.
Donc je voudrais remplacer ces boutons par une combobox dans laquelle je pourrais choisir quel userform à activer mais je ne sais comment faire😕

Merci pour votre aide
Jm

 

[Excel_lent]

Re : Activation de userforms par combobox

Bonsoir Azerty et à tous les lecteurs.

Vois si cela t'inspire.

 

[azerty67]

Re : Activation de userforms par combobox

Bonsoir Azerty et à tous les lecteurs.

Vois si cela t'inspire.

😉Ca marche super merci

Une autre question, j'ai crée un userform d'impression avec choix imprimantes.
Le prob c'est quand je veux annuler par la fenêtre "choix imprimante", l'impression se lance quand même ??

code:

Private Sub TextBox1_Change()

End Sub

Private Sub CommandButton1_Click()
Me.Hide
End Sub

Private Sub Imprimer_Click()

End Sub

Private Sub Label1_Click()

End Sub

Private Sub Label2_Click()

End Sub

Private Sub CheckBox1_Click()
Sheets("Natzwiller").Select
End Sub

Private Sub CheckBox2_Click()
Sheets("Espagne").Select
End Sub

Private Sub CheckBox3_Click()
Sheets("Suisse").Select
End Sub

Private Sub CheckBox4_Click()
Sheets("Paris").Select
End Sub

Private Sub CheckBox5_Click()
Sheets("Allemagne").Select
End Sub

Private Sub CheckBox6_Click()
Sheets("Personnel entreprise").Select
End Sub

Private Sub CheckBox7_Click()
Me.PrintOut
End Sub

Private Sub Imprimer1_Click()

Dim DefaultPrinter As String, ChoixPrinter As String
'
DefaultPrinter = Application.ActivePrinter
'
''Affiche une fenêtre de choix d'imprimante
Application.Dialogs(xlDialogPrinterSetup).Show
'
''Imprime la feuille active
''ActiveSheet.printout
'
''remet l'imprimante par défaut
'Application.ActivePrinter = DefaultPrinter


On Error Resume Next
Application.ScreenUpdating = False
Dim i As Integer
Unload Me
For i = 1 To 6
If Controls("CheckBox" & i) = True Then Sheets(Controls("Label" & i).Caption).PrintOut
'PrintOut
Next
End Sub


Private Sub UserForm_Click()

End Sub

Merci encore😉

 

[azerty67]

Re : Activation de userforms par combobox

😉Ca marche super merci

Une autre question, j'ai crée un userform d'impression avec choix imprimantes.
Le prob c'est quand je veux annuler par la fenêtre "choix imprimante", l'impression se lance quand même ??

code:

Private Sub TextBox1_Change()

End Sub

Private Sub CommandButton1_Click()
Me.Hide
End Sub

Private Sub Imprimer_Click()

End Sub

Private Sub Label1_Click()

End Sub

Private Sub Label2_Click()

End Sub

Private Sub CheckBox1_Click()
Sheets("Natzwiller").Select
End Sub

Private Sub CheckBox2_Click()
Sheets("Espagne").Select
End Sub

Private Sub CheckBox3_Click()
Sheets("Suisse").Select
End Sub

Private Sub CheckBox4_Click()
Sheets("Paris").Select
End Sub

Private Sub CheckBox5_Click()
Sheets("Allemagne").Select
End Sub

Private Sub CheckBox6_Click()
Sheets("Personnel entreprise").Select
End Sub

Private Sub CheckBox7_Click()
Me.PrintOut
End Sub

Private Sub Imprimer1_Click()

Dim DefaultPrinter As String, ChoixPrinter As String
'
DefaultPrinter = Application.ActivePrinter
'
''Affiche une fenêtre de choix d'imprimante
Application.Dialogs(xlDialogPrinterSetup).Show
'
''Imprime la feuille active
''ActiveSheet.printout
'
''remet l'imprimante par défaut
'Application.ActivePrinter = DefaultPrinter


On Error Resume Next
Application.ScreenUpdating = False
Dim i As Integer
Unload Me
For i = 1 To 6
If Controls("CheckBox" & i) = True Then Sheets(Controls("Label" & i).Caption).PrintOut
'PrintOut
Next
End Sub


Private Sub UserForm_Click()

End Sub

Merci encore😉

🙂Quelqu'un pour m'aiguiller ? Merci

 

[MJ13]

Re : Activation de userforms par combobox

Bonjour,

Le mieux serait de voir ton fichier. Ainsi cela fonctionnera dans les 2 sens.

 

[azerty67]

Re : Activation de userforms par combobox

Bonjour,

Le mieux serait de voir ton fichier. Ainsi cela fonctionnera dans les 2 sens.

🙂Bonsoir et merci pour ta réponse.
Le problème est que mon fichier pèse pour l'instant environ 600Ko 😕

J'essaie de réduire ....

 

[MJ13]

Re : Activation de userforms par combobox

Re bonjour

Normalement, tu dois pouvoir extraire la partie qui te pose le problème, et avoir juste quelques données. Ensuite tu peux zipper ton fichier.
Reagardes le jeu Trouvez les couleurs, il y a pas mal de choses dedans et pourtant il peut être joint.

 

[azerty67]

Re : Activation de userforms par combobox

Re bonjour

Normalement, tu dois pouvoir extraire la partie qui te pose le problème, et avoir juste quelques données. Ensuite tu peux zipper ton fichier.
Reagardes le jeu Trouvez les couleurs, il y a pas mal de choses dedans et pourtant il peut être joint.

🙂 Voilà j'ai oté pas mal de choses merci encore

 

[azerty67]

Re : Activation de userforms par combobox

🙂 Voilà j'ai oté pas mal de choses merci encore

Une idée ? Merci

 

[Excel_lent]

Re : Activation de userforms par combobox

Bonsoir Azerty, MJ13 et à tout un chacun.

Essaie de ne garder, dans l'USF "imprimer", que :

Dim i As Byte
Dim fait As Boolean, rep As Boolean
Private Sub Imprimer1_Click()
    Application.ScreenUpdating = False
    If fait = False Then
      fait = True  'un seul affichage
      rep = Application.Dialogs(xlDialogPrinterSetup).Show
      If rep = 0 Then Exit Sub
    End If
    For i = 1 To 6
      If Controls("CheckBox" & i) = True Then Sheets(Controls("Label" & i).Caption).PrintOut
    Next
  Application.ScreenUpdating = True
Unload Me
End Sub

 

[azerty67]

Re : Activation de userforms par combobox

Bonsoir Azerty, MJ13 et à tout un chacun.

Essaie de ne garder, dans l'USF "imprimer", que :

Dim i As Byte
Dim fait As Boolean, rep As Boolean
Private Sub Imprimer1_Click()
    Application.ScreenUpdating = False
    If fait = False Then
      fait = True  'un seul affichage
      rep = Application.Dialogs(xlDialogPrinterSetup).Show
      If rep = 0 Then Exit Sub
    End If
    For i = 1 To 6
      If Controls("CheckBox" & i) = True Then Sheets(Controls("Label" & i).Caption).PrintOut
    Next
  Application.ScreenUpdating = True
Unload Me
End Sub

🙂Bonsoir,

Merci pour ton codemarche très bien 😉

J'aurais une autre question sur les listbox car je voudrais creer des états pour visualiser certaines données
Je laisse passer le week end bon we

 

[azerty67]

Re : Activation de userforms par combobox

🙂Bonsoir,

Merci pour ton codemarche très bien 😉

J'aurais une autre question sur les listbox car je voudrais creer des états pour visualiser certaines données
Je laisse passer le week end bon we

🙂Bonsoir à tous,

Je voudrais, à l'aide d'un userform, pouvoir remplir des coûts menseuels dans une feuille nommée "DatamoisPAR", je cale 🙁

Merci encore à tous,

 

[azerty67]

Re : Activation de userforms par combobox

🙂Bonsoir à tous,

Je voudrais, à l'aide d'un userform, pouvoir remplir des coûts menseuels dans une feuille nommée "DatamoisPAR", je cale 🙁

Merci encore à tous,

J'ai avancé dans le code, mais quand j'ajoute les coûts dans les cases mensuelles de l'année, ils s'ajoutent dans la feuille "RechPAR" mais sur une ligne différente.

Je souhaiterais lorque je sélectionne un numéro de commande par la combo, que la valeur que je tape dans les cases "mois" s'intègre dans la ligne correspondante à la commande. Une sorte de modification en somme.

Dans mon cas elle s'ajoute sur une autre ligne🙁

Je continue à chercher mais le code me pose problème

Merci à tous

 

[Excel_lent]

Re : Activation de userforms par combobox

Bonsoir JM et à tous.

Pas sûr d'avoir bien compris. Ici l'USF ne prévoit qu'une modification pas une création.

 

[azerty67]

Re : Activation de userforms par combobox

;

Bonsoir JM et à tous.

Pas sûr d'avoir bien compris. Ici l'USF ne prévoit qu'une modification pas une création.

😉 Merci à toi ! C'est exactement ce que je voulais.
Je vais travailler sur ton code pour bien en comprendre les modifications.

Merci à tous