Arnaud59000
XLDnaute Nouveau
Bonjour tout le monde,
Petite question du jour, je souhaiterai mettre en colonne des lignes avec un espace de 1 colonne entre chaque colonne.
J'ai bien essayé de me chercher ma solution ne fonctionne pas du tout :
Avec dans la colonne entre deux lignes transposée, l'inscription "PU"
En PJ un fichier test, merci d'avance 🙂
Petite question du jour, je souhaiterai mettre en colonne des lignes avec un espace de 1 colonne entre chaque colonne.
J'ai bien essayé de me chercher ma solution ne fonctionne pas du tout :
VB:
Sub transposetest()
Dim i As Integer
Dim NL As Range
i = 1
NL = Range("A1:A100").Value
While i < NL
Range(1, (2 * i)).Value = Range(i, 1).Value
Range(1, (2 * i + 1)).Value = "PU"
i = i + 1
Wend
End Sub
Avec dans la colonne entre deux lignes transposée, l'inscription "PU"
En PJ un fichier test, merci d'avance 🙂