VBA-Fusion de cellules ayant le meme contenu

[Jack Slater]

Bonjour à tous,

Tout est dans le titre, j'ai une feuille excel dans laquelle j'ai la colonne A qui contient des chiffre, je voudrais, fusionner les cellules ayant le meme contenu.

Exemple: Cellule A2 et A3 ont pour contenu le chiffre 3, je voudrais les fusionner.

Quelqu'un sait comment faire????

Merci d'avance!!

 

[tototiti2008]

Re : VBA-Fusion de cellules ayant le meme contenu

Bonjour Jack Slater,

ça ne concerne que la colonne A ?
si c'est le cas, sans doute un truc comme :

Sub Fusion()
Dim i As Long, LigneDeb As Long, LigneFin As Long, Maxi As Long, Valeur
LigneDeb = 1
Valeur = Range("A1").Value
Maxi = ActiveSheet.Range("A65536").End(xlUp).Row
For i = 1 To Maxi + 1
    If Range("A" & i).Value <> Valeur Or i = Maxi + 1 Then
        Application.DisplayAlerts = False
        Range("A" & LigneDeb & ":A" & i - 1).Merge
        Application.DisplayAlerts = True
        LigneDeb = i
        Valeur = Range("A" & i).Value
    End If
Next i
End Sub

 

[Jack Slater]

Re : VBA-Fusion de cellules ayant le meme contenu

Message: L'indice n'appartient pas à la selection

 

[tototiti2008]

Re : VBA-Fusion de cellules ayant le meme contenu

Chez moi ça fonctionne trés bien.
tu pourras remarquer que j'ai fait commencer ça à la ligne 1, je ne sais pas si ça correspond à ton tableau...

 

[Jack Slater]

Re : VBA-Fusion de cellules ayant le meme contenu

Oui moi aussi, je precise que je ne veux que fusionner les cellules et non les lignes entieres

 

[tototiti2008]

Re : VBA-Fusion de cellules ayant le meme contenu

c'est ce que ça fait chez moi...
un petit bout de fichier, peut-être ?

 

[Jack Slater]

Re : VBA-Fusion de cellules ayant le meme contenu

Chez moi ça doit commencer à la cellule A8 en fait

 

[tototiti2008]

Re : VBA-Fusion de cellules ayant le meme contenu

alors essaye :

Sub Fusion()
Dim i As Long, LigneDeb As Long, LigneFin As Long, Maxi As Long, Valeur
LigneDeb = [COLOR=red]8[/COLOR]
Valeur = Range("[COLOR=red]A8[/COLOR]").Value
Maxi = ActiveSheet.Range("A65536").End(xlUp).Row
For i = [COLOR=red]8[/COLOR] To Maxi + 1
    If Range("A" & i).Value <> Valeur Or i = Maxi + 1 Then
        Application.DisplayAlerts = False
        Range("A" & LigneDeb & ":A" & i - 1).Merge
        Application.DisplayAlerts = True
        LigneDeb = i
        Valeur = Range("A" & i).Value
    End If
Next i
End Sub

 

[Jack Slater]

Re : VBA-Fusion de cellules ayant le meme contenu

Cela fonctionne, mais on me donne un message ''Voulez-vous remplacer le contenu....''

 

[tototiti2008]

Re : VBA-Fusion de cellules ayant le meme contenu

Bonjour Jack Slater,

pas de message chez moi, normalement les lignes Application.DisplayAlerts sont là pour l'éviter...