[vba]Erreur d'execution 1004

[tik]

bonjour,

ma macro plante sur cette ligne, sans que je comprenne pourquoi:

Sheets("ADV Powa").Range("B3").Resize(UBound(Tablo, 1), UBound(Tablo, 2)).Value = Tablo

Merci 🙂

 

[pierrejean]

Re : [vba]Erreur d'execution 1004

Bonjour tik

Sous réserve de l'orthographe du nom de la feuille et de l'existence du tablo cette ligne est correcte

 

[tik]

Re : [vba]Erreur d'execution 1004

peut il y avoir un truc lié aux bornes de l'array Tablo, qui a pour borne (1 to 8, 0 to 1960) ?

 

[Roland_M]

Re : [vba]Erreur d'execution 1004

bonjour,

si ton tablo est variant il est possible que ce soit plutôt 0 to ?
tout dépend de la configuration de ton classeur au point de vue déclaration exp Base 1 !?

 

[pierrejean]

Re : [vba]Erreur d'execution 1004

RE

Salut Roland_M

A mon avis , il ne peut pas y avoir de truc lié aux bornes du tablo

Peux-tu poster une copie de ton fichier sans données confidentielles et limité à ce qui pose problème ?

 

[tik]

Re : [vba]Erreur d'execution 1004

avec le fichier 🙂

 

[Guest]

Re : [vba]Erreur d'execution 1004

bonjour,

Roland🙂, Pierre-Jean🙂 (ravi de vous croiser)

@tik: si tu ne veux pas perdre une colonne sur la deuxième dimension (0 to 1960) :
Resize(UBound(tablo, 1), UBound(tablo, 2) + 1).Value

Ceci chez moi(xl 2010), fonctionne:

   Dim i As Integer, j As Integer
    Dim tablo(1 To 8, 0 To 1960)
    For i = 1 To 8
        For j = 0 To 1960
            tablo(i, j) = CStr(i) & "|" & CStr(j)
        Next
    Next
    Range("A1").Resize(UBound(tablo, 1), UBound(tablo, 2) + 1).Value = tablo

A+

 

[tik]

Re : [vba]Erreur d'execution 1004

bonjour,

Roland🙂, Pierre-Jean🙂 (ravi de vous croiser)

@tik: si tu ne veux pas perdre une colonne sur la deuxième dimension (0 to 1960) :
Resize(UBound(tablo, 1), UBound(tablo, 2) + 1).Value

Ceci chez moi(xl 2010), fonctionne:

   Dim i As Integer, j As Integer
    Dim tablo(1 To 8, 0 To 1960)
    For i = 1 To 8
        For j = 0 To 1960
            tablo(i, j) = CStr(i) & "|" & CStr(j)
        Next
    Next
    Range("A1").Resize(UBound(tablo, 1), UBound(tablo, 2) + 1).Value = tablo

A+

j'ai déjà essayé avant de poster 🙁

 

[Guest]

Re : [vba]Erreur d'execution 1004

Re,

Alors pourquoi dans ton post #1 tu as Ubound(Tablo,2) et non pas Ubound(Tablo,2)+1

Je viens de voir en remontant le fil que tu as joins un fichier.
Je n'ai pas eu d'erreur sur :

Sheets("ADV Powa").Range("B3").Resize(UBound(Tablo, 1), UBound(Tablo, 2)).Value = Tablo

Par contre les SELECT dans les boucle ralentisse le fonctionnement de ta macro.
Il vaut mieux référencer les celules dans des variables plutôt que les selectionner.
Ta feuille de calcul est un tableau indicé de 1,1 pour A1 à 1048576,16384 pour la cellule XFD1048576

Dim C as range
Set C = Range("a" & i)
'Ou 
Set C = Cells(i,1) ' ligne i colonne 1)

Au lieu de

Range("a" & i).Select

A+

 

[pierrejean]

Re : [vba]Erreur d'execution 1004

Re

Hello Hasco ravi également de te croiser

@ tiki
Chez moi et sous 2007 , pas de plantage
OK avec Hasco pour le +1
Par contre trop de Select a mon gout (et pas celui qui irait bien: Sheets("Sheet1").select )

 

[tik]

Re : [vba]Erreur d'execution 1004

chez moi ça ne marche pas 🙁 même avec un transpose, toujours la même erreur
je ne comprends pas comment me débarrasser du .select