Combiner plusieurs cellules en fonction de deux critères
Fermé
grutz Messages postés 22 Date d'inscription mercredi 3 février 2016 Statut Membre Dernière intervention 20 septembre 2023 - 4 janv. 2023 à 17:02
- Combiner plusieurs cellules en fonction de deux critères
- Fonction si et - Guide
- Formule excel pour additionner plusieurs cellules - Guide
- Combiner deux cellules excel - Guide
- Deux ecran pc - Guide
- Verrouiller cellules excel - Guide
3 réponses
Modifié le 3 janv. 2023 à 20:36
Bonjour
https://www.cjoint.com/c/MAdtKp1BUXB
Cdlmnt
Modifié le 3 janv. 2023 à 20:43
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.
4 janv. 2023 à 09:10
Bonjour à tous,
Un autre exemple par macro
4 janv. 2023 à 09:17
Bonjour,
merci pour votre retour,
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 :)
4 janv. 2023 à 10:18
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
4 janv. 2023 à 17:02
Ca fonctionne super, mais par contre en fonction du nombre de ligne cela peut créer une erreur 13.
J'ai pas tout compris dans le code, mais faut que je potasse sur internet pour comprendre ce qu'il fait :)
4 janv. 2023 à 09:00
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 :)