XL 2010 Envoyer par mail en fonction d'un UserForm arpés selection

jeromeN95 · 27 Janvier 2020

Bonjour
ci joint fichier pour comprendre.

Je souhaite finir ma procédure mais cela échoue :

1 onglet "Choix" avec un bouton intitulé "Protocole"
Lorsqu'on clique dessus, l'utilisateur à la choix de sélectionner de 1 à 5 Protocoles à choix multiple dans une liste déroulante défini et fixe de 3 protocoles.

Ces protocoles (d'utilisation pour client), sont des feuilles nommés et cachés.

Le code que j'ai fait exécute la procédure (Afficher l'onglet caché, créé un PDF de la feuille dans le même dossier que le classeur, envoie par mail, supprime le PDF crée et re-masque le ou les onglets).

Je n'arrive pas à comprendre comment dans le code rajouter les autres feuilles en fonction de la sélection.

Pourriez vous m'aider svp???

kingfadhel · 27 Janvier 2020

Bonsoir tout le monde,
Quant au remplissage des combobox voila un bout de code:

VB:

Private Sub UserForm_Initialize()
For i = 1 To Sheets.Count
If Sheets(i).Name <> "RèglesProto" And Sheets(i).Name <> "choix" Then
    ComboBox1.AddItem (Sheets(i).Name)
    ComboBox2.AddItem (Sheets(i).Name)
    ComboBox3.AddItem (Sheets(i).Name)
End If
Next
End Sub

à modifier selon tes besoins.

jeromeN95 · 27 Janvier 2020

Bonsoir [U]kingfadhel,[/U]
en faite, le ComboBox1 ne peux lister que les Proto finissant par 1
Le ComboBox2 pas 2
Le ComboBox3 par 3

Actuellement le code donne accés à tout.

J'ai ajouter le bouton pour valider et lancer la fonction mail.

jeromeN95 · 28 Janvier 2020

XL 2010 Envoyer par mail en fonction d'un UserForm arpés selection

jeromeN95

XLDnaute Impliqué

Pièces jointes

kingfadhel

XLDnaute Impliqué

jeromeN95

XLDnaute Impliqué

Pièces jointes

jeromeN95

XLDnaute Impliqué

Discussions similaires