grouper ligne avec condition possible ?

[BAT]

Bonjour à tous

Je me permet de reparler de ce post dont l'élan a été coupé lors de la maintenance du forum vendredi dernier. La solution n'ayant été trouvée !
Lien vers le précédent méssage avec présence d'un fichier excel joint !

Lien supprimé


J'avoue que l'explication est difficile à donner. Je reprends cette exemple :
- Rappel : le principe est de grouper des lignes en fonction des cellules de la colonne A
- En collone A j'ai des cellules fusionnées. Par exemple :
==> A5 à A15 sont fusionnés : La macro doit grouper les lignes de A5 à A14
==> A16 à A20 sont fusionnés : La macro doit grouper les lignes de A16 à A19.

J'espre avoir été un peu plus clair !


Merci d'avance

 

[BAT]

Je remet la pièce jointe [file name=testbat_20060130130141.zip size=5518]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/testbat_20060130130141.zip[/file]

 

[Charly2]

Bonsoir BAT, bonsoir à toutes et à tous

Une possibilité dans le fichier joint :

Option Explicit

Sub Modif_Fusion()
'
Dim CurLigne&, NbLignes&, LigneFin&
'
  With Application
    .ScreenUpdating = False
    LigneFin = Range('A65536').End(xlUp).Row
    CurLigne = 1
    Do While CurLigne  1 Then
        NbLignes = Selection.Rows.Count
        With Selection.Borders(xlInsideHorizontal)
          .LineStyle = xlContinuous
          .Weight = xlThin
          .ColorIndex = 15
        End With
        Selection.UnMerge
        .DisplayAlerts = False
        Range(Cells(CurLigne, 1), Cells(CurLigne + NbLignes - 2, 1)).Merge
        .DisplayAlerts = True
        CurLigne = CurLigne + NbLignes
      Else
        CurLigne = CurLigne + 1
      End If
    Loop
    Range('A1').Select
    .ScreenUpdating = True
  End With
End Sub

N'hésite pas à demander des explications au besoin

[file name=TestBatV1.zip size=13143]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/TestBatV1.zip[/file]

A+

 

[BAT]

Bonjour Charly !

Merci pour ton aide !

Mais ce n'est pas encore ça ! Le but est que la macro groupe les ligne comme dans l'exemple de mon fichié.

L'opération de ta macro défusionne la derniere ligne. Le souhait c'est que la macro groupe les lignes sauf la dernière (celle que toi tu défusionne). Cf le classeur

Mais est-ce possible ?

Merci de votre aide !

 

[Charly2]

Bonjour BAT, bonjour à toutes et à tous

Ouh là là !!! Je corrige avant le ZOP

[file name=TestBatV2.zip size=12900]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/TestBatV2.zip[/file]

A+

 

[BAT]

Bonjour Charly2 !

Merci beaucoup ! c'est exactement ce que je cherchait !

MERCI MERCI ET MERCI!