Discussion :

[dany13]

Bonsoir,
j'ai un soucis et j'ai du mal à trouver la macro qui va bien!
Je m'explique par un exemple :

*J'ai ce fichier :




*je souhaiterai cela :


Comment puis je faire? Est ce possible?Merci bcp de votre aide!

A tres vite

[bidou]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub Test()
 
Dim Plage As Range, cmpt As Long
 
Set Plage = Range("A2")
Do Until IsEmpty(Plage)
    If Plage.MergeArea.Cells.Count > 1 Then
        Set Plage = Plage.MergeArea
        For cmpt = 2 To Plage.Cells.Count
            Plage.Cells(1).Offset(0, (2 * cmpt) - 1).Value = Plage.Cells(cmpt).Offset(, 1).Value
            Plage.Cells(1).Offset(0, 2 * cmpt).Value = Plage.Cells(cmpt).Offset(, 2).Value
        Next cmpt
        Plage.UnMerge
        Plage.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
    End If
    Set Plage = Plage.Offset(1)
Loop
 
End Sub

[dany13]

Merci beaucoup, c parfait!

En revanche, est ce que ça serait possible d'avoir un brin d'explication afin que je puisse tout de même être sur de bien comprendre le script et de pouvoir ainsi l'adapter sur d'autres cas de fichier ?

Merci infiniment
A bientot

[AlainTech]

En revanche, est ce que ça serait possible d'avoir un brin d'explication

Utilise la touche F1 sur chaque mot utilisé (sauf les vaviables Plage et cmpt).