Transpose

Bonjour,

J'ai un code pour transposer une colonne qui fonctionne très bien mais je voudrai lui apporter une modification

Mon code:

Code (Text):

Sub TransposeTransList()

Dim TE(), LE&, TS(), LS&, NLst&

TE = ActiveSheet.[C5].Resize(ActiveSheet.[C10000].End(xlUp).Row - 4).Value

ReDim TS(1 To 2 * UBound(TE, 1), 1 To 2)

For LE = 1 To UBound(TE, 1)

If LE Mod 4 = 1 Then

If LS > 1 Then LS = LS + 1: TS(LS, 1) = "</ul>"

LS = LS + 1: TS(LS, 1) = "<ul class=""list_ul"">": End If

NLst = NLst + 1: LS = LS + 1: TS(LS, 2) = "<li class=""bloc""><a href=""" & Replace(TE(LE, 1), " ", "_") & ".html"" target=""myFrame"" onMouseOver=""ChangeMessage('" _

& TE(LE, 1) & "','ejs_texte','" & TE(LE, 1) & "')"" onMouseOut=""ChangeMessage('','ejs_texte')"" id=""list-" _

& Format(NLst, "00") & """>" & TE(LE, 1) & "</a></li>": Next LE

LS = LS + 1: TS(LS, 1) = "</ul>"

ActiveSheet.[E5].Resize(UBound(TS, 1), 2).Value = TS

End Sub

Mon fichier joint à toute les explication du moins je l’espère.

Je vous remercie d'avance

Max

bonjour

sans VBA

avec une fonctionnalité moderne d'Excel (depuis 10 ans ! ) incluse dans les versions plus récentes

pour toi à télécharger https://www.youtube.com/watch?v=gwW2CDdvUUs

amitiés

Bonjour

J'ai pas tous compris là?

re

voir les tutos sur Power Query dans Excel sur youtube

tu vas découvrir la magie d'Excel loin de la feuille de papier quadrillé

c'est ton avenir en tant qu'utilisateur d'Excel, au même titre que les additions.

1/ télécharge https://www.youtube.com/watch?v=gwW2CDdvUUs

2/ tu as un onglet Power Query (sur ta version d'Excel)

essaye !

bon travail

Bonjour,

@ jmd,

Tu ne réponds pas à la question posée.

Quel est l'intérêt de ton intervention ? Sinon de promouvoir Power Query sans apporter de réponse factuelle ?

Cdlt.