Excel: multicellules à remettre dans une seule cellule
Fermé
PierreC1977
Messages postés
4
Date d'inscription
lundi 8 juin 2015
Statut
Membre
Dernière intervention
11 juin 2015
-
8 juin 2015 à 12:27
PierreC1977 Messages postés 4 Date d'inscription lundi 8 juin 2015 Statut Membre Dernière intervention 11 juin 2015 - 11 juin 2015 à 11:49
PierreC1977 Messages postés 4 Date d'inscription lundi 8 juin 2015 Statut Membre Dernière intervention 11 juin 2015 - 11 juin 2015 à 11:49
A voir également:
- Excel: multicellules à remettre dans une seule cellule
- Liste déroulante excel - Guide
- Formule excel - Guide
- Remettre a zero un pc - Guide
- Aller à la ligne dans une cellule excel - Guide
- Dans le texte, un seul mot a réellement été écrit en lettres capitales (majuscules). quel est ce mot ? ✓ - Forum Word
3 réponses
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
15 mars 2023
2 712
8 juin 2015 à 13:20
8 juin 2015 à 13:20
Bonjour,
Plutôt qu'une image, un fichier exemple d'une trentaine de lignes serait un bon départ...
Tu laisses 30 et quelques lignes de ton fichier comme il est ainsi que ce que tu veux obtenir à la fin.
Pour joindre un fichier, il faut passer par cjoint.fr créer un lien vers ton fichier et revenir ici coller le lien dans ta réponse.
Plutôt qu'une image, un fichier exemple d'une trentaine de lignes serait un bon départ...
Tu laisses 30 et quelques lignes de ton fichier comme il est ainsi que ce que tu veux obtenir à la fin.
Pour joindre un fichier, il faut passer par cjoint.fr créer un lien vers ton fichier et revenir ici coller le lien dans ta réponse.
PierreC1977
Messages postés
4
Date d'inscription
lundi 8 juin 2015
Statut
Membre
Dernière intervention
11 juin 2015
8 juin 2015 à 14:53
8 juin 2015 à 14:53
Voici un exemple avec la situation incorrecte et la situation corrigée pour compléter ma question.
https://www.cjoint.com/c/EFimUsUtvhq
https://www.cjoint.com/c/EFimUsUtvhq
Frenchie83
Messages postés
2239
Date d'inscription
lundi 6 mai 2013
Statut
Membre
Dernière intervention
28 janvier 2023
335
11 juin 2015 à 09:38
11 juin 2015 à 09:38
Bonjour
A essayer
Cdlt
A essayer
Sub MiseEnForme()
Application.ScreenUpdating = False
'Suppression de la fusion des cellules
Columns("A:E").UnMerge
DerLig = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row
'Remplissge colonne D
For i = 2 To DerLig
If Cells(i, 1) <> "" Then
LigDep = i
Else
'vérifie si le texte trouvé est déjà présent dans les cellules destinations
ValColD = InStr(1, Cells(LigDep, 4), Cells(i, 4), 1)
If ValColD = 0 Then Cells(LigDep, 4) = Cells(LigDep, 4) & Chr(10) & Cells(i, 4) & ","
ValColE = InStr(1, Cells(LigDep, 5), Cells(i, 5), 1)
If ValColE = 0 Then Cells(LigDep, 5) = Cells(LigDep, 5) & Chr(10) & Cells(i, 5) & ","
End If
Next i
'Suppression des lignes inutiles
For i = DerLig To 2 Step -1
If Cells(i, 1) = "" Then Rows(i).EntireRow.Delete
Next i
'suppression des espaces, virgules et retour chariot inutiles
For i = 2 To [A100000].End(xlUp).Row
For j = 4 To 5
Cells(i, j) = LTrim(Cells(i, j))
If Left(Cells(i, j), 2) = Chr(10) & "," Then Cells(i, j) = Right(Cells(i, j), Len(Cells(i, j)) - 3)
If Left(Cells(i, j), 1) = "," Then Cells(i, j) = Right(Cells(i, j), Len(Cells(i, j)) - 1)
Next j
Next i
'suppression des virgules doubles
Columns("D:E").Select
Selection.Replace What:=",,", Replacement:=",", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
End Sub
Cdlt
PierreC1977
Messages postés
4
Date d'inscription
lundi 8 juin 2015
Statut
Membre
Dernière intervention
11 juin 2015
11 juin 2015 à 11:49
11 juin 2015 à 11:49
Bonjour Frenchie,
Merci pour votre réponse. Je vais l'essayer.
Merci pour votre réponse. Je vais l'essayer.

8 juin 2015 à 14:48
Merci pour les conseils et les messages.
Je complète ma demande rapidement