MsgBox

[Hulk]

Hello les amis,

Encore mi.. suis sur tous les fronts 😀

Je souhaite faire ça sur 50 lignes..

Sub Message()
With Sheets("Feuil1")
MsgBox .Range("A1") & "   -   " & Range("B1") & Chr(10) & _
.Range("A2") & "   -   " & Range("B2") & Chr(10) & _
.Range("A3") & "   -   " & Range("B3")
'Etc jusqu'à 50
End With
End Sub

Dois-je faire ça jusqu'à B50 ou y a t-il moyen d'y faire plus facilement ?

Merci.

Hulk.

 

[PascalXLD]

Re : MsgBox

Bonjour

essaies

dim toto as string
for x = 1 to 50
toto = toto & .range("A" & x) & " - " & Range("B" & x) & Chr(10)
next
msgbox toto

 

[Hulk]

Re : MsgBox

Hello le Forum, PascalXLD,

Impec Pascal.. juste qu'il affiche les tirets même si cellule vide, possible d'éviter ça ?

Disons que la plage doit être de A1:B50, mais qu'il y a des données que dans A1:B23..

Possibilité qu'il ignore les tirets des cellules vides ?

Et donc que la MsgBox soit de hauteur adéquate 😀

J'ai essayé sans succès.

Merci pour ton aide.

Hulk.

 

[PascalXLD]

Re : MsgBox

Re

essaies en modifiant ainsi

dim toto as string
y=.range("A1").end(xldown).row
for x = 1 to y
toto = toto & .range("A" & x)& " - " & Range("B" & x) & Chr(10)
next
msgbox toto

 

[juju_69]

Re : MsgBox

Hello,

Pour reprendre le code fait, essaie çà :

dim toto as string
for x = 1 to [A51].end(xlup).row
toto = toto & .range("A" & x)& " - " & Range("B" & x) & Chr(10)
next
msgbox toto

@ +

Juju
Edit : Aie Pascal, dsl pour le carambolage^^

 

[Hulk]

Re : MsgBox

Hello,

Impec Juju_69, merci pour ta contribution 😉

Juste que... ...pour la correction c'est

toto = toto & [COLOR="Green"]Range[/COLOR]("A" & x)& " - " & Range("B" & x) & Chr(10)

et pas

toto = toto & [COLOR="Red"].range[/COLOR]("A" & x)& " - " & Range("B" & x) & Chr(10)

Merci encore aux deux !

Résolu !

Bonne soirée à vous.

Hulk.