MACRO CONCATÉNER + RETOUR A LA LIGNE
Résolu
Vahde
Messages postés
3
Date d'inscription
Statut
Membre
Dernière intervention
-
Vahde Messages postés 3 Date d'inscription Statut Membre Dernière intervention -
Vahde Messages postés 3 Date d'inscription Statut Membre Dernière intervention -
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.
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.
A voir également:
- Excel concatener retour à la ligne
- Aller à la ligne excel - Guide
- Liste déroulante excel - Guide
- Concatener deux cellules excel - Guide
- Partager photos en ligne - Guide
- Word et excel gratuit - Guide
2 réponses
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
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