Fusionner des cellules avec deux critères

Bonjours le forum,

Je cherche une macro simple pour certain mais case tête pour moi.

Donc si a partir de A6 que A est non vide et B est vide on fusionne jusque trouver le "-" en A >>>> ce qui est en vert

Et si A est non vide et que B non plus, on fusionne A jusque trouver le "-" en A >>>> ce qui est en rouge et on fusionne B jusque trouver le "-" en B >>>> ce qui est en orange. voilà merci de votre aide. Ci joint une image et le fichier.

J'ai la version a partir de A6 que A est non vide et B est vide on fusionne jusque trouver le "-" en A >>>> ce qui est en vert mais j'arrive pas a intégrer la 2ème conditions.

salut, si j'ai bien compris ton problème,

voici une solution que je te propose

Bonjour ghislain leon, merci c'est exactement ça

re

bonjour

ta demande n'etant pas claire je tente une truc

donc de ce que je comprends finalement , si je simplifie les choses

c'est fusionner les cellules A et B si du texte dans les deux sauf si c'est un tiret

si c'est ça

Sub FusionnerCellules()
    Dim i&,x As Boolean
    Application.DisplayAlerts = False
    With Feuil1
        For i = 6 To .Cells(Rows.Count, 1).End(xlUp).Row
            x = .Cells(i, 1) <> "" And .Cells(i, 2) <> "" And .Cells(i, 1) <> "-"
            If x Then .Cells(i, 1).Resize(, 2).MergeCells = True
        Next
    End With
End Sub

normalement la ligne x donne true si les 2 conditions sont remplies

a savoir

condition 1 :du texte dans A et B --> .Cells(i, 1) <> "" And .Cells(i, 2) <> ""

condition 2 : que ce ne soit pas un tiret --> .Cells(i, 1) <> "-"

le tout dans une addition logique "and"

après c'est simple

si x on fusionne la cells(i,1).resize(,2)

tout simplement

Bonjour patrickT, merci de ta réponse mais non ta macro ce n'est pas bon, celle de ghislain leon fonctionne comme je le voulais.

a ben j'avais pas compris ça

dans ce cas c'est simple

Sub FusionnerCellules()
    Dim I&, A&, B&
    With Feuil1
        For I = 6 To Cells(Rows.Count, 1).End(xlUp).Row
            If Cells(I, 1) <> "" And Cells(I, 1) <> "-" Then
                A = I
            Else
                If A > 0 And Cells(I, 1) = "-" Then B = I - 1: Range(Cells(A, 1), Cells(B, 2)).MergeCells = True
            End If
        Next
    End With
End Sub

Toujours pas bon, pas grave j'ai la première macro de ghislain leon.