XL 2013 Userform pour générer un mode d'emploi

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

STARRAG

XLDnaute Nouveau
Bonjour à tous,

Je demande votre aide pour la réalisation d'un de mes projets.

Je veux via excel et VBA générer un mode d'emploi de montage en fonction d'un choix sur un Userform.
userform.JPG

J'ai créé cet userform.
Je veux que lorsque l'on sélectionne :
- le choix 1 (traverse fixe) et que l'on clique sur le bouton générer PDF, la macro doit générer un fichier pdf composé des onglets ONG0 + ONG1 + ONG2 + ONG3 + ONG4 + ONG5 + ONG6 + ONG10
- le choix 2 et que l'on clique sur le bouton générer PDF, la macro doit générer un fichier pdf composé des onglets ONG0 + ONG1 + ONG2 + ONG3 + ONG4 + ONG5 + ONG7 + ONG10
- le choix 3 et que l'on clique sur le bouton générer PDF, la macro doit générer un fichier pdf composé des onglets ONG0 + ONG1 + ONG2 + ONG3 + ONG4 + ONG5 + ONG8 + ONG10
- le choix 4 et que l'on clique sur le bouton générer PDF, la macro doit générer un fichier pdf composé des onglets ONG0 + ONG9 + ONG10

(Je voudrais aussi que lorsque je sélectionne un choix, une image apparaisse)

Le bouton modifier la procédure ferme l'userform.
Le bouton quitter ferme le fichier.

A savoir que mes compétences en VBA sont assez restreinte. Cependant, je souhaite faire quelque chose de fonctionnel et de propre.

J'espère que mes explications sont assez claires, sinon n'hésitez pas à me demander.

Merci d'avance de votre aide.
 

Pièces jointes

Solution
Salut,
A tester dans l'userform.
A noter: les optionsbuttons ont déjà une propriété caption pour décrire l'option,
pas besoin de label supplémentaire .
VB:
Private Sub CommandButton_generer_Click()
    Select Case True
        Case OptionButton1:        Filename = OptionButton1.Caption
        Case OptionButton2:        Filename = OptionButton2.Caption
        Case OptionButton3:        Filename = OptionButton3.Caption
        Case OptionButton4:        Filename = OptionButton4.Caption
        Case Else:                 Exit Sub
    End Select
    
    ActiveSheet.ExportAsFixedFormat _
        Type:=xlTypePDF, _
        Filename:=ThisWorkbook.Path & "\" & Filename & ".pdf", _
        OpenAfterPublish:=True

End Sub

Private Sub...
Salut,
A tester dans l'userform.
A noter: les optionsbuttons ont déjà une propriété caption pour décrire l'option,
pas besoin de label supplémentaire .
VB:
Private Sub CommandButton_generer_Click()
    Select Case True
        Case OptionButton1:        Filename = OptionButton1.Caption
        Case OptionButton2:        Filename = OptionButton2.Caption
        Case OptionButton3:        Filename = OptionButton3.Caption
        Case OptionButton4:        Filename = OptionButton4.Caption
        Case Else:                 Exit Sub
    End Select
    
    ActiveSheet.ExportAsFixedFormat _
        Type:=xlTypePDF, _
        Filename:=ThisWorkbook.Path & "\" & Filename & ".pdf", _
        OpenAfterPublish:=True

End Sub

Private Sub OptionButton1_Click()
    Image = "FFPJP3.gif"
    Image1.Picture = LoadPicture(Image_Path & "Petanque\" & Image)
    Sheets(Array("ONG0", "ONG1", "ONG2", "ONG3", "ONG4", "ONG5", "ONG6", "ONG10")).Select
End Sub
Private Sub OptionButton2_Click()
    Image = "FFPJP3.jpg"
    Image1.Picture = LoadPicture(Image_Path & "Petanque\" & Image)
    Sheets(Array("ONG0", "ONG1", "ONG2", "ONG3", "ONG4", "ONG5", "ONG7", "ONG10")).Select
End Sub
Private Sub OptionButton3_Click()
    Image = "FFPJP3.gif"
    Image1.Picture = LoadPicture(Image_Path & "Petanque\" & Image)
    Sheets(Array("ONG0", "ONG1", "ONG2", "ONG3", "ONG4", "ONG5", "ONG8", "ONG10")).Select
End Sub
Private Sub OptionButton4_Click()
    Image = "FFPJP3.jpg"
    Image1.Picture = LoadPicture(Image_Path & "Petanque\" & Image)
    Sheets(Array("ONG0", "ONG9", "ONG10")).Select
End Sub

Function Image_Path() As String
Dim objShell As Object
    Set objShell = CreateObject("Shell.Application")
        Image_Path = objShell.Namespace(&H27).self.Path & "\"
    Set objShell = Nothing
End Function
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
XL 2019 User Form
Réponses
9
Affichages
314
Réponses
4
Affichages
144
Réponses
26
Affichages
1 K
Réponses
2
Affichages
310
Retour