Macro un peu complexe

[mathieu.ms]

Salut à tous,
Me voici de retour avec le besoin d'un coup de pouce sur une macro.

Voila en gros le besoin
j'ai un tableau excel avec une restitution dynamique en ligne et en colonne.

1/ Colorier en jaune les lignes du tableau ou les valeurs des colonnes différent sauf pour colonne B.

2/ copier les valeurs de la colonne B à partir de la ligne 2( début du tableau) jusqu'à la dernière ligne du tableau dans chaque colonne du tableau

3/Fusionner la colonne A et B en prenant les valeurs de la colonne B jusqu'à la dernière ligne du tableau.

Comme je pense que cela est très flou, voici un exemple dans le fichier avec le résultat attendu.

Merci par avance car je patauge à fond.🙂🙂

Mathieu

 

[mathieu.ms]

Re : Macro un peu complexe

up 😛

désolé j'ai pas trouvé la solution tout seul 😡

 

[Hulk]

Re : Macro un peu complexe

Hello,

Places un CommandButton sur la feuille et colle-lui cette macro...

Private Sub CommandButton1_Click()
    
    Dim c As Range
    
    For Each c In Range("B2:B" & Range("B65536").End(xlUp).Row)
        
        If c.Value = "O" Or c.Value = "S" Then
            Range(Cells(c.Row, 1), Cells(c.Row, 2)).Select
        
        With Selection
            .HorizontalAlignment = xlCenter
            .Merge
        End With
        
        End If
        
        If c.Value = "" Or c.Value = "" Then
            c.Interior.ColorIndex = 6
            c.Offset(0, -1).Interior.ColorIndex = 6
            c.Offset(0, 1).Interior.ColorIndex = 6
            c.Offset(0, 2).Interior.ColorIndex = 6
            c.Offset(0, -1).Select
            Range(Cells(c.Row, 1), Cells(c.Row, 2)).Select
        
        With Selection
            .HorizontalAlignment = xlCenter
            .Merge
        End With
        
        End If

    Next c

    [A2].Select

End Sub

Vois si ça te convient.

Cdt, Hulk.