Menu

Afficher valeurs plusieurs cellules dans MessageBox [Résolu]

Messages postés
11
Date d'inscription
vendredi 1 février 2019
Dernière intervention
13 février 2019
- - Dernière réponse : Loiwi
Messages postés
11
Date d'inscription
vendredi 1 février 2019
Dernière intervention
13 février 2019
- 13 févr. 2019 à 07:54
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
Afficher la suite 

Votre réponse

3 réponses

Messages postés
10237
Date d'inscription
mercredi 16 janvier 2013
Dernière intervention
16 février 2019
1311
0
Merci
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
Loiwi
Messages postés
11
Date d'inscription
vendredi 1 février 2019
Dernière intervention
13 février 2019
-
Comment faut-il l'intégrer dans le code existant?
Commenter la réponse de via55
Messages postés
10237
Date d'inscription
mercredi 16 janvier 2013
Dernière intervention
16 février 2019
1311
0
Merci
For j = 81 To 87
For i = 16 To 33
If f2.Cells(j, i) <> "" Then message=message & f2.Cells(j, i) & chr(10)
Next i
Next j
Msgbox message

Commenter la réponse de via55
Messages postés
11
Date d'inscription
vendredi 1 février 2019
Dernière intervention
13 février 2019
0
Merci
Cela fonctionne parfaitement, merci!
Commenter la réponse de Loiwi