Macro VBA pour mettre colonne en ligne avec cellule fusionnée

Version imprimable

13/01/2008, 22h10
dany13

1 pièce(s) jointe(s)

Macro VBA pour mettre colonne en ligne avec cellule fusionnée

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 :
http://dany.canalmoins.fr/wp-content...perso/tabA.jpg

*je souhaiterai cela :
http://dany.canalmoins.fr/wp-content...perso/tabB.jpg

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

A tres vite

Code:

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

14/01/2008, 10h44
dany13

:salut:
Merci beaucoup, c parfait!:king:

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 ?:lol:

Merci infiniment
A bientot
15/01/2008, 06h09
AlainTech

Citation:

Envoyé par dany13

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).