Afficher valeurs plusieurs cellules dans MessageBox
Résolu
Loiwi
Messages postés
37
Statut
Membre
-
Loiwi Messages postés 37 Statut Membre -
Loiwi Messages postés 37 Statut Membre -
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
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
