VBA : condition pour fusionnage

Merci beaucoup pour ton aide michel !!!

Tu as bien compris ma demande et tu y réponds quasi parfaitement ^^

Premier détail que j'avais oublié de préciser: mon tableau contient initialement 60 lignes vierge. Suite au lancement d'une macro, celui-ci vient se remplir mais pas entièrement. J’obtiens donc des cellules vides en fin de tableau. Je supprime les lignes vides grâce à une macro mais je ne peux savoir avant combien de lignes mon tableau contiendra au final... Mais peut importe puisque ça ne semble pas poser de problème à priori (je réaliserai la fusion avant la suppression).

Concernant ton code à proprement dit:
Lorsque j'ai 2 cellules identiques (exemple: A31 et A32), ton code fonctionne parfaitement.
Par contre:
- lorsque j'ai 3 ou 4 cellules identiques (exemple: A31, A32 et A33 (et A34)), ça me fusionne uniquement les deux premières (A31 et A32)
- lorsque j'ai 5 cellules identiques ou plus, ça me donne: 2 cellules fusionnées, 1 non fusionnée, 2 fusionnées, ...

Lorsque je relance la macro plusieurs fois ensuite, je remarque que pour le cas de 5 cellules ou plus, ça me donne: 2 fusionnées, 3 fusionnées, 3 fusionnées, ...

J'ai l'impression que si nous avons 2 cellules déjà fusionnées et que nous souhaitons les fusionner avec une 3ème cellule alors ça ne marchera pas mais, à l'inverse, si nous avons une cellule non fusionnée suivie de 2 cellules fusionnée alors ça marchera (nous obtiendrons alors 3 cellules fusionnées).
J'ai fais le test avec 1 cellule non fusionnée suivie de 3 cellules fusionnées et en lançant la macro ça me fusionne bien mes 4 cellules.

Je pense que si la macro s'effectuait dans l'autre sens (de la cellule 90 à la cellule 30) ça solutionnerait ce problème mais je ne sais pas si c'est réalisable...

En attendant, encore merci pour ta réponse !!

Bonjour
pour les N cellules fusionnées, je te fais ca dès que j'ai un moment

par contre je ne comprend pourquoi
Lorsque je relance la macro plusieurs fois ensuite, je remarque que pour le cas de 5 cellules ou plus, ça me donne: 2 fusionnées, 3 fusionnées, 3 fusionnées, ...

En relançant la macro, il faudrait peut-^tre revoir tout le code et que je sache quels changements ont été apportés qui justifie la relance

dans l'attente

Je n'avais rien changé à ta macro mais en la relançant ca me refaisait des fusions: si j'avais une cellule simple Y suivie des 2 cellules Y déjà fusionnées entre elles alors ça me fusionnait ces 3 cellules lorsque je lançais la macro une seconde fois. Mais comme tu l'a compris mon objectif serait de fusion N cellules ensemble.

En essayant de comprendre et de me dépatouiller de mon coté, j'ai modifié ton code comme ceci:

Dim Lig As Byte
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    For Lig = 30 To 90
        If Cells(Lig, "A") = Cells(Lig + 1, "A") Then
            With Range(Cells(Lig, "A"), Cells(Lig + 1, "A"))
                .MergeCells = True
                 .VerticalAlignment = xlCenter
            End With
             Lig = Lig + 2
        End If
    Next
    For Lig = 30 To 90
        If Cells(Lig, "A") = Cells(Lig + 2, "A") Then
            With Range(Cells(Lig, "A"), Cells(Lig + 2, "A"))
                .MergeCells = True
                 .VerticalAlignment = xlCenter
            End With
             Lig = Lig + 3
        End If
    Next
    For Lig = 30 To 90
        If Cells(Lig, "A") = Cells(Lig + 3, "A") Then
            With Range(Cells(Lig, "A"), Cells(Lig + 3, "A"))
                .MergeCells = True
                 .VerticalAlignment = xlCenter
            End With
             Lig = Lig + 4
        End If
    Next
    Application.DisplayAlerts = True
End Sub

Et ça à l'air de plutôt bien fonctionner. Le problème (parce qu'évidement rien ne peut fonctionner parfaitement), c'est lorsque je rajoute:

    For Lig = 30 To 90
        If Cells(Lig, "A") = Cells(Lig + 4, "A") Then
            With Range(Cells(Lig, "A"), Cells(Lig + 4, "A"))
                .MergeCells = True
                 .VerticalAlignment = xlCenter
            End With
             Lig = Lig + 5
        End If
    Next

Alors là ça me fait du grand nimporte (je me retrouve avec 21 cellules fusionnées, la quasi totalité de mon tableau) alors que ça ne devrait pas...

Moi qui pensait avoir trouver la solution, je ne sais plus trop quoi penser maintenant ^^

WOUAH !!! C'est parfait !!! Merci beaucoup !!
Avec les commentaires pour m'expliquer en plus c'est vraiment top!!! Je pense avoir bien compris le code et pouvoir à l'avenir en créer un du même type tout seul (bon il me faudra quand même quelques heures d'entrainement pour bien maîtrise les conditions, les boucles, etc. mais ça viendra certainement).
Encore merci michel !!!

Merci pour ta réponse.

Pour faire mes macros j'abusais de la fonction "enregistrer une macro" comme tu dis et j'apprenais en regardant les codes dans visual basic. Le problème c'est que pour des macros avec des conditions je ne peux faire ainsi. Et pour mon cas en particulier je ne peux me débrouiller uniquement avec tes conseils.
Mais encore merci pour ta contribution.