VBA - Excel: Concaténer automatiquement avec boucle
Résolu/Fermé
A voir également:
- VBA - Excel: Concaténer automatiquement avec boucle
- Liste déroulante excel - Guide
- Formule excel - Guide
- Déplacer une colonne excel - Guide
- Find vba - Astuces et Solutions
- Aller à la ligne excel - Guide
1 réponse
yg_be
Messages postés
21304
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
18 mars 2023
1 326
12 janv. 2021 à 12:31
12 janv. 2021 à 12:31
bonjour,
suggestion:
suggestion:
Sub lena()
Dim cola As Range, mot As Range
Set cola = [a1]
Do While cola.Offset(, 1) <> ""
Set mot = cola.Offset(, 1)
Do While mot <> ""
cola = cola + mot + " "
Set mot = mot.Offset(, 1)
Loop
Set cola = cola.Offset(1)
Loop
End Sub
12 janv. 2021 à 15:30
Petite question subsidiaire: y'a-t-il une solution pour intégrer les éventuelles cellules vides suivies d'une non vide, autrement dit, s'assurer que c'est bien la dernière cellule non vide de la ligne même s'il y'en a une vide sur la ligne??
12 janv. 2021 à 15:55
Sub lena() Dim cola As Range, mot As String, ncol As Long, lastcol As Long, nlig As Long, fl As Worksheet Set fl = ActiveSheet Set cola = fl.[a1] lastcol = fl.UsedRange.Column + fl.UsedRange.Columns.Count - 1 Do While cola.Offset(, 1) <> "" cola = "" nlig = cola.Row For ncol = 2 To lastcol mot = fl.Cells(nlig, ncol) If mot <> "" Then cola = cola + mot + " " End If Next ncol Set cola = cola.Offset(1) Loop End Sub12 janv. 2021 à 16:05
12 janv. 2021 à 16:07
pourras-tu marquer la discussion comme résolue?
12 janv. 2021 à 16:14