Arii2
XLDnaute Nouveau
bonjour, voici le code en question
Sub Bouton32_QuandClic()
Dim p As Range, c As Range, M_essage$
Set p = Sheets("feuil2").Range("d5:d20").SpecialCells(xlCellTypeConstants, 23)
For Each c In p
M_essage = M_essage & c & vbLf
Next
MsgBox M_essage, vbInformation, "- INFORMATIONS -"
End Sub
le code fonctionne très bien. là où j'ai un problème, c'est que j'aimerai que le msgbox affiche également le contenu des cellules de C5 à C20 de feuil2.
à chaque cellule Dn est attribué un profil en Cn. donc si Dn est vide ne pas afficher Cn et passer au suivant.
en gros, voici le format d'affichage que j'essaye d'avoir dans la msgbox
C5 ":" D5
C6 ":" D6
etc...mais seulement si Dn n'est pas vide.
j'ai essayé avec une petite boucle mais j'avais C1,C2,C3...,C6 qui s'affichaient à chaque fois, que le contenu en Dn soit vide ou non.
merci.
Sub Bouton32_QuandClic()
Dim p As Range, c As Range, M_essage$
Set p = Sheets("feuil2").Range("d5:d20").SpecialCells(xlCellTypeConstants, 23)
For Each c In p
M_essage = M_essage & c & vbLf
Next
MsgBox M_essage, vbInformation, "- INFORMATIONS -"
End Sub
le code fonctionne très bien. là où j'ai un problème, c'est que j'aimerai que le msgbox affiche également le contenu des cellules de C5 à C20 de feuil2.
à chaque cellule Dn est attribué un profil en Cn. donc si Dn est vide ne pas afficher Cn et passer au suivant.
en gros, voici le format d'affichage que j'essaye d'avoir dans la msgbox
C5 ":" D5
C6 ":" D6
etc...mais seulement si Dn n'est pas vide.
j'ai essayé avec une petite boucle mais j'avais C1,C2,C3...,C6 qui s'affichaient à chaque fois, que le contenu en Dn soit vide ou non.
merci.