Macro pour imprimer avec message box

[hellocarioca]

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

 

[hellocarioca]

Re : Macro pour imprimer avec message box

Personne ne veut m'aider !!!! 🙁

 

[BERRACHED said]

Re : Macro pour imprimer avec message box

Salut,hellocarioca

j'ai bricoler quelque chose pour toi j'espere te conviendra

Cordialement

 

[hellocarioca]

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

 

[hellocarioca]

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

 

[Lii]

Re : Macro pour imprimer avec message box

Bonjour Tous,

MsgBox ou Userform , ce dernier est plus facile à gérer !
Voir fichier joint (avec d'autres présentations possibles).