Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Problème doublon et fusion

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion zabimaru27
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
Z

zabimaru27

Guest
Bonjour,

Voici mon problème,
J'ai une liste excel du type


1 AAA nicolas
1 AAA Robert
1 AAA Benoit
2 BBB Vincent
2 BBB Bob

Le problème est que la mise en forme ne me va pas. En effetchaque ligne correspond à une ligne excel et chaque champs à une cellule unique.

Je souhaiterai arriver à quelque chose comme ça

1 AAA Nicolas
Robert
Benoit
2 BBB Vincent
Bob

En ayant plus qu'une ligne et la liste des noms fusionner dans une seule cellule.

Est ce possible ??

Merci d'avance
 
Trier par date Trier par votes
Re : Problème doublon et fusion


Euh désoler , le message à tout décaler, mais les noms sont bien alignés.
 
Vote positif 0 Vote négatif
Re : Problème doublon et fusion

Bonjour zabimaru27, bienvenue sur XLD,

Un fichier aurait été le bienvenu aussi, (re)lire la charte du forum.

Voici donc un fichier avec 2 boutons :

- le 1er crée la nouvelle liste sans fusion des cellules

- le 2ème crée la nouvelle liste avec fusion de cellules.

Les macros sont dans Module1 (Alt+F11) et dans le code de la feuille.

Edit 1 : correction : la hauteur de la plage de restitution doit être h - 1.

Edit 2 : les prénoms ne sont pas alignés, je ne sais pas faire autrement - sauf insérer des espaces mais c'est bâtard...

A+
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Re : Problème doublon et fusion

Re,

En utilisant une police de couleur blanche n'est-ce pas mieux (et c'est plus simple) :

Code: 
Sub Liste()
Dim i&, p%, txt$, j&
Application.ScreenUpdating = False
[B2:B65536].Delete xlUp
For i = 2 To [A65536].End(xlUp).Row
  Cells(i, 2) = Application.Trim(Cells(i, 1)) 'SUPPRESPACE
  p = InStr(InStr(Cells(i, 2), " ") + 1, Cells(i, 2), " ") 'position du 2ème espace
  txt = RTrim(Mid(Cells(i, 2), 1, p))
  j = i
1 j = j + 1
  Cells(j, 2) = Application.Trim(Cells(j, 1)) 'SUPPRESPACE
  If Cells(j, 2) Like txt & "*" Then
    Cells(j, 2).Characters(1, p).Font.ColorIndex = 2 'police couleur blanche
    GoTo 1
  End If
  i = j - 1
Next
End Sub
Les prénoms sont alignés cette fois 🙂

Fichier (2)
A+
 

Pièces jointes

Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

M
  • Résolu(e)
Microsoft 365 $ Macro pour copier un exemple et$.....
Réponses
9
Affichages
516
sousou
  • Résolu(e)
XL 2019 Adapter ce code, et améliorer le tableau avec graphique à l'année à y insérer ?
Réponses
4
Affichages
484
sylvanu
L
  • Résolu(e)
Power Query Problème de fusion de données entre deux fichiers Excel sous Power Query
Réponses
8
Affichages
1 K
chris
C
  • Question Question
Microsoft 365 Combobox sans doublon et avec auto complétion et liée à une autre combobox
2
Réponses
24
Affichages
891
Dranreb
  • Résolu(e)
XL 2010 tableau de comptage sans doublon
2 3
Réponses
44
Affichages
3 K
cathodique
C
Excel : Fusionner des cellules en conservant le contenu et la police des cellules à fusionner
Réponses
5
Affichages
927
crocrocro
C
EXCEL :: Regroupements et détails dynamiques en lignes et en colonnes d'un croisement par PIVOTER.PAR entièrement piloter par la fonction LET
Réponses
5
Affichages
674
oguruma
Z
  • Question Question
XL 2016 RECHERCHEV et double liste de choix
Réponses
2
Affichages
1 K
zendb
Z
D
  • Question Question
Autres problème de formule matricielle tri sans doublon avec un critère
2
Réponses
27
Affichages
1 K
Jimy
M
  • Question Question
XL 2010 Récupération de données et les transformer avec Power Query ?
Réponses
3
Affichages
799
DJunqueira
D
Z
  • Résolu(e)
Microsoft 365 Récupérer les éléments d'une liste en fonction de leur position
Réponses
2
Affichages
773
Zarnir
Z
M
  • Question Question
XL 2010 Comment alimenter automatiquement des cellules à partir d'une ligne sélectionnée dans un tableau?
Réponses
13
Affichages
1 K
ManuXZ
M
L
  • Question Question
Microsoft 365 Faire agir une macro en fonction de l'emplacement du bouton
Réponses
2
Affichages
659
AtTheOne
B
  • Résolu(e)
XL 2016 fonction search et on error qui bug au deuxième passage
Réponses
3
Affichages
673
laurent950
J
  • Question Question
Microsoft 365 macro qui ouvre des fichiers excel de type "analyze in excel" généré par power bi et met à jour un filtre "mois" sur plusieurs tcd
Réponses
0
Affichages
650
JJ69
J
D
  • Question Question
Microsoft 365 Listbox multiple colonnes filtrée et modifiable
Réponses
3
Affichages
635
cp4
R
  • Résolu(e)
Autres Masquer des lignes et colonnes en fonction d'une valeur d'un menu déroulant
Réponses
1
Affichages
663
Romain77144
R
C
  • Résolu(e)
Power Query POWER QUERY - Fusionner des colonnes
Réponses
2
Affichages
896
combory
C
L
  • Résolu(e)
XL 2016 Problème liaison USF vers tableau et inversément
Réponses
1
Affichages
637
Ludo G
L
E
  • Résolu(e)
Microsoft 365 Conception d'un outils alliant faciliter d'utilisation et optimisation de la RAM/Processeur/Espace Disque
Réponses
6
Affichages
940
elgringo123456
E
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…