transposition lignes colonnes ...

Pierrot93 à dit:

Bonjour Nadia

regarde le code ci dessous :

Code:

Sub test()
Dim t, i As Integer, ii As Byte, j As Integer
With Range("A1:A" & Range("A65536").End(xlUp).Row)
    t = .Value
    .ClearContents
End With
i = 1: ii = 1: j = 1
Do While j <= UBound(t, 1)
    Cells(i, ii).Value = t(j, 1)
    j = j + 1
    If ii = 9 Then ii = 1: i = i + 1 Else ii = ii + 1
Loop
For i = Range("A65536").End(xlUp).Row To 1 Step -1
    If Range("IV" & i).End(xlToLeft).[B][COLOR="Red"]Column = 1[/COLOR][/B] And _
        IsEmpty(Range("IV" & i).End(xlToLeft).Value) Then Rows(i).Delete
Next i
End Sub

j'ai modifié le 5 par 9, cela crée donc 9 colonnes, alors que toi tu parles de 10 !!! Ensuite le code teste chaque ligne, si elle est complétement vide, la supprime, si tu avais prévu de mettre des titres en colonne A, il y aurait lieu de modifier le "1" par un "2" sur la ligne de code en gras et en rouge.

bonne journée
@+

Cliquez pour agrandir...