Discussion :

[jean_2940]

bonjour,

je traite des données organisées en colonnes et dans lesquelles j'ai besoin de pouvoir modifier des valeurs et/ou ajouter des lignes.
Pour accélérer le traitement je charge les données de la feuille dans une variable tableau en la transposant pour pouvoir ajouter des données avec Redim Preserve.

Une fois les données traitées j'enregistre à nouveau mes données sur la feuille en transposant la variable tableau.

Et là j'ai un souci.
Si je déclare ma variable en VARIANT j'ai l'erreur "incompatibilité de type" sur la fonction transpose.
Si je déclare ma variable en STRING pas d'erreur (sauf si j'ai plus de 65536 mais c'est un autre sujet).

Voici un code de test utilisé avec une feuille source "DATA" de 17 colonnes et un nombre variable de lignes.
le résultat est copié dans une feuille "DATA (2)".

comme j'ai des chiffres et des dates à traiter, surtout les dates je préfère rester en VARIANT.
Est-ce une limitation de la fonction transpose?
Est-ce que j'ai oublié un paramétrage quelque part ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
 
Sub test2()
 
Dim data_test2() As Variant 'avec variant ça plante un peu plus loin
 
Nbcol = 17
 
Nline = 1
 
With ThisWorkbook.Sheets("DATA")
 
    While .Cells(Nline, 1) <> ""
 
        On Error Resume Next
        Nbl = UBound(data_test2, 2)
        On Error GoTo 0
 
        If IsEmpty(Nbl) Then Nbl = 1 Else Nbl = Nbl + 1
 
        ReDim Preserve data_test2(Nbcol, Nbl)
 
        For i = 1 To Nbcol
            data_test2(i, Nbl) = .Cells(Nline, i).Value
        Next i
 
        Nline = Nline + 1
    Wend
 
End With
 
With ThisWorkbook.Sheets("DATA (2)")
 
    .Range(.Cells(1, 1), .Cells(UBound(data_test2, 2), Nbcol)) = Application.Transpose(data_test2) 'c'est ici que ça plante
 
 
End With
 
 
End Sub

[Jean-Philippe André]

Bonjour,

je ne sais pas si le sujet est traité dans cette partie du tuto :
https://didier-gonard.developpez.com...vba/#LVIII-B-2

[jean_2940]

Je n'ai rien trouvé dans cette partie là.

[pijaku]

Bonjour,

Je viens de tester avec des chaînes, des dates, des nombres, le tout mixé dans les colonnes...
Pas de souci.
Je dirais que le problème vient de ton fichier ou de tes données.

[Patrice740]

Bonjour,

While ... Wend, On Error Resume Next, tout ça me semble superflu et/ou tarabiscoté !

Pourquoi pas simplement :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub test2()
Dim nbl As Long
Dim data_test2() As Variant
  Nbcol = 17
  With ThisWorkbook.Worksheets("DATA")
    nbl = .Cells(1, 1).End(xlDown).Row
    data_test2 = Application.Transpose(.Range("A1", .Cells(nbl, Nbcol)).Value)
  End With
  With ThisWorkbook.Sheets("DATA (2)")
    .Range(.Cells(1, 1), .Cells(UBound(data_test2, 2), Nbcol)) = Application.Transpose(data_test2) 
  End With
End Sub

[jean_2940]

Merci Patrice740 d'avoir contribué.

le problème se situe au niveau du transpose final.

j'ai testé plusieurs façon d'alimenter la variable tableau pour voir si cela avait une influence et le code proposé est mon dernier test.
Il n'y a aucune volonté de faire simple, c'est juste un test pour un projet bien plus complexe.

Je continue d'investiguer.
Si je trouve je vous dirais.

[pijaku]

@jean_2940 :

Tu dis dans ta demande :

sauf si j'ai plus de 65536 mais c'est un autre sujet

Si tel est le cas, prépare tout de suite ta fonction de transposition.
Celle-ci devrait régler ton problème.

[jean_2940]

J'ai trouvé !

il s'agissait bien d'un problème lié aux données.
Dans des cellules j'avais du texte avec des retours chariots, genre "blabla" & vblf & "blabla"
Ne me demandez pas pourquoi mais ce sont bien ces données qui empêchaient la fonction transpose de fonctionner.
En les supprimant tout est rentré dans l'ordre.

Et un sujet résolu de plus.

[jean_2940]

Maintenant que ça fonctionne je constate que je n'ai pas de limitation à transposer un tableau qui comporte plus de 65536 valeurs.