Microsoft 365 Liste déroulante dans une userform

youky(BJ)

XLDnaute Barbatruc

• 11 Août 2020

• #2

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

 

Pièces jointes

• Classeur2.xlsm

  65.3 KB · Affichages: 5

Vote positif 0 Vote négatif

F

FCMLE44

XLDnaute Impliqué

Supporter XLD

• 11 Août 2020

• #3

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

 

Pièces jointes

• Classeur1.xlsm

  118.6 KB · Affichages: 4

Vote positif 0 Vote négatif

F

FCMLE44

XLDnaute Impliqué

Supporter XLD

• 11 Août 2020

• #4

Ci joint avec explication plus poussée en colonne J

Merci

 

Pièces jointes

• Classeur1 (2).xlsm

  156.3 KB · Affichages: 4

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 11 Août 2020

• #5

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

 

Pièces jointes

• Classeur1 (2).xlsm

  157.7 KB · Affichages: 8

Vote positif 0 Vote négatif

F

FCMLE44

XLDnaute Impliqué

Supporter XLD

• 12 Août 2020

• #6

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

 

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 12 Août 2020

• #7

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

VB:

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

 

Vote positif 0 Vote négatif

F

FCMLE44

XLDnaute Impliqué

Supporter XLD

• 12 Août 2020

• #8

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

 

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 12 Août 2020

• #9

Code en combobox1
Bruno

VB:

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

 

Vote positif 0 Vote négatif

Solution

F

FCMLE44

XLDnaute Impliqué

Supporter XLD

• 12 Août 2020

• #10

Un grand merci

 

Vote positif 0 Vote négatif