MACRO CONCATÉNER + RETOUR A LA LIGNE Résolu/Fermé

Question

Bonjour,
J'aurais besoin de modifier cette macro ( ci-dessous) qui marche très bien pour concaténer plusieurs cellules dans une seule. 
Sub Test()
Dim ref As Range, Cel As Range
  Dim Texte As String
    Set ref = Application.InputBox("Veuillez sélectionner les cellules sur la feuille", Type:=8)
    For Each Cel In ref
        Texte = Texte & Cel.Value & ","
    Next Cel
   ActiveCell = Left(Texte, Len(Texte) - 2)
End Sub
J'aimerais d'au lieu mettre une virgule pour séparer les cellules, ajouter un retour à la ligne ALT + ENTRÉE. Je ne sais pas comment faire, j'ai peu de connaissance en MACRO.
J'espère que ma question est suffisamment précise pour que la commu' puisse m'aider.
N'hésitez pas à demander si vous avez besoin de renseignements supplémentaires.
Bonne journée.

gbinforme · Accepted Answer

Bonjour, 
Dans ta macro, tu remplaces "," par vblf qui effectue le "ALT + ENTRÉE". Il faut cependant que dans le format de ta cellule le "renvoyer à la ligne " soit coché et donc tu peux rajouter cette ligne pour le faire ActiveCell.WrapText = True

Sub Test()
Dim ref As Range, Cel As Range
Dim Texte As String
Set ref = Application.InputBox("Veuillez sélectionner les cellules sur la feuille", Type:=8)
For Each Cel In ref
     Texte = Texte & Cel.Value & vblf
Next Cel
ActiveCell = Left(Texte, Len(Texte) - 2)
ActiveCell.WrapText = True
End Sub

Vahde · Answer

Merci beaucoup ça marche parfaitement!
Bonne journée à toi :)

MACRO CONCATÉNER + RETOUR A LA LIGNE

2 réponses

Discussions similaires

Newsletters