Probleme d'affichage dans msgbox

Arii2

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

XLDnaute Barbatruc
Re : Probleme d'affichage dans msgbox

Bonjour Arii2

Une façon de faire

Code:
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

XLDnaute Nouveau
Re : Probleme d'affichage dans msgbox

Bonjour Arii2

Une façon de faire

Code:
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.
 

Discussions similaires

Réponses
2
Affichages
365
Réponses
2
Affichages
202
Réponses
8
Affichages
559

Statistiques des forums

Discussions
312 827
Messages
2 092 555
Membres
105 451
dernier inscrit
mariane_lp