[vba]Erreur d'execution 1004

pierrejean

XLDnaute Barbatruc

• 3 Juillet 2014

• #2

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

 

Vote positif 0 Vote négatif

T

tik

XLDnaute Nouveau

• 3 Juillet 2014

• #3

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) ?

 

Vote positif 0 Vote négatif

Roland_M

XLDnaute Barbatruc

• 3 Juillet 2014

• #4

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 !?

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 3 Juillet 2014

• #5

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 ?

 

Vote positif 0 Vote négatif

T

tik

XLDnaute Nouveau

• 3 Juillet 2014

• #6

Re : [vba]Erreur d'execution 1004

avec le fichier

 

Pièces jointes

• cravsfac vxldl.xlsm

  236.8 KB · Affichages: 58

Vote positif 0 Vote négatif

G

Guest

Guest

• 3 Juillet 2014

• #7

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:

Code:

   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+

 

Vote positif 0 Vote négatif

T

tik

XLDnaute Nouveau

• 3 Juillet 2014

• #8

Re : [vba]Erreur d'execution 1004

Hasco à dit:

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:

Code:

   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+

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 3 Juillet 2014

• #9

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 :

Code:

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

Code:

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

Au lieu de

Code:

Range("a" & i).Select

A+

 

Dernière modification par un modérateur: 3 Juillet 2014

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 3 Juillet 2014

• #10

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 )

 

Vote positif 0 Vote négatif

T

tik

XLDnaute Nouveau

• 3 Juillet 2014

• #11

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

 

Vote positif 0 Vote négatif