Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
Bonjours à Tous,
Je voudrais pouvoir a partir du bouton imprimer, imprimer ma feuille 'BP' Les données de l'USF vont dessus. Revenir à mon USF pour Valider. Le fichier est joint c'est plus parlant. J'ai un début de code mais bug il y a.
J'ai regardé ton code et cela me rappelle le temps où je débutais aussi ! lol
Plusieurs remarques pour ta fonction imprimer.
1 - Il ne faut pas de = entre msgbox et ton texte. Tu mets un = si tu veux recuperer le quelque chose dans une variable.
Par exemple : reponse = inputbox 'Quel âge avez-vous ?'
2 - Tu ne peux pas faire de unload d'une feuille !
le unload s'applique juste au Userform.
Tu as plusieurs possibilités avec une userform.
load Mauserform, charge en mémoire la userform mais ne l'affiche pas. La procédure userform_initilize se déclanche quand même.
Mauserform.show affiche la userform une fois loadée. Si tu n'avais pas fait de load avant, elle charge la feuille et l'affiche, elle lance donc le userform_initialize.
Pour userform.hide : Cahce la userform mais ne la decharge pas, elle garde donc tous ses parametres et eventuellement le texte que tu as mis dans les controle. par contre le unload mauserform, décharge celle ci et annule toute ta saisie.
3 - Essaie de mettre à chaque fois combobox2.value, c'est plus pratique quand tu relis le code qu'un simple combobox2
Voila ton code :
Code:
Private Sub CommandButton2_Click()
'Envoie les données dans le BL
With Sheets('BP')
.Range('D12') = Dateprêt.Value
.Range('D14') = ComboBox1.Value
.Range('D16') = ComboBox4.Value
.Range('D18') = ComboBox3.Value
.Range('D21') = ComboBox2.Value
.Range('D24') = TextBox2.Value
End With
'Imprime le BL et revient à l'userform
Me.Hide
Worksheets('BP').PrintPreview
MsgBox 'lancer l'impression'
Worksheets('BP').PrintOut
Me.Show
End Sub
Mercy CREPY, pour tes conseil, c'est vraiment ca que je cherchait. c'est vrai je débute et prends plaisir à découvrir ce que l'on peut faire avec excel.
Sur le forum, j'ai également cherché la façon de pouvoir incrémenter la textbox4 A chaque ouverture de l'usf.
Ce site utilise des cookies pour personnaliser le contenu, adapter votre expérience et vous garder connecté si vous vous enregistrez.
En continuant à utiliser ce site, vous consentez à notre utilisation de cookies.