Activation de userforms par combobox

azerty67 · 27 Février 2008

🙂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 · 27 Février 2008

Re : Activation de userforms par combobox

Bonsoir Azerty et à tous les lecteurs.

Vois si cela t'inspire.

azerty67 · 28 Février 2008

Re : Activation de userforms par combobox

Excel_lent à dit:
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 · 28 Février 2008

Re : Activation de userforms par combobox

azerty67 à dit:
😉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 · 28 Février 2008

Re : Activation de userforms par combobox

Bonjour,

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

azerty67 · 28 Février 2008

Re : Activation de userforms par combobox

MJ13 à dit:
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 · 28 Février 2008

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 · 28 Février 2008

Re : Activation de userforms par combobox

MJ13 à dit:
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 · 28 Février 2008

Re : Activation de userforms par combobox

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

Une idée ? Merci

Excel_lent · 28 Février 2008

Re : Activation de userforms par combobox

Bonsoir Azerty, MJ13 et à tout un chacun.

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

Code:

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 · 1 Mars 2008

Re : Activation de userforms par combobox

Excel_lent à dit:

Bonsoir Azerty, MJ13 et à tout un chacun.

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

Code:

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 · 2 Mars 2008

Re : Activation de userforms par combobox

azerty67 à dit:
🙂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 · 2 Mars 2008

Re : Activation de userforms par combobox

azerty67 à dit:
🙂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 · 2 Mars 2008

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 · 2 Mars 2008

Re : Activation de userforms par combobox

;

Excel_lent à dit:
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

Activation de userforms par combobox

azerty67

XLDnaute Occasionnel

Excel_lent

XLDnaute Impliqué

Pièces jointes

azerty67

XLDnaute Occasionnel

azerty67

XLDnaute Occasionnel

MJ13

XLDnaute Barbatruc

azerty67

XLDnaute Occasionnel

MJ13

XLDnaute Barbatruc

azerty67

XLDnaute Occasionnel

Pièces jointes

azerty67

XLDnaute Occasionnel

Excel_lent

XLDnaute Impliqué

azerty67

XLDnaute Occasionnel

azerty67

XLDnaute Occasionnel

Pièces jointes

azerty67

XLDnaute Occasionnel

Pièces jointes

Excel_lent

XLDnaute Impliqué

Pièces jointes

azerty67

XLDnaute Occasionnel

Discussions similaires

Activation de userforms par combobox

XLDnaute Occasionnel

XLDnaute Impliqué

Pièces jointes

XLDnaute Occasionnel

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Occasionnel

Pièces jointes

XLDnaute Occasionnel

XLDnaute Impliqué

XLDnaute Occasionnel

XLDnaute Occasionnel

Pièces jointes

XLDnaute Occasionnel

Pièces jointes

XLDnaute Impliqué

Pièces jointes

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency