Bonsoir Y V E L; Il suffit de déclarer une variable String de la longueur voulue. Exemple pour un champ de longueur 10: Sub Transpose() Dim i&, Champ As String * 10 i = 1 Do If Cells(i, 1) = "" Then Exit Sub Champ = Cells(i, 1) Cells(i, 1) = Champ i = i + 1 Loop End Sub
Ne reste plus qu'à enregistrer au format csv. MP
Bonsoir Michel Pierron
Je vous remercie pour votre contribution. La macro de MPO répond parfaitement à ma demande sachant qu'elle s'applique automatiqument à l'ensemble des colonnes et elle détermine toute seule la logueur à retenir pour chaque colonne.
Très cordialement.
-- YVEL
Michel Pierron a fait l'effort de rédiger :
Bonsoir Y V E L;
Il suffit de déclarer une variable String de la longueur voulue.
Exemple pour un champ de longueur 10:
Sub Transpose()
Dim i&, Champ As String * 10
i = 1
Do
If Cells(i, 1) = "" Then Exit Sub
Champ = Cells(i, 1)
Cells(i, 1) = Champ
i = i + 1
Loop
End Sub
Ne reste plus qu'à enregistrer au format csv.
MP
Bonsoir Michel Pierron
Je vous remercie pour votre contribution.
La macro de MPO répond parfaitement à ma demande sachant qu'elle s'applique
automatiqument à l'ensemble des colonnes et elle détermine toute seule la
logueur à retenir pour chaque colonne.
Bonsoir Y V E L; Il suffit de déclarer une variable String de la longueur voulue. Exemple pour un champ de longueur 10: Sub Transpose() Dim i&, Champ As String * 10 i = 1 Do If Cells(i, 1) = "" Then Exit Sub Champ = Cells(i, 1) Cells(i, 1) = Champ i = i + 1 Loop End Sub
Ne reste plus qu'à enregistrer au format csv. MP
Bonsoir Michel Pierron
Je vous remercie pour votre contribution. La macro de MPO répond parfaitement à ma demande sachant qu'elle s'applique automatiqument à l'ensemble des colonnes et elle détermine toute seule la logueur à retenir pour chaque colonne.
