Discussion :

[nouveauvba]

Bonjour à tous,

cette ligne de code fonctionne bien, elle écrit bien tout le listing contenu dans ma variable tableau tablodepc

Code :

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

Range("A4").Resize(UBound(tablodepc), UBound(zone, 2)) = Application.Transpose(Application.Transpose(tablodepc))

quand je veux l’alléger en enlevant les deux application.transpose

Code :

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

Range("A4").Resize(UBound(tablodepc), UBound(zone, 2)) = tablodepc

je n'ai rien qui s'inscrit

si j'en enlève qu'un (application.transpose) j'ai mon listing qui est effectivement transposé.

Vous pouvez m'expliquer pourquoi ces deux lignes de codes ne sont pas équivalentes?

D'un autre côté

Code :

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

Range("A4").Value = tablodepc

est vide aussi...

Merci par avance.

[riaolle]

Bonjour,
Essaie comme ceci :

Code :

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

Range("A4").Resize(UBound(tablodepc), UBound(zone, 2)).Value = tablodepc

Je garatie rien, mais essaie
La fonction Transpose renvoie un Range, du coup quand tu transpose 2 fois tu transformes ton tableau en Range. Ainsi, tu fais une égalité entre 2 Range et ça marche. Par contre, si tu ne fais pas de transposition, ton tableau reste un tableau et apparemment, ça ne marche pas...
Je ne garantie pas l'explication, ce sont juste des suppositions. J'ai regardé quel type d'objet Transpose renvoyait et j'en ai déduit une explication

[nouveauvba]

Merci pour ta réponse.
J'avais déjà testé cette proposition et je viens de retenter.
Ca ne fonctionne malheureusement pas et donne une erreur 13 incompatibilité de type

[Invité]

bonjour,
que représente (tablodepc,zone) et d'ou proviennent ses valeur?

Code :

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

1
2
3
4
5
6
7
8
9
10
With Sheets("Feuil1")
    e = Range(.Range("A1"), .Range("B100"))
End With
Debug.Print UBound(e, 2)
With Sheets("Feuil2")
    .Range("A2000").Resize(UBound(e, 2), UBound(e, 1)) = Application.Transpose(e)
    .Select
    .Range("A2000").Select
 
End With

[nouveauvba]

Bonjour désolé pour ce retour tardif.

Code :

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

1
2
Dim zone As Variant
Dim tablodepc() As Variant

zone me permet d'enregistrer ma plage d'analyse des données:

Code :

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

zone = Range("A1").CurrentRegion

Code :

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

1
2
3
4
5
6
7
8
9
10
For i = LBound(zone, 1) To UBound(zone, 1)
        'regarde la ligne i et la colonne 4 si la valeur correspond à XXX
        If zone(i, 4) = "XXX" Then
        C = C + 1
        ReDim Preserve tablodepc(C)
 
        tablodepc(C) = Application.Index(zone, i)
        tablo(1, 1) = C 'écrit la quantité de XXX dans le tableau de synthese
        'trouve la valeur min et l'écrit dans le tableau de synthese
        tablo(1, 2) = Application.Min(Application.Index(tablodepc, , 3))

ect ect...sur plusieurs types d'informations à trier

Si cela t'apporte plus d'éclairage

Merci par avance.