Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Macro pour imprimer avec message box

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 !

hellocarioca

XLDnaute Occasionnel
Bonjour,

en espérant que vous pourrez m'aider!

Alors j'ai un 1er onglet "Data" où l'utilisateur rentre des données ligne par ligne, une fois terminé, l'utilisateur doit pouvoir imprimer un formulaire qui doit contenir les info d'une des lignes (toutes les lignes ne doivent pas forcement remplir un formulaire). Pour remplir le formulaire il suffit de copier le contenu d'une cellule (colonne "Ref" dans onglet "Data") dans l'onglet Formulaire "G5" et par un system de vlookup() ça rempli un formulaire qui ensuite à besoin d'être imprimer.

J'aimerai donc savoir, dans le but d'automatiser, s'il y aurait moyen en clickant sur un bouton, que l'utilisateur soit demandé de rentrer le numéro de la ligne, et qu'une macro se lance en copiant, i.e "Data"A2 dans "Formulaire"G5" et lance l'impression.

Je met un petit example

Je vous remercie d'avance pour votre aide 🙂

Maud
 

Pièces jointes

Re : Macro pour imprimer avec message box

Merci bcp Said !

Mon seul petit hic c que j'ai ajouté une message box pour que l'utilisateur confirme que l'info est bonne mais du coup g la message box de la list qui reste entre les deux et donc du coup l'utilisateur ne pas voir la moitié du formulaire et ne peut pas se deplacer sur la feuille ! c pas très tres important mais est ce qu'il y aurait un petit truc que je pourrais ajouter à mon code (par exemple un print preview qui enleverait toutes les messages box)

With Sheets("Form")
.Range("C5") = ComboBox1.Value
End With

Sheets("Form").Select

Response = MsgBox("Please check that the Data populated is correct.", vbYesNo, "Confirmation")
If Response = vbYes Then
GoTo OK_To_Print_Form
Else ' User chose No.
GoTo Exit_cmd_Print_Form ' Exit import without any further action
End If

OK_To_Print_Form:
ActiveSheet.PageSetup.PrintArea = "$A$1:$L$35"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Unload Me

Exit_cmd_Print_Form:
Exit Sub

End Sub


Merci bcp

Maud
 
Re : Macro pour imprimer avec message box

Said,

j'ai utilisé votre example et ça marchait très bien mais je comprend pas depuis aujourd'hui ça bugg.
je vous ai remis votre exemple en pièce jointe. est ce que vous pouvez regarder quel est le problème?

merci bcp

Maud
 

Pièces jointes

- 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
Microsoft 365 cloud et macro
Réponses
4
Affichages
1 K
Réponses
3
Affichages
524
Réponses
1
Affichages
2 K
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…