Remplacer un MsgBox par un Userform

[sprezzatura]

Bonjour tout le monde,

je reviens aujourd'hui car j'ai un problème sur un code que j'ai trouvé sur le Forum (voir ci dessous, la partie soulignée est concernée). E fait je voulais afficher le résultat de ce code dans un Userform et non pas dans le Msgbox car la taille de ce dernier est limitée. je suis un vrai débutant et donc je n'arrive pas après plusieurs essais.

merci bcp.

...
If texte2 = "" Then texte = "": texte2 = vbNewLine & "Il n'y aucune unité de production dans ce département" _
& nom & " (" & numero & ")."
DoEvents
MsgBox texte & texte2, , "Départements: " & nom & "(" & numero & ")" & regionTXT
ColorierDepts
numero = 0
End Sub

 

[BERRACHED said]

Re : Remplacer un MsgBox par un Userform

Salut,sprezzatura

un fichier Exemple en joins pour pouvoir remplacer to Msg par userform.

Cordialement