où est le problème? écriture du contenu d'une variable tableau

Version imprimable

20/04/2017, 14h45
nouveauvba

où est le problème? écriture du contenu d'une variable tableau

Bonjour à tous,

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

Code:

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:

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

8O

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:

Range("A4").Value = tablodepc

est vide aussi...

Merci par avance.
20/04/2017, 16h06
riaolle

Bonjour,
Essaie comme ceci :

Code:

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 :mrgreen:
20/04/2017, 16h19
nouveauvba

Merci pour ta réponse. :zoubi:
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 :weird:

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

Code:

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

Bonjour désolé pour ce retour tardif.

Code:

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

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

Code:

zone = Range("A1").CurrentRegion

Code:

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.