basculer affichage vertical a horizontal pour donnees

[yaya73]

Bonjour,

j'ai un fichier excel avec une liste de 100 entreprises verticale et je souhaiterais savoir s'il est possible de mettre l'ensemble horizontalement afin de faire de tri (voir fichier joint)


merci.

ce que j'ai :

nom de l'entreprise
la rue
75000 ville
01 02 03 04 05


nom de l'entreprise2
la rue
75000 ville
01 02 03 04 05


nom de l'entreprise3
la rue
75000 ville
01 02 03 04 05

********************************************

ce que je voudrais

nom de l'entreprise la rue 75000 ville 01 02 03 04 05
nom de l'entreprise la rue 75000 ville 01 02 03 04 05
nom de l'entreprise la rue 75000 ville 01 02 03 04 05

 

[youky(BJ)]

Re : basculer affichage vertical a horizontal pour donnees

Bonjour yaya,
Voici une solution par macro qu'il te faut activer à l'ouverture du fichier.
Bruno

Sub copytranspose()
lig = 1
[F1:I65000].ClearContents
Cells(lig, 6) = "Nom": Cells(lig, 7) = "Adresse": Cells(lig, 8) = "CP Ville": Cells(lig, 9) = "Tél"
For k = 5 To 65000 Step 6
If Cells(k, 2) = "" Then Exit For
lig = lig + 1
Cells(lig, 6) = Cells(k, 2): Cells(lig, 7) = Cells(k + 1, 2)
Cells(lig, 8) = Cells(k + 2, 2): Cells(lig, 9) = Cells(k + 3, 2)
Next
Range("F1:I1").AutoFilter
End Sub

 

[BOISGONTIER]

Re : basculer affichage vertical a horizontal pour donnees

Bonjour,

Voir PJ

Sub transpose()
  fin = [B65000].End(xlUp).Row
  Dim a()
  ReDim a(1 To (fin - 4) / 6, 1 To 4)
  For i = 5 To fin Step 6
    For k = 0 To 3: a((i + 1) / 6, k + 1) = Cells(i + k, 2): Next k
  Next i
  [f2].Resize((fin - 4) / 6, 4) = a
End Sub

JB

 

[yaya73]

Re : basculer affichage vertical a horizontal pour donnees

je vous remercie à vous 2, cependant j'ai oublié de préciser qqchose, .... je suis une grosse quille en excel 😀 donc moi bête et méchant je souhaite rajouter des adresses dans le fichier mais celle-ci ne s'affichent pas dans le menu déroulant

desolé

 

[youky(BJ)]

Re : basculer affichage vertical a horizontal pour donnees

Bonsoir,
Le plus facile pour toi est d'ouvrir mon fichier ou celui de JB (au choix)
Active bien les macros dés l'ouverture.
Ouvre ensuite ton fichier avec les adresses en colonne B
Va dans le menu >Outils>Macro > sélectionne la macro et clique sur exécuter.
Bruno