Transposer une colonne

[maval]

Bonjour,

Voila j'ai une liste de nom en colonne "A" que je voudrais transposer en colonne "D" avec un texte et N°.

je joint un fichier explicatif.

Je vous remercie d'avance

Max

 

[Jocelyn]

Bonjour le Forum,
Bonjour maval,

Absolument pas sur d'avoir compris (l'attente est peut être en VBA mais ce n'est pas spécifié) mais un essai quand même
voir formule en colonne E

Cordialement

 

[Lone-wolf]

Bonjour Max, Jocelyn

Moi j'ai fait comme ceci: ="<path id=""0"&LIGNE()-4&""" title="&""""&A5

 

[maval]

Bonjour Jocelyn, lone Wolf,

Je vous remercie
Peut-on le faire en VBA

Merci

 

[Lone-wolf]

Re Max

Option Explicit

Sub test()
Dim cr1$, cr2$, derlig&, i&, cr3
    With Feuil1
        derlig = .Cells(Rows.Count, 1).End(xlUp).Row
        cr1 = "<path id="""
        cr2 = "title="""

        For i = 5 To derlig
            cr3 = Format("0" & (i - 5) + 2, "dd")
            .Cells(i, 4) = cr1 & cr3 & """ " & cr2 & .Cells(i, 1)
        Next i
    End With
End Sub

 

[maval]

Re,

Je te remercie sa fonctionne Nickel

Bonne journée

Max

 

[Lone-wolf]

Re Max

Une autre façon plus ou moins identique

Sub test()
    Dim cr1$, cr2$, derlig&, i&, x&, cr3
    With Feuil1
        derlig = .Cells(Rows.Count, 1).End(xlUp).Row
        cr1 = "<path id="""
        cr2 = "title="""
        x = 0
        For i = 5 To derlig
          x = x + 1
            cr3 = Format("0" & x + 1, "dd")
            .Cells(i, 4) = cr1 & cr3 & """ " & cr2 & .Cells(i, 1)
        Next i
    End With
End Sub

 

[maval]

Re,
Je viens de m'apercevoir un petit souci.
J'ai des liste de noms de 40 à 600 et dans les N° arrivé à 31 sa repart a 0
Joint fichier

Merci

 

[Lone-wolf]

Re Max

Voilà j'ai apporté la modification.

Sub test()
Dim cr1$, cr2$, derlig&, i&, x&, cr3
    With Feuil1
        derlig = .Cells(Rows.Count, 1).End(xlUp).Row
        cr1 = "<path id="""
        cr2 = "title="""
        x = 0
        For i = 5 To derlig
            x = x + 1
            cr3 = Format("0" & x + 1, "dd")
            .Cells(i, 4) = cr1 & cr3 & """ " & cr2 & .Cells(i, 1)
            If x > 30 Then
                cr3 = x
                .Cells(i, 4) = cr1 & cr3 & """ " & cr2 & .Cells(i, 1)
            End If
        Next i
    End With
End Sub

 

[maval]

Re,

Je te remercie Nickel

Bonne journée
Max

 

[Lone-wolf]

Re Max

Au cas oú tu repasse, tu peux mettre 9 à la place de 30 ( > 30).

 

[Lone-wolf]

Bonsoir Max

Une correction du code, désolé pour le désagrément.

Sub test()
Dim cr1$, cr2$, derlig&, i&, x&, cr3

    With Feuil1
        derlig = .Cells(Rows.Count, 1).End(xlUp).Row
        cr1 = "<path id="""
        cr2 = "title="""
        x = 0
        For i = 5 To derlig
            x = x + 1
            cr3 = Format("0" & x, "00")
            .Cells(i, 4) = cr1 & cr3 & """ " & cr2 & .Cells(i, 1)
        Next i
    End With
End Sub

 

[maval]

Bonjour Lone wolf

je te remercie et te souhaite une bonne journée

Max

 

[Lone-wolf]

Bonjour Max, jocelyn