Microsoft 365 Liste déroulante dans une userform

[FCMLE44]

Bonjour

Dans ce fichier en pièce jointe, j'ai fabriqué un userform Prépacourriers

En haut de ce userform, j'ai une liste déroulante pour laquelle je souahite récupérer la liste de la feuille paramètres et lorsuqe clique dans le userform sur un membre de la liste, elle vien s'afficher en cellule Cé de la feuil 1

Quelqu'un pourrait-il m'aider ?

Merci

 

[youky(BJ)]

Bonjour FCMLE,
Voir en userform initlize et dans le bouton de Imprimer
Bruno

 

[FCMLE44]

Merci

Le problème c'est que si je dois valider par un bouton pour afficher sur la feuille, est il de faire pareil pour toutes mes saisies dans ce formulaire

Je vous envoie un fichier complet en pièce jointe

 

[FCMLE44]

Ci joint avec explication plus poussée en colonne J

Merci

 

[youky(BJ)]

Désolé d'être aussi tardif, avec cette chaleur je recherche la fraicheur de l'eau et des festivités.
Voici donc de retour le fichier
Le bouton imprime va en aperçu avant impression.
Bruno

 

[FCMLE44]

Bonjour

Merci
Pas de souci

Par contre le bouton reset doit remettre toutes les cellules de la feuille remplies grâce au formulaire, à zéro

Apparemment ce que j'avais fait ne fonctionne pas

Pouvez vous regarder svp ?

Merci

 

[youky(BJ)]

Oups!
Ton procédé n'est pas habituel mais qu'importe, en principe on fait un bouton pour valider le formulaire, on écrit et on peut stocker les données.
Bruno

Private Sub CommandButton4_Click()
'effacer
If MsgBox("Si vous annulez la procédure, vous perdrez toutes les données d'entrées." & "Etes-vous sûr de vouloir continuer?", vbYesNo + vbCritical, "abandon de la procédure") = vbNo Then Exit Sub
ComboBox1 = ""
For k = 1 To 13
Controls("Textbox" & k) = ""
Next
'Unload Prépacourriers
End Sub

 

[FCMLE44]

Il n'efface pas la donnée quand j'ai sélectionné le nom dans le menu déroulant

 

[youky(BJ)]

Code en combobox1
Bruno

Private Sub ComboBox1_Change()
[C2] = ComboBox1
For k = 1 To 13
Controls("Textbox" & k) = ""
Next
End Sub

 

[FCMLE44]

Un grand merci