Fusion de cellules identiques [Résolu]

bgob Messages postés 2 Date d'inscription Statut Membre Dernière intervention 2

bonjour,
plus facile pour améliorer la lisibilité,
se mettre sur la deuxième ligne et dans la colonne où tu ne désires plus voir les doublons,
format, mise en forme conditionnelle,
la valeur de la cellule est égale =a1 (cellule précédente, en otant les dollars)
format, police, couleur blanc
copier, marquer les autres cellules et collage spécial format
espérant t'avoir aidé
a+

Réponse 3 / 12

gbinforme Messages postés 14946 Date d'inscription Statut Contributeur Dernière intervention 4 718

bonjour

j'aimerai que les cellules comportant des données identiques soient fusionnées...

pour cela , tu peux fusionner effectivement mais le
comportement des cellules fusionnées est différent.

je te propose plutôt de supprimer les lignes identiques avec
la macro suivante à insérer dans la feuille avec ALT + F11
puis executer avec ALT + F8 puis executer.

Public Sub sup_doubles()
Dim col, lig
For lig = 0 To (Cells(65000, 1).End(xlUp).Row - 1)
If Range("a1").Offset(lig, 0).Value = Range("a1").Offset(lig + 1, 0).Value Then
For col = 0 To Range("a1").Offset(lig, 0).End(xlToRight).Column - 1
If Not Range("a1").Offset(lig, col).Value = Range("a1").Offset(lig + 1, col).Value Then Exit For
Next col
If col = Range("a1").Offset(lig, 0).End(xlToRight).Column Then
Range("a1").Offset(lig, 0).EntireRow.Delete
End If
End If
Next lig
End Sub

Réponse 4 / 12

ReM

J'ai oublié de préciser : je suis sous excel 2000 et je cherche une macro VBA qui va bien...

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 12

Kobaya Messages postés 282 Date d'inscription Statut Membre Dernière intervention 214

salut,

que veux-tu faire exactement? supprimer les lignes en doublons?

ReM

si c'est un moyen détourné...
pour être plus clair, j'aimerai que les cellules comportant des données identiques soient fusionnées...
genre en A1, A2 et A3 j'ai la donnée x et je voudrais que les 3 cellules soient fusionées pour éviter d'avoir x sur 3 lignes de suite. Mais il faut que les données de la colonne d'à côté restent pareilles...

J'espère que c plus clair...

Réponse 6 / 12

Demongate

J'ai le même problème, j'aimerais que les cellules soient fusionnées.

La raison est que mes cellules sont très petites et on ne voit pas leur contenu.

En fusionnant les cellules identiques cela permettra alors de voir le contenu, car il n'y aura qu'une seule grosse cellule.

Si on supprime seulement les doublons, cela ne permet pas de voir ce qui est écrit dans la cellule car le contenu ne défile pas vers les cases vides verticalement.

Cela permet aussi de centrer l'information sur les plusieurs cases au lieu d'avoir l'info en haut ou en bas.

Merci pour l'aide.

Réponse 7 / 12

gbinforme Messages postés 14946 Date d'inscription Statut Contributeur Dernière intervention 4 718

bonjour

Cela permet aussi de centrer l'information sur les plusieurs cases

Dans "format cellule" tu as la possibilité, sans fusionner, de centrer sur plusieurs colonnes.

Lorsque tu fusionnes sur plusieurs lignes, il ne faut pas oublier que le tri du tableau n'est pratiquement plus possible.

Réponse 8 / 12

Demongate

oui, mais il n'y a pas centrer sur plusieurs lignes.

Réponse 9 / 12

gbinforme Messages postés 14946 Date d'inscription Statut Contributeur Dernière intervention 4 718

bonjour

Tu remplaces les codes paramètres

Const maxl = 6      ' fin ligne
Const minc = 1      ' début colonne
Const maxc = 2      ' fin colonne

par

Dim maxl as long
maxl = usedrange.rows.count      ' fin ligne
Const minc = 1      ' début colonne
Dim maxc as integer
maxc = usedrange.columns.count       ' fin colonne

Ainsi ta macro prend en compte toutes tes lignes et toutes tes colonnes.

Je t'ai fais cette modification pour répondre à ton souhait mais comme je te l'ai déjà dit, le fait de créer des cellules fusionnées va te créer des problèmes lors de l'utilisation de ton tableau par d'autres macros car la fusion perturbe ensuite l'adressage des cellules.

Réponse 10 / 12

Allan

Gbinforme,

Je n'ai pas du bien comprendre comment remplacer les codes parametres parce que ca ne fonctionne plus, d'autant que je ne veux pas appliquer cette macro a toutes les colonnes (mais OK pour toutes les lignes).

Par contre, en adaptant ces codes parametres a la taille de mon tableau (de telle ligne a telle ligne et de telle colonne a telle colonne), ca marche au poil !
Donc merci beaucoup gbinforme pour cette macro bien pratique.

macten

Bonjour
as-tu réussi à remplacer les codes dans la modification proposée par gbinforme?
Car la macro m'intéresse mais j'aurais voulu ne pas être limité par un nbre de ligne défini
Merci

Pastaky

Bonjour,
j'aimerais une macro qui fusionne deux lignes entres-elle si la valeur deux cellules sont identiques (à choisir). La macro permet alors de copier les valeurs des cellules(même colonne) vers l'autre si la cellule contient le chiffre 0 (en fait on remplace le 0 par le nombre de l'autre cellule).
Merci d'avance.

Pastaky

Un exemple à la demande de Pastaky.
maison 21 5 0 0
maison 0 0 19 564
avion 4 5 12 87
eau 0 0 4 87

Résultat (lignes maison fusionnées et cases à 0 remplacées)
maison 21 5 19 564
avion 4 5 12 87
eau 0 0 4 87

Réponse 11 / 12

Etiennedobrasil20 Messages postés 2 Date d'inscription Statut Membre Dernière intervention

Bonjour,

Merci gbinforme pour ce code.
J'ai essayé de l'adapter pour mon cas de figure: je voudrais fusionner et centrer 2 cellules identiques horizontalement.
J'ai tenté d'adapter le code de gbinforme à mon cas de figure, sachant que mon tableau fait 100 lignes et 100 colonnes (voir ci-dessous). Mais quand je lance la macro, elle tourne sans fin dans le vide, sans jamais donner de résultat. Savez-vous si quelque chose ne va pas avec mon code?
Merci d'avance.

Dim l As Long ' ligne
Dim d As Long ' doubles
Dim c As Integer ' colonne
Const minl = 1 ' début ligne

Dim maxl as long
maxl = 100
Const minc = 1
Dim maxc as integer
maxc = 100

Application.ScreenUpdating = False
Application.DisplayAlerts = False
For l = minl To maxl
For c = minc To maxc
For d = c + 1 To maxc
If (Cells(l, c) <> Cells(l, d)) Then Exit For
Next d
If d > c + 1 Then
With Cells(l, c).Resize(l, d - c)
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = True
End With
End If
Next c
Next l
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

gbinforme Messages postés 14946 Date d'inscription Statut Contributeur Dernière intervention 4 718

Bonsoir,

Savez-vous si quelque chose ne va pas avec mon code?
Le code fonctionne correctement, mais les boucles sur 100 lignes et 100 colonnes qui créent des fusions sont particulièrement longues à se dérouler, surtout avec l'adressage de la feuille à chaque fusion. D'autant plus que tu as des cellules identiques : cela dépend bien sûr de tes données.
Cependant si tu as des données correspondantes, la macro devrait te réaliser des fusions, comme je viens de le tester.

Réponse 12 / 12

Allan

Salut ReM,

J'ai eu a peu pres le meme probleme.
Je voulais fusionner les valeurs des lignes ou la colonne est identique, tout en gardant les valeurs separees dans les autres colonnes.
Par exemple:
A B C D
1 W w x x
2 W w x x
3 X x x x
4 Y y x x
5 Z z x x
6 Z z x x

Dans ce cas, je veux fusionner les doublons W et Z des colonnes A et B, tout en gardant les données des colonnes C et D tel quel.

Je ne suis pas habitue a faire des macros, mais en trifouillant j'ai trouve la formule suivante, qui semble fonctionner:

Sub fusion_2cell_vertical() 
Dim i As Integer 
Application.ScreenUpdating = False 
For i = 1 To 6 
If (Cells(i, 1) = Cells(i + 1, 1)) Then 
    Range(Cells(i, 1), Cells(i + 1, 1)).Select 
    With Selection 
        .HorizontalAlignment = xlCenter 
        .VerticalAlignment = xlBottom 
        .WrapText = False 
        .Orientation = 0 
        .AddIndent = False 
        .IndentLevel = 0 
        .ShrinkToFit = False 
        .ReadingOrder = xlContext 
        .MergeCells = False 
    End With 
    Selection.Merge 
    With Selection 
        .HorizontalAlignment = xlCenter 
        .VerticalAlignment = xlCenter 
        .WrapText = False 
        .Orientation = 0 
        .AddIndent = False 
        .IndentLevel = 0 
        .ShrinkToFit = False 
        .ReadingOrder = xlContext 
        .MergeCells = True 
    End With 
    Range(Cells(i, 2), Cells(i + 1, 2)).Select 
    With Selection 
        .HorizontalAlignment = xlCenter 
        .VerticalAlignment = xlBottom 
        .WrapText = False 
        .Orientation = 0 
        .AddIndent = False 
        .IndentLevel = 0 
        .ShrinkToFit = False 
        .ReadingOrder = xlContext 
        .MergeCells = False 
    End With 
    Selection.Merge 
    With Selection 
        .HorizontalAlignment = xlCenter 
        .VerticalAlignment = xlCenter 
        .WrapText = False 
        .Orientation = 0 
        .AddIndent = False 
        .IndentLevel = 0 
        .ShrinkToFit = False 
        .ReadingOrder = xlContext 
        .MergeCells = True 
    End With 
i = i - 1 
End If 
Next 
Application.ScreenUpdating = True 
End Sub

Un message previent qu'il gardera la valeur superieure gauche pour la fusion. Il faut cliquer sur OK a chaque fois.
Attention!
Il faut adapter la formule au nombre de lignes de ton tableau (dans ma formule, le "6" a la quatrieme ligne, pour un tableau de 6 lignes).
Il faut aussi adapter les colonnes que tu veux fusionner. Dans mon exemple, ce sont les colonnes "1" et "2" (pour A et B) --> Cells(i, 1), Cells(i, 2)

Le probleme, c'est que je ne crois que ca fonctionne pour fusionner un nombre variable de lignes. Par exemple, une fois 2 lignes, un fois 3 lignes... Dans mon cas, je fusionne toujours les lignes par 2.

C'est un peu confus.
Si ca a pu aider...

Fusion de cellules identiques

12 réponses

Votre réponse

Discussions similaires