Probleme d'affichage dans msgbox

[Arii2]

bonjour à tous,
voilà j'ai un petit problème avec ma msgbox.
comment afficher le contenu des cellules A1 à A20 de la feuille1.
et si une cellule est vide ne rien afficher et passer à la cellule suivante.
j'ai commencé avec un petit:
MsgBox Sheets("feuil1").Cells(1,1) & Chr(13) & sheets("feuil1").cells(2,1) & chr(13) &...& sheets("feuil1").cells(20,1)

merci

 

[Staple1600]

Re : Probleme d'affichage dans msgbox

Bonjour Arii2

Une façon de faire

Sub a()
Dim p As Range, c As Range, M_essage$
Set p = Range("A1:A20").SpecialCells(xlCellTypeConstants, 23)
For Each c In p
M_essage = M_essage & c & vbLf
Next
MsgBox M_essage
End Sub

 

[Arii2]

Re : Probleme d'affichage dans msgbox

Bonjour Arii2

Une façon de faire

Sub a()
Dim p As Range, c As Range, M_essage$
Set p = Range("A1:A20").SpecialCells(xlCellTypeConstants, 23)
For Each c In p
M_essage = M_essage & c & vbLf
Next
MsgBox M_essage
End Sub

merci Staple1600. super rapide et super efficace.
j'ai essayé : Set p = Sheets("feuil2").Range("A1:A20")...
pour afficher les infos de feuille 2 mais ça marche pas.
as tu des idées?
en tout cas merci.

 

[Arii2]

Re : Probleme d'affichage dans msgbox

problème résolu.
ça marchait comme je l'avais écrit mais j'avais fait une toute petite faute de frappe sur la macro.