Afficher valeurs plusieurs cellules dans MessageBox Résolu/Fermé

Question

Bonjour, 

Je souhaite créer une macro permettant de récupérer les valeurs de cellules non vides d'une plage de données. La macro ci-dessous me génère autant de message box qu'il y'a de cellules non vides:
Sub get_Values
Nom_feuille = "feuille1"
    Set f1 = ThisWorkbook.Sheets(Nom_feuille)
    Application.ScreenUpdating = False
    
    Nom_feuille2 = "feuille2"
    Set f2 = ThisWorkbook.Sheets(Nom_feuille2)
    Application.ScreenUpdating = False
    For j = 81 To 87
        For i = 16 To 33
     If f2.Cells(j, i) <> "" Then
    MsgBox f2.Cells(j, i).Value
    End If
    Next i
    Next j
    ActiveWorkbook.Save
End Sub
Je voudrais désormais que toutes les valeurs de cellules s'affichent dans la même message box avec un retour à la ligne pour chaque case. J'ai pensé à utiliser la fonction concatener mais je ne sais pas comment gérer le retour à la ligne du coup

Merci d'avance

via55 · Answer

Bourbon

 Utilise une variable message que tu concatene avec la valeur trouvée et le code chr de retour à la ligne
message=message &  f2.Cells(j, i) & chr(10)

Cdlmnt
Via

via55 · Answer

For j = 81 To 87For i = 16 To 33If f2.Cells(j, i) <> "" Then message=message & f2.Cells(j, i) & chr(10) Next iNext j Msgbox message

Loiwi · Answer

Cela fonctionne parfaitement, merci!

Afficher valeurs plusieurs cellules dans MessageBox

3 réponses

Discussions similaires