sprezzatura
XLDnaute Nouveau
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
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