VBA-Fusion de cellules ayant le meme contenu

tototiti2008

XLDnaute Barbatruc

• 10 Septembre 2008

• #2

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 :

Code:

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

 

Vote positif 0 Vote négatif

J

Jack Slater

Guest

• 10 Septembre 2008

• #3

Re : VBA-Fusion de cellules ayant le meme contenu

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

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 10 Septembre 2008

• #4

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...

 

Vote positif 0 Vote négatif

J

Jack Slater

Guest

• 10 Septembre 2008

• #5

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

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 10 Septembre 2008

• #6

Re : VBA-Fusion de cellules ayant le meme contenu

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

 

Vote positif 0 Vote négatif

J

Jack Slater

Guest

• 10 Septembre 2008

• #7

Re : VBA-Fusion de cellules ayant le meme contenu

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

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 10 Septembre 2008

• #8

Re : VBA-Fusion de cellules ayant le meme contenu

alors essaye :

Code:

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

 

Vote positif 0 Vote négatif

J

Jack Slater

Guest

• 11 Septembre 2008

• #9

Re : VBA-Fusion de cellules ayant le meme contenu

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

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 11 Septembre 2008

• #10

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...

 

Vote positif 0 Vote négatif