Afficher champ caractere sur msgbox

[Lighter]

Bonjour à tou(te)s

Dans le message que je souhaite afficher par INPUTBOX, j'aimerai indiquer des zones qui se trouve dans un champ défini, alors je m'y prends de la manière suivante :

CA = InputBox("Entrez votre code auxiliaire" & vbCr & Cells(5, 16) & " " & Cells(5, 17) & vbCr & Cells(6, 16) & " " & Cells(6, 17) , ("Choix de l'entité"))

C'est une idée d'aligner toutes les zones necessaires une à une, mais y a t'il plus professionnel, c'est-à-dire de définir un champ complet, par exemple un range de : cells(5,16) à cells(6,17) voire d'avantage bien sûr.

Merci à tou(te)s pour votre aide précieuse

 

[skoobi]

Re : Afficher champ caractere sur msgbox

Bonjour Lighter,

regarde si ceci te convient:

Sub test()
texte = "Entrez votre code auxiliaire" & vbCr
For Each elmnt In Range(Cells(5, 16), Cells(6, 17))
  texte = IIf(lig < elmnt.Row, texte & vbCr & elmnt.Value & " ", texte & elmnt.Value & " ")
  lig = elmnt.Row
Next
ca = InputBox(texte, ("Choix de l'entité"))
End Sub

 

[Lighter]

Re : Afficher champ caractere sur msgbox

Bonjour skoobi
Ah que OUI cela me convient.
Le code que tu as écris est vraiment super.
Merci infiniment.