Discussion :

[Daranc]

Bonjour
je declare un tableau

Code :

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

Dim tri() as variant

après plusieurs manipulations de mon tableau
le redim preserve me construit un tableau tri(1 to 16; 1 to 308)
lorsque que je veux le poser sur la feuille avec l'instruction

Code :

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

1
2
3
With Sheets(5)
.Range("a2").Resize(UBound(tri, 1), UBound(tri, 2)).Value = Application.WorksheetFunction.Transpose(tri)
End With

j'ai un retour d'erreur : incompatibilité de type

[oOVaveOo]

Bonjour,
comme tu transpose, ne faut-il pas mettre ta 2ème dimension en premier dans ta plage ?

Code :

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

1
2
3
With Sheets(5)
.Range("a2").Resize(UBound(tri, 2), UBound(tri, 1)).Value = Application.WorksheetFunction.Transpose(tri)
End With

[Daranc]

hélas j'ai déjà tenté le coup et j'ai la même erreur
j'ai changer le nom du tableau ( comme le programme est assez gros je ne voulais pas qu'une variable de même nom puisse générer cette erreur
puis j'ai essayer avec la plage numérotée

Code :

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

.Range("a2:p309").Value = Application.WorksheetFunction.Transpose(tableau_corIG)

même réultats

[oOVaveOo]

Tu as essayé de le coller sur la feuille en bouclant dessus ?
Il y a peut-être une valeur dans ton tableau qui génère l'erreur (genre trop de caractères ou je ne sais quoi) ???

Au moins tu verrais à quel index ça plante.

[Daranc]

bon le truc était finalement la solution
long , très long mais finalement une date était entré avec un -
j'ai corrigé la valeur et le programme tourne correctement
Merci
bon ça rebug
finalement j'ai résolu le problème avec cette petite astuce

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim pose(1 To 500, 1 To 16)
For t = 1 To UBound(tri, 2)
For u = 1 To 16
pose(t, u) = tri(u, t)
Next
Next
For t = UBound(tri, 2) To 500
For u = 1 To 16
pose(t, u) = ""
Next
Next

pas des plus orthodoxe mais ça soulage mes maux de têtes
et la pose se faite simplement par

Code :

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

1
2
3
With Sheets(1)
.Range("a2").Resize(UBound(pose, 1), UBound(pose, 2)).Value = pose
End With

je vais d'ailleurs regarder si le fait de prendre les limites de tri ne supprimerait pas les #NA
bon ça tourne les limite du tableau tri permettent de supprimer la deuxième double boucle.