MsgBox

PascalXLD

XLDnaute Barbatruc

• 16 Décembre 2008

• #2

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

 

Vote positif 0 Vote négatif

Hulk

XLDnaute Barbatruc

• 16 Décembre 2008

• #3

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.

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 16 Décembre 2008

• #4

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

 

Vote positif 0 Vote négatif

J

juju_69

XLDnaute Occasionnel

• 16 Décembre 2008

• #5

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^^

 

Vote positif 0 Vote négatif

Hulk

XLDnaute Barbatruc

• 16 Décembre 2008

• #6

Re : MsgBox

Hello,

Impec Juju_69, merci pour ta contribution 😉

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

Code:

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

et pas

Code:

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

Merci encore aux deux !

Résolu !

Bonne soirée à vous.

Hulk.

 

Dernière édition: 16 Décembre 2008

Vote positif 0 Vote négatif