Combiner plusieurs cellules en fonction de deux critères
grutz Messages postés 26 Statut Membre -
Bonjour,
Je souhaite combiner plusieurs cellules en une seul en fonction de deux critères commun :
Par exemple :
Colonne A Colonne B Colone C
43 Façonnage Texte1
43 Façonnage Texte2
43 Façonnage Texte3
43 Façonnage Texte4
51 Façonnage Texte1
51 Façonnage Texte2
51 Façonnage Texte3
52 Façonnage Texte1
52 Façonnage Texte2
je souhaiterais avoir pour le numéro 43 et façonnage en colonne A et B, l'assemblage de Texte 1 +Texte 2 + Texte3 + Texte4 en colonne C
Merci pour votre aide
cordialement
Windows / Chrome 104.0.0.0
- Combiner plusieurs cellules en fonction de deux critères
- Fonction si et - Guide
- Fusionner deux cellules excel en gardant le contenu - Guide
- Somme de plusieurs cellules excel - Guide
- Nombre de jours entre deux dates excel - Guide
- Deux ecran pc - Guide
3 réponses
Bonjour,
Sélectionne la plage de cellules que tu souhaites traiter puis clique sur l'onglet "Données" du ruban et sur "Trier et filtrer".
Clique sur "Filtrer". Des flèches apparaîtront à côté de chaque en-tête de colonne, clique sur la flèche de la colonne A et sélectionne "Numéro 43" puis clique sur la flèche de la colonne B et sélectionne "Façonnage". Ca va filtrer les données en fonction de ces critères.
Sélectionne les cellules de la colonne C qui correspondent à ces critères, clique sur l'onglet "Accueil" du ruban et sur "Fusionner et centrer" dans le groupe "Alignement". Cela fusionnera les cellules sélectionnées et ajoutera un bord au milieu de la cellule fusionnée.
Clique sur la cellule fusionnée et tape la formule "=CONCATENER(C2, " ", C3, " ", C4, " ", C5)" (sans les guillemets). Ca concatènera les cellules C2, C3, C4 et C5 en une seule cellule.
Tiens moi au courant.
Bonjour à tous,
Un autre exemple par macro
Re,
Sub DoublonsTotal()
Dim d, d2, c
Set d = CreateObject("Scripting.Dictionary")
Set d2 = CreateObject("Scripting.Dictionary")
For Each c In Range("a2", [a65000].End(xlUp))
d(c.Value) = d(c.Value) & " " & c.Offset(, 2).Value
d2(c.Value) = c.Offset(, 1)
Next c
[A2:C1000].ClearContents
[a2].Resize(d.Count, 1) = Application.Transpose(d.keys)
[b2].Resize(d.Count, 1) = Application.Transpose(d2.items)
[c2].Resize(d.Count, 1) = Application.Transpose(d.items)
End Sub
Bonjour,
est il possible de mettre la macro ici ? je n'ai qu'un PC professionnel et je ne peux pas télécharger de fichier.
Merci pour votre aide :)