Colonne vers ligne : de 4 en 4...

[will]

Bonjour le forum,

alors j'ai une base de données mais elle se trouve sur une seule colonne et je voudrai la transformer en une succession de ligne pour avoir une base de données normale.

En fait disons que j'ai des données dans A1 A2 A3 A4 et que je les voudrai dans A1 B1 C1 D1
puis j'ai des données dans A5 A6 A7 A8 et que je les voudrai dans A2 B2 C2 D2
et ainsi de suite de 4 en 4...

est ce possible? je ne vois pas trop comment passer de 4 en 4...

merci si quelqu'un peut m'aider ca me serait vraiment utile parce que deplacer des cellules manuellement c ch... 🙂)

je paye ma tournée si on arrive a m'aider ;-)

a +
will

 

[Monique]

Bonjour,

Tu ne vas pas démarrer en A1, car tu as des données en A1.

Si tu démarres en B1, formule en B1, à copier-coller vers le droite et vers le bas :
=DECALER($A$1;MOD(LIGNE()-LIGNE($B$1);80000)*4+COLONNE()-COLONNE($B$1)😉
ou bien :
=DECALER($A$1;MOD(LIGNE()-LIGNE($B$1);80000)*4+COLONNE()-COLONNE($B$1);0)

Si tu démarres en C9 :
=DECALER($A$1;MOD(LIGNE()-LIGNE($C$9);80000)*4+COLONNE()-COLONNE($C$9)😉
ou bien :
=DECALER($A$1;MOD(LIGNE()-LIGNE($C$9);80000)*4+COLONNE()-COLONNE($C$9);0)
(le nombre 80000, c'est simplement un grand multiple de 4, grand au cas où tu aurais beaucoup de lignes)

 

[will]

bonjour monique,

merci de ta reponse mais je comprend pas bien comment marche cette formule...???

Je comprend la formule mais je ne vois pas bien comment l'appliquer en fait?


merci de me preciser ta pensée.
a +
will

 

[will]

et sinon en VB pas de solution a ce probleme??
merci

 

[Pascal76]

Salut Will

esaies ce code

Sub modif()

Dim lig as integer
dim col as integer

lig = 1
col = 2

For x = 2 To Sheets("Feuil1").Range("A65536").End(xlUp).Row
Sheets("Feuil1").Cells(lig, col) = Sheets("Feuil1").Range("A" & x)
Sheets("Feuil1").Range("A" & x).ClearContents
col = col + 1
If col = 5 Then
col = 1
lig = lig + 1
End If
Next

End Sub


Bon courage

Pascal

 

[Monique]

Bonjour,

Je t'ai fait un fichier, ce sera plus simple.

 

[will]

Re Monique et Pascal !!!

merci beaucoup a vous deux ca marche bien !!!! les deux solutions sont cool.

Excel quand tu nous tiens...!!! lol

Vous imaginez pas comme ca m'aide!

A bientot et des que je pourrai aider des gens comme vous le faites je le ferai!

Will