Discussion :

[cjacquel]

Bonjour,

Dans un état en tableau, les titres des colonnes se chevauchent quand il y a trop de colonnes. Comment faire pour écrire les titres des colonnes en vertical ?

Merci,
Christophe

[random]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
Function tligne(x As String) As String
Dim rep As String
Dim boucle As Integer
For boucle = 1 To Len(x)
rep = rep & Mid(x, boucle, 1) & Chr(10)
Next boucle
tligne = Left(rep, Len(rep) - 1)
End Function