Fusion de cellules sur plusieurs colonnes selon 3 criteres

Bonjour,

je dois élaborer un tableau Excel a mettre a jour chaque semaine.

ce tableau se presente de la facon suivante :

colonne A le nom de la société

Colonne B le Type de compte

Colonne C le N° Individuel.

Une meme Société peut avoir plusieurs compte de type différent ou identiques. placement, gestion, ...

Chaque semaines des nouvelles sociétés entrent et sortent, ou ferment des comptes.

J'ai donc créer une base qui se trie puis copie les informations dans les colonne A B C

Cela donne :

Soc1 placement N°

Soc1 Placement N°

Soc1 Gestion N°

Soc2 Gestion N°

cela devient vite illisible

j'avais imaginer une macro fusionnant les cellules qui ont le même continue

Dans la colonne A cela marche tres bien, mais dans la colonne B ma macro me fusionne les mêmes types de compte MAIS DE SOCIETES DIFFERENTES.

en faite j'aimerais rajouter une condition dans ma boucle de fusion pour que la colonne B ne soit fusionnée que si elle appartient à la même société...

cela donnerait :

Soc1 placement N°

N°

Gestion N°

Soc2 Gestion N°

mais dès que j'ajoute une condition dans mon code celui ci bloque et arrete la fusion.

Quelqu'un a t'il une idée ?

Vous en remerciant par avance

Bonsoir

Yannick. a écrit :

Quelqu'un a t'il une idée ?

Tu y inscris ce que tu as, ce que tu veux et bien sur tu fournis la macro que tu as faite

Bonjour,

Désolé pour cet oubli. Hier j'ai encore retravailler le code pour essayer de le simplifier au maximum et éviter le genre "Usine a Gaz"(11eme refonte totale).

Je précise j'ai appris vba seul en grappillant par ci par là des codes et en essayant de comprendre comment ils étaient composés et je n'ai aucune formation en informatique. Je m'excuse donc par avance s'il vous semble mal écrit. Je suis preneur de tout conseil...

Merci beaucoup de votre aide

Bonjour à tous,

ce code marche pour les exemples que tu as mis dans ta feuille.

Je n'ai pas fait d'autres tests

Sub fusion11()
' 11eme version du code de fusion, presque bonne

Dim LastLig As Long, i As Long, myRange As Range, myRange2 As Range

Application.ScreenUpdating = False
Application.DisplayAlerts = False
LastLig = Cells(Rows.Count, 1).End(xlUp).Row

Set myRange = Cells(LastLig, 1)

For i = LastLig To 3 Step -1

    If Cells(i, 1) <> Cells(i - 1, 1) Then
        Range(myRange, Cells(i, 1)).Merge

        Set myRange2 = Cells(myRange.Row, 2)

        For j = myRange.Row To i Step -1

            Do While (Cells(j, 2) = Cells(j - 1, 2) And j > i)
                j = j - 1
            Loop
            Range(myRange2, Cells(j, 2)).Merge
            Set myRange2 = Cells(j - 1, 2)
        Next j

        Set myRange = Cells(i - 1, 1)

    End If
Next i

Columns("A:C").VerticalAlignment = xlTop

Application.DisplayAlerts = True
Application.DisplayAlerts = True
End Sub

Bonjour a tous

Merci Game Over cela fait un bout de temps que je bloquais.

Cela marche tu tonneres. Je vais voir a quel endrois je m'étais trompé.

Encore merci