Mettre plusieurs cellules de résultat dans une seule forme

[libellule85]

Bonjour le forum,

Je ne sais pas si cela est possible mais j'aimerais mettre le résultat de plusieurs cellules dans une seule forme par exemple dans le rectangle coin arrondi.

il faudrait que cela apparaisse comme ceci :

résultat du A1
résultat du A2
résultat du A3

D'avance merci pour votre aide

 

[Staple1600]

Re : Mettre plusieurs cellules de résultat dans une seule forme

Bonjour à tous

Fonctionne sur le fichier exemple
(nécessitera des adaptations si plusieurs shapes sur la feuille)

Sub test()
Dim sStr$
sStr = Join(Application.Transpose(Range("A1:A3").Value), vbCrLf)
ActiveSheet.Shapes(1).TextFrame.Characters.Text = sStr
End Sub

EDITION: Bonjour pierrejean 😉, Bonjour Paf (déjà deux solutions par macro 😉 )

 

[pierrejean]

Re : Mettre plusieurs cellules de résultat dans une seule forme

Bonjour libellule

Vois si cela te convient
NB: fonctionne au changement de A1 ou A2 Ou A3
et réalisé avec la complicité de l'enregistreur de macro

Edit: Salut Staple (et BRAVO)

 

[Paf]

Re : Mettre plusieurs cellules de résultat dans une seule forme

Bonjour

pas trouvé de solution plus simple:

En C1 (par exemple):
-dans le format de cellule cocher renvoyer à la ligne automatiquement
-entrer la formule: =A1&CAR(10)&A2&CAR(10)&A3
-Sélectionner le rectangle coin arrondi, puis dans la barre de formule entrer : =C1

autre solution par macro éventuellement

A+

Edit: Bonjour Staple1600, pierrejean

 

[libellule85]

Re : Mettre plusieurs cellules de résultat dans une seule forme

Bonjour Staple 1600, PierreJean, Paf,

Je vous remercie tous les trois pour vos réponses.

Bonne journée