Macro Excel: concatener plusieurs lignes non vide
Fermé
gregt73
Messages postés
52
Date d'inscription
lundi 25 mai 2009
Statut
Membre
Dernière intervention
21 janvier 2019
-
18 janv. 2019 à 16:22
titeufdu89 Messages postés 374 Date d'inscription samedi 28 juillet 2012 Statut Membre Dernière intervention 1 avril 2023 - 21 janv. 2019 à 12:53
titeufdu89 Messages postés 374 Date d'inscription samedi 28 juillet 2012 Statut Membre Dernière intervention 1 avril 2023 - 21 janv. 2019 à 12:53
A voir également:
- Macro Excel: concatener plusieurs lignes non vide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Liste déroulante excel - Guide
- Si et excel - Guide
- Aller à la ligne excel - Guide
- Word et excel gratuit - Guide
4 réponses
ccm81
Messages postés
10900
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
2 novembre 2024
2 425
18 janv. 2019 à 18:48
18 janv. 2019 à 18:48
Bonjour
Q1. Tu veux garder les lignes vides ?
Q2. Il n'y a qu'une colonne dans ton fichier ?
Cdlmnt
Q1. Tu veux garder les lignes vides ?
Q2. Il n'y a qu'une colonne dans ton fichier ?
Cdlmnt
gregt73
Messages postés
52
Date d'inscription
lundi 25 mai 2009
Statut
Membre
Dernière intervention
21 janvier 2019
21 janv. 2019 à 08:24
21 janv. 2019 à 08:24
Bonjour,
C'est vrai que je n'ai pas été très précis.
Réponse 1: Oui, je voudrais garder les lignes vides.
Réponse 2 : Non, il y a plusieurs colonnes dans mon fichier.
Merci d'avance pour l'aide.
C'est vrai que je n'ai pas été très précis.
Réponse 1: Oui, je voudrais garder les lignes vides.
Réponse 2 : Non, il y a plusieurs colonnes dans mon fichier.
Merci d'avance pour l'aide.
titeufdu89
Messages postés
374
Date d'inscription
samedi 28 juillet 2012
Statut
Membre
Dernière intervention
1 avril 2023
38
Modifié le 21 janv. 2019 à 11:07
Modifié le 21 janv. 2019 à 11:07
Bonjour,
Tu peux essayer ce code, a coller soit dans un module, soit dans le module de la feuille contenant ton tableau. A mettre à jour en fonction des indications en vert.
Bonne journée
Jc
Tu peux essayer ce code, a coller soit dans un module, soit dans le module de la feuille contenant ton tableau. A mettre à jour en fonction des indications en vert.
Sub concatener_col_I()
With Worksheets("Feuil1") '<<<< nom de la feuille à mettre a jour ou remplacer par 'With Activesheet' pour la feuille active
For i = 2 To .Range("I65536").End(xlUp).Row '<<< remplace 2 par 1 si ton tableau ne comporte pas d'en-tête, ou plus de 2 si tu as plusieurs lignes d'en-tête
If .Range("I" & i) <> "" Then
cpte = 0
msg = ""
Do While .Range("I" & i + cpte) <> ""
If cpte = 0 Then
msg = .Range("I" & i + cpte).Value
Else
msg = msg & " - " & .Range("I" & i + cpte).Value
End If
.Range("i" & i + cpte) = ""
cpte = cpte + 1
Loop
.Range("I" & i) = msg
i = i + cpte
End If
Next i
End With
End Sub
Bonne journée
Jc
gregt73
Messages postés
52
Date d'inscription
lundi 25 mai 2009
Statut
Membre
Dernière intervention
21 janvier 2019
21 janv. 2019 à 12:27
21 janv. 2019 à 12:27
Bonjour titeufdu89,
Ca marche nickel..!!!
J'étais parti dans une boucle du même style, mais alors j'étais loin, très loin du compte..! -:)
Merci beaucoup.
Bonne journée.
Ca marche nickel..!!!
J'étais parti dans une boucle du même style, mais alors j'étais loin, très loin du compte..! -:)
Merci beaucoup.
Bonne journée.
titeufdu89
Messages postés
374
Date d'inscription
samedi 28 juillet 2012
Statut
Membre
Dernière intervention
1 avril 2023
38
21 janv. 2019 à 12:53
21 janv. 2019 à 12:53
Cool!!!
En VBA il n'y a pas de bonne ou mauvaise réponse, il y a juste différentes interprétations du problème et de la façon de le résoudre ;-)
C'est pas parce que mon code fonctionne que le tiens n'aurait pas fonctionné, c'est ainsi que l'on apprend et que l'on progresse alors si j'ai un conseil à te donner... persévère!
Bonne continuation
Jc
En VBA il n'y a pas de bonne ou mauvaise réponse, il y a juste différentes interprétations du problème et de la façon de le résoudre ;-)
C'est pas parce que mon code fonctionne que le tiens n'aurait pas fonctionné, c'est ainsi que l'on apprend et que l'on progresse alors si j'ai un conseil à te donner... persévère!
Bonne continuation
Jc