Transformation colonne en ligne

[piobote]

Bonjour,


Ma feuille (voir fichier joint) a 4 colonnes:
Colonne 'Nom' et 3 colonnes Achat1, Achat2, Achat3. Donc les achats effectués par une personne sont renseignées dans les colones.

Je souhaiterais pouvoir transformer ma feuille pour a voir une ligne pour chaque achat en repétant le nom de l'acheteur comme le montre mon exemple.


Merci


Pedro



[file name=Transformation.zip size=1790]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Transformation.zip[/file]

 

[Hervé]

bonjour piobote

une proposition en pièce jointe, en VBA :

Sub Bouton2_QuandClic()
Dim c As Range
Dim x As Byte

x = 1

For Each c In Range('a2:a' & Range('a65536').End(xlUp).Row)
&nbsp; &nbsp; If c <> '' Then
&nbsp; &nbsp; &nbsp; &nbsp; Cells(x, 8) = c
&nbsp; &nbsp; &nbsp; &nbsp; For i = 1 To Cells(c.Row, 1).End(xlToRight).Column
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Cells(x, i + 8) = c.Offset(0, i)
&nbsp; &nbsp; &nbsp; &nbsp; Next i
&nbsp; &nbsp; End If
&nbsp; &nbsp; x = x + 1
Next c
End Sub

Salut
[file name=Transformation_20050719131738.zip size=7714]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Transformation_20050719131738.zip[/file]

 

[piobote]

Merci Hervé,

Quand j'exécute l' application VB je n'obtiens pas le résultat attendu


Caroline Graveur
Caroline Barette Mémoire
Alain Barette Mémoire
Alain Disquette Disque dur
Pierre Clef USB


Merci pour l'aide

 

[Hervé]

re

oups

Dès que j'aurais 5 minutes j'irais m'inscrire au zop.

En pièce jointe ton fichier modifié

désolé

salut
[file name=Transformation2.zip size=7664]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Transformation2.zip[/file]