bonjour,
je declare un tableau en variant et je le remplis dans une
boucle.
le nb de lignes et fixe, par contre , j'aimerais connaitre
son nb de colonnes pour faire dans la boucle :
redim preserve tableau( , nbcolonnes+1)
//je suis meme pas sur du blanc avant la virgule ...
merci de m'aider !
a+
bonjour,
je declare un tableau en variant et je le remplis dans une
boucle.
le nb de lignes et fixe, par contre , j'aimerais connaitre
son nb de colonnes pour faire dans la boucle :
redim preserve tableau( , nbcolonnes+1)
//je suis meme pas sur du blanc avant la virgule ...
merci de m'aider !
a+
bonjour,
je declare un tableau en variant et je le remplis dans une
boucle.
le nb de lignes et fixe, par contre , j'aimerais connaitre
son nb de colonnes pour faire dans la boucle :
redim preserve tableau( , nbcolonnes+1)
//je suis meme pas sur du blanc avant la virgule ...
merci de m'aider !
a+
-----Message d'origine-----
re,
je te fais passer un petit exemple, il fait suite à ta
premiere demande.
Donc j'ai mis en ligne 0 du texte à la colonne 0
Sub test1()
Dim tablo() ' Declaration d'un tableau dynamique
ReDim tablo(10, 1) 'Dimensions initiales
tablo(0, 0) = "blabla"
For i = 1 To 9
ReDim Preserve tablo(10, 1 + i) ' Agrandissement
sur les colonnes
tablo(i, 0) = i: tablo(i, 1) = 2 * i: tablo(i, 1
+ i) = 3 * i
Next i
For i = 0 To 9
For j = 0 To UBound(tablo, 2) 'pour connaitre la
taille
'de la 2e dimension
(colonne)
Debug.Print tablo(i, j),
Next j
Debug.Print
Next i
End Sub
Copies ca dans un module et affiche la fenêtre dexecution
pour voir le
résultat.
A+
Eric
"pierref" écrivait
news:441601c42b8a$594594b0$:bonjour,
je declare un tableau en variant et je le remplis dans
une
boucle.
le nb de lignes et fixe, par contre , j'aimerais
connaitre
son nb de colonnes pour faire dans la boucle :
redim preserve tableau( , nbcolonnes+1)
//je suis meme pas sur du blanc avant la virgule ...
merci de m'aider !
a+
.
-----Message d'origine-----
re,
je te fais passer un petit exemple, il fait suite à ta
premiere demande.
Donc j'ai mis en ligne 0 du texte à la colonne 0
Sub test1()
Dim tablo() ' Declaration d'un tableau dynamique
ReDim tablo(10, 1) 'Dimensions initiales
tablo(0, 0) = "blabla"
For i = 1 To 9
ReDim Preserve tablo(10, 1 + i) ' Agrandissement
sur les colonnes
tablo(i, 0) = i: tablo(i, 1) = 2 * i: tablo(i, 1
+ i) = 3 * i
Next i
For i = 0 To 9
For j = 0 To UBound(tablo, 2) 'pour connaitre la
taille
'de la 2e dimension
(colonne)
Debug.Print tablo(i, j),
Next j
Debug.Print
Next i
End Sub
Copies ca dans un module et affiche la fenêtre dexecution
pour voir le
résultat.
A+
Eric
"pierref" <anonymous@discussions.microsoft.com> écrivait
news:441601c42b8a$594594b0$a001280a@phx.gbl:
bonjour,
je declare un tableau en variant et je le remplis dans
une
boucle.
le nb de lignes et fixe, par contre , j'aimerais
connaitre
son nb de colonnes pour faire dans la boucle :
redim preserve tableau( , nbcolonnes+1)
//je suis meme pas sur du blanc avant la virgule ...
merci de m'aider !
a+
.
-----Message d'origine-----
re,
je te fais passer un petit exemple, il fait suite à ta
premiere demande.
Donc j'ai mis en ligne 0 du texte à la colonne 0
Sub test1()
Dim tablo() ' Declaration d'un tableau dynamique
ReDim tablo(10, 1) 'Dimensions initiales
tablo(0, 0) = "blabla"
For i = 1 To 9
ReDim Preserve tablo(10, 1 + i) ' Agrandissement
sur les colonnes
tablo(i, 0) = i: tablo(i, 1) = 2 * i: tablo(i, 1
+ i) = 3 * i
Next i
For i = 0 To 9
For j = 0 To UBound(tablo, 2) 'pour connaitre la
taille
'de la 2e dimension
(colonne)
Debug.Print tablo(i, j),
Next j
Debug.Print
Next i
End Sub
Copies ca dans un module et affiche la fenêtre dexecution
pour voir le
résultat.
A+
Eric
"pierref" écrivait
news:441601c42b8a$594594b0$:bonjour,
je declare un tableau en variant et je le remplis dans
une
boucle.
le nb de lignes et fixe, par contre , j'aimerais
connaitre
son nb de colonnes pour faire dans la boucle :
redim preserve tableau( , nbcolonnes+1)
//je suis meme pas sur du blanc avant la virgule ...
merci de m'aider !
a+
.
Dim tabcorrel
ReDim tabcorrel(0, 0)
//normalement, je boucle sur ce qui suit
//(mon recordset "temp" change a chaque iteration)
temp.MoveLast
longueur = temp.RecordCount
nbcol = UBound(tabcorrel, 2) + 1
ReDim Preserve tabcorrel(0 To (longueur), 0 To nbcol)
tabcorrel(0, nbcol) = nom
i = 1
temp.MoveFirst
Do Until temp.EOF
tabcorrel(i, nbcol) = temp!valeur
i = i + 1
temp.MoveNext
Loop
voila mon code, en sachant que temp est un recordset qui
contient des double, et que longueur correspond a la
taille du recordset.(qui est tjs la meme cad 43)
Ca plante sur le redim preserve... j'ai l'erreur :
"indice en dehors de la plage", dès le premier passage.
merci de m'aider une fois de plus
:-)-----Message d'origine----- re,
je te fais passer un petit exemple, il fait suite à ta premiere
demande. Donc j'ai mis en ligne 0 du texte à la colonne 0
Sub test1()
Dim tablo() ' Declaration d'un tableau dynamique
ReDim tablo(10, 1) 'Dimensions initiales
tablo(0, 0) = "blabla"
For i = 1 To 9
ReDim Preserve tablo(10, 1 + i) ' Agrandissement sur les
colonnes tablo(i, 0) = i: tablo(i, 1) = 2 * i: tablo(i, 1 + i)
= 3 * i
Next i
For i = 0 To 9
For j = 0 To UBound(tablo, 2) 'pour connaitre la taille 'de la 2e
dimension (colonne)
Debug.Print tablo(i, j),
Next j
Debug.Print
Next i
End Sub
Copies ca dans un module et affiche la fenêtre dexecution pour voir le
résultat.
A+
Eric
"pierref" écrivait
news:441601c42b8a$594594b0$:bonjour,
je declare un tableau en variant et je le remplis dans une boucle.
le nb de lignes et fixe, par contre , j'aimerais connaitre
son nb de colonnes pour faire dans la boucle :
redim preserve tableau( , nbcolonnes+1)
//je suis meme pas sur du blanc avant la virgule ...
merci de m'aider !
a+
.
Dim tabcorrel
ReDim tabcorrel(0, 0)
//normalement, je boucle sur ce qui suit
//(mon recordset "temp" change a chaque iteration)
temp.MoveLast
longueur = temp.RecordCount
nbcol = UBound(tabcorrel, 2) + 1
ReDim Preserve tabcorrel(0 To (longueur), 0 To nbcol)
tabcorrel(0, nbcol) = nom
i = 1
temp.MoveFirst
Do Until temp.EOF
tabcorrel(i, nbcol) = temp!valeur
i = i + 1
temp.MoveNext
Loop
voila mon code, en sachant que temp est un recordset qui
contient des double, et que longueur correspond a la
taille du recordset.(qui est tjs la meme cad 43)
Ca plante sur le redim preserve... j'ai l'erreur :
"indice en dehors de la plage", dès le premier passage.
merci de m'aider une fois de plus
:-)
-----Message d'origine----- re,
je te fais passer un petit exemple, il fait suite à ta premiere
demande. Donc j'ai mis en ligne 0 du texte à la colonne 0
Sub test1()
Dim tablo() ' Declaration d'un tableau dynamique
ReDim tablo(10, 1) 'Dimensions initiales
tablo(0, 0) = "blabla"
For i = 1 To 9
ReDim Preserve tablo(10, 1 + i) ' Agrandissement sur les
colonnes tablo(i, 0) = i: tablo(i, 1) = 2 * i: tablo(i, 1 + i)
= 3 * i
Next i
For i = 0 To 9
For j = 0 To UBound(tablo, 2) 'pour connaitre la taille 'de la 2e
dimension (colonne)
Debug.Print tablo(i, j),
Next j
Debug.Print
Next i
End Sub
Copies ca dans un module et affiche la fenêtre dexecution pour voir le
résultat.
A+
Eric
"pierref" <anonymous@discussions.microsoft.com> écrivait
news:441601c42b8a$594594b0$a001280a@phx.gbl:
bonjour,
je declare un tableau en variant et je le remplis dans une boucle.
le nb de lignes et fixe, par contre , j'aimerais connaitre
son nb de colonnes pour faire dans la boucle :
redim preserve tableau( , nbcolonnes+1)
//je suis meme pas sur du blanc avant la virgule ...
merci de m'aider !
a+
.
Dim tabcorrel
ReDim tabcorrel(0, 0)
//normalement, je boucle sur ce qui suit
//(mon recordset "temp" change a chaque iteration)
temp.MoveLast
longueur = temp.RecordCount
nbcol = UBound(tabcorrel, 2) + 1
ReDim Preserve tabcorrel(0 To (longueur), 0 To nbcol)
tabcorrel(0, nbcol) = nom
i = 1
temp.MoveFirst
Do Until temp.EOF
tabcorrel(i, nbcol) = temp!valeur
i = i + 1
temp.MoveNext
Loop
voila mon code, en sachant que temp est un recordset qui
contient des double, et que longueur correspond a la
taille du recordset.(qui est tjs la meme cad 43)
Ca plante sur le redim preserve... j'ai l'erreur :
"indice en dehors de la plage", dès le premier passage.
merci de m'aider une fois de plus
:-)-----Message d'origine----- re,
je te fais passer un petit exemple, il fait suite à ta premiere
demande. Donc j'ai mis en ligne 0 du texte à la colonne 0
Sub test1()
Dim tablo() ' Declaration d'un tableau dynamique
ReDim tablo(10, 1) 'Dimensions initiales
tablo(0, 0) = "blabla"
For i = 1 To 9
ReDim Preserve tablo(10, 1 + i) ' Agrandissement sur les
colonnes tablo(i, 0) = i: tablo(i, 1) = 2 * i: tablo(i, 1 + i)
= 3 * i
Next i
For i = 0 To 9
For j = 0 To UBound(tablo, 2) 'pour connaitre la taille 'de la 2e
dimension (colonne)
Debug.Print tablo(i, j),
Next j
Debug.Print
Next i
End Sub
Copies ca dans un module et affiche la fenêtre dexecution pour voir le
résultat.
A+
Eric
"pierref" écrivait
news:441601c42b8a$594594b0$:bonjour,
je declare un tableau en variant et je le remplis dans une boucle.
le nb de lignes et fixe, par contre , j'aimerais connaitre
son nb de colonnes pour faire dans la boucle :
redim preserve tableau( , nbcolonnes+1)
//je suis meme pas sur du blanc avant la virgule ...
merci de m'aider !
a+
.
-----Message d'origine-----
Est ce génant si tu me fais passer ta base avec juste ce
qu'il faut pour
faire le traitement, à savoir la source de tes recordsets
car là faut
mettre des points d'arrêt dans la procédure et faire du
pas à pas.
Laisses ta proc je regarderai comment elle tourne pour
adapter.
Si c'est pas confidentiel, tu peux m'envoyer ca a mon
adresse en enlevant
les ZZ. Base en zip ou rar
Ok ?
Eric
"pierref" écrivait
news:428c01c42b93$49e77930$:Dim tabcorrel
ReDim tabcorrel(0, 0)
//normalement, je boucle sur ce qui suit
//(mon recordset "temp" change a chaque iteration)
temp.MoveLast
longueur = temp.RecordCount
nbcol = UBound(tabcorrel, 2) + 1
ReDim Preserve tabcorrel(0 To (longueur), 0 To nbcol)
tabcorrel(0, nbcol) = nom
i = 1
temp.MoveFirst
Do Until temp.EOF
tabcorrel(i, nbcol) = temp!valeur
i = i + 1
temp.MoveNext
Loop
voila mon code, en sachant que temp est un recordset
qui
contient des double, et que longueur correspond a la
taille du recordset.(qui est tjs la meme cad 43)
Ca plante sur le redim preserve... j'ai l'erreur :
"indice en dehors de la plage", dès le premier passage.
merci de m'aider une fois de plus
:-)-----Message d'origine----- re,
je te fais passer un petit exemple, il fait suite à ta
premiere
demande. Donc j'ai mis en ligne 0 du texte à la colonne
0
Sub test1()
Dim tablo() ' Declaration d'un tableau dynamique
ReDim tablo(10, 1) 'Dimensions initiales
tablo(0, 0) = "blabla"
For i = 1 To 9
ReDim Preserve tablo(10, 1 + i) '
Agrandissement sur les
colonnes tablo(i, 0) = i: tablo(i, 1) = 2 * i:
tablo(i, 1 + i)
= 3 * i
Next i
For i = 0 To 9
For j = 0 To UBound(tablo, 2) 'pour connaitre la
taille 'de la 2e
dimension (colonne)
Debug.Print tablo(i, j),
Next j
Debug.Print
Next i
End Sub
Copies ca dans un module et affiche la fenêtre
dexecution pour voir le
résultat.
A+
Eric
"pierref"
écrivait
news:441601c42b8a$594594b0$:bonjour,
je declare un tableau en variant et je le remplis
dans une boucle.
le nb de lignes et fixe, par contre , j'aimerais
connaitre
son nb de colonnes pour faire dans la boucle :
redim preserve tableau( , nbcolonnes+1)
//je suis meme pas sur du blanc avant la virgule ...
merci de m'aider !
a+
.
.
-----Message d'origine-----
Est ce génant si tu me fais passer ta base avec juste ce
qu'il faut pour
faire le traitement, à savoir la source de tes recordsets
car là faut
mettre des points d'arrêt dans la procédure et faire du
pas à pas.
Laisses ta proc je regarderai comment elle tourne pour
adapter.
Si c'est pas confidentiel, tu peux m'envoyer ca a mon
adresse en enlevant
les ZZ. Base en zip ou rar
Ok ?
Eric
"pierref" <anonymous@discussions.microsoft.com> écrivait
news:428c01c42b93$49e77930$a601280a@phx.gbl:
Dim tabcorrel
ReDim tabcorrel(0, 0)
//normalement, je boucle sur ce qui suit
//(mon recordset "temp" change a chaque iteration)
temp.MoveLast
longueur = temp.RecordCount
nbcol = UBound(tabcorrel, 2) + 1
ReDim Preserve tabcorrel(0 To (longueur), 0 To nbcol)
tabcorrel(0, nbcol) = nom
i = 1
temp.MoveFirst
Do Until temp.EOF
tabcorrel(i, nbcol) = temp!valeur
i = i + 1
temp.MoveNext
Loop
voila mon code, en sachant que temp est un recordset
qui
contient des double, et que longueur correspond a la
taille du recordset.(qui est tjs la meme cad 43)
Ca plante sur le redim preserve... j'ai l'erreur :
"indice en dehors de la plage", dès le premier passage.
merci de m'aider une fois de plus
:-)
-----Message d'origine----- re,
je te fais passer un petit exemple, il fait suite à ta
premiere
demande. Donc j'ai mis en ligne 0 du texte à la colonne
0
Sub test1()
Dim tablo() ' Declaration d'un tableau dynamique
ReDim tablo(10, 1) 'Dimensions initiales
tablo(0, 0) = "blabla"
For i = 1 To 9
ReDim Preserve tablo(10, 1 + i) '
Agrandissement sur les
colonnes tablo(i, 0) = i: tablo(i, 1) = 2 * i:
tablo(i, 1 + i)
= 3 * i
Next i
For i = 0 To 9
For j = 0 To UBound(tablo, 2) 'pour connaitre la
taille 'de la 2e
dimension (colonne)
Debug.Print tablo(i, j),
Next j
Debug.Print
Next i
End Sub
Copies ca dans un module et affiche la fenêtre
dexecution pour voir le
résultat.
A+
Eric
"pierref" <anonymous@discussions.microsoft.com>
écrivait
news:441601c42b8a$594594b0$a001280a@phx.gbl:
bonjour,
je declare un tableau en variant et je le remplis
dans une boucle.
le nb de lignes et fixe, par contre , j'aimerais
connaitre
son nb de colonnes pour faire dans la boucle :
redim preserve tableau( , nbcolonnes+1)
//je suis meme pas sur du blanc avant la virgule ...
merci de m'aider !
a+
.
.
-----Message d'origine-----
Est ce génant si tu me fais passer ta base avec juste ce
qu'il faut pour
faire le traitement, à savoir la source de tes recordsets
car là faut
mettre des points d'arrêt dans la procédure et faire du
pas à pas.
Laisses ta proc je regarderai comment elle tourne pour
adapter.
Si c'est pas confidentiel, tu peux m'envoyer ca a mon
adresse en enlevant
les ZZ. Base en zip ou rar
Ok ?
Eric
"pierref" écrivait
news:428c01c42b93$49e77930$:Dim tabcorrel
ReDim tabcorrel(0, 0)
//normalement, je boucle sur ce qui suit
//(mon recordset "temp" change a chaque iteration)
temp.MoveLast
longueur = temp.RecordCount
nbcol = UBound(tabcorrel, 2) + 1
ReDim Preserve tabcorrel(0 To (longueur), 0 To nbcol)
tabcorrel(0, nbcol) = nom
i = 1
temp.MoveFirst
Do Until temp.EOF
tabcorrel(i, nbcol) = temp!valeur
i = i + 1
temp.MoveNext
Loop
voila mon code, en sachant que temp est un recordset
qui
contient des double, et que longueur correspond a la
taille du recordset.(qui est tjs la meme cad 43)
Ca plante sur le redim preserve... j'ai l'erreur :
"indice en dehors de la plage", dès le premier passage.
merci de m'aider une fois de plus
:-)-----Message d'origine----- re,
je te fais passer un petit exemple, il fait suite à ta
premiere
demande. Donc j'ai mis en ligne 0 du texte à la colonne
0
Sub test1()
Dim tablo() ' Declaration d'un tableau dynamique
ReDim tablo(10, 1) 'Dimensions initiales
tablo(0, 0) = "blabla"
For i = 1 To 9
ReDim Preserve tablo(10, 1 + i) '
Agrandissement sur les
colonnes tablo(i, 0) = i: tablo(i, 1) = 2 * i:
tablo(i, 1 + i)
= 3 * i
Next i
For i = 0 To 9
For j = 0 To UBound(tablo, 2) 'pour connaitre la
taille 'de la 2e
dimension (colonne)
Debug.Print tablo(i, j),
Next j
Debug.Print
Next i
End Sub
Copies ca dans un module et affiche la fenêtre
dexecution pour voir le
résultat.
A+
Eric
"pierref"
écrivait
news:441601c42b8a$594594b0$:bonjour,
je declare un tableau en variant et je le remplis
dans une boucle.
le nb de lignes et fixe, par contre , j'aimerais
connaitre
son nb de colonnes pour faire dans la boucle :
redim preserve tableau( , nbcolonnes+1)
//je suis meme pas sur du blanc avant la virgule ...
merci de m'aider !
a+
.
.
en fait je peux pas te la faire passer...
c'est plutot confidentiel. malheureusement.
J'ai fait du pas a pas mais y'a rien d'incohérent :
longueur et nbcol ne sont pas à 0 lors du plantage.
Sinon, tu ne vois rien de faux dans le bout de code que
j'ai mis dans le message précédent ?
En tout cas merci bcp
a+-----Message d'origine-----
Est ce génant si tu me fais passer ta base avec juste ce qu'il faut
pour faire le traitement, à savoir la source de tes recordsets car là
faut mettre des points d'arrêt dans la procédure et faire du pas à
pas. Laisses ta proc je regarderai comment elle tourne pour adapter.
Si c'est pas confidentiel, tu peux m'envoyer ca a mon adresse en
enlevant les ZZ. Base en zip ou rar
Ok ?
Eric
"pierref" écrivait
news:428c01c42b93$49e77930$:Dim tabcorrel
ReDim tabcorrel(0, 0)
//normalement, je boucle sur ce qui suit
//(mon recordset "temp" change a chaque iteration)
temp.MoveLast
longueur = temp.RecordCount
nbcol = UBound(tabcorrel, 2) + 1
ReDim Preserve tabcorrel(0 To (longueur), 0 To nbcol)
tabcorrel(0, nbcol) = nom
i = 1
temp.MoveFirst
Do Until temp.EOF
tabcorrel(i, nbcol) = temp!valeur
i = i + 1
temp.MoveNext
Loop
voila mon code, en sachant que temp est un recordset qui
contient des double, et que longueur correspond a la
taille du recordset.(qui est tjs la meme cad 43)
Ca plante sur le redim preserve... j'ai l'erreur :
"indice en dehors de la plage", dès le premier passage.
merci de m'aider une fois de plus
:-)-----Message d'origine----- re,
je te fais passer un petit exemple, il fait suite à ta premiere
demande. Donc j'ai mis en ligne 0 du texte à la colonne 0
Sub test1()
Dim tablo() ' Declaration d'un tableau dynamique
ReDim tablo(10, 1) 'Dimensions initiales
tablo(0, 0) = "blabla"
For i = 1 To 9
ReDim Preserve tablo(10, 1 + i) ' Agrandissement sur les
colonnes tablo(i, 0) = i: tablo(i, 1) = 2 * i: tablo(i, 1 +
i) = 3 * i
Next i
For i = 0 To 9
For j = 0 To UBound(tablo, 2) 'pour connaitre la taille 'de la
2e dimension (colonne)
Debug.Print tablo(i, j),
Next j
Debug.Print
Next i
End Sub
Copies ca dans un module et affiche la fenêtre dexecution pour voir
le résultat.
A+
Eric
"pierref" écrivait
news:441601c42b8a$594594b0$:bonjour,
je declare un tableau en variant et je le remplis dans une
boucle.
le nb de lignes et fixe, par contre , j'aimerais connaitre
son nb de colonnes pour faire dans la boucle :
redim preserve tableau( , nbcolonnes+1)
//je suis meme pas sur du blanc avant la virgule ...
merci de m'aider !
a+
.
.
en fait je peux pas te la faire passer...
c'est plutot confidentiel. malheureusement.
J'ai fait du pas a pas mais y'a rien d'incohérent :
longueur et nbcol ne sont pas à 0 lors du plantage.
Sinon, tu ne vois rien de faux dans le bout de code que
j'ai mis dans le message précédent ?
En tout cas merci bcp
a+
-----Message d'origine-----
Est ce génant si tu me fais passer ta base avec juste ce qu'il faut
pour faire le traitement, à savoir la source de tes recordsets car là
faut mettre des points d'arrêt dans la procédure et faire du pas à
pas. Laisses ta proc je regarderai comment elle tourne pour adapter.
Si c'est pas confidentiel, tu peux m'envoyer ca a mon adresse en
enlevant les ZZ. Base en zip ou rar
Ok ?
Eric
"pierref" <anonymous@discussions.microsoft.com> écrivait
news:428c01c42b93$49e77930$a601280a@phx.gbl:
Dim tabcorrel
ReDim tabcorrel(0, 0)
//normalement, je boucle sur ce qui suit
//(mon recordset "temp" change a chaque iteration)
temp.MoveLast
longueur = temp.RecordCount
nbcol = UBound(tabcorrel, 2) + 1
ReDim Preserve tabcorrel(0 To (longueur), 0 To nbcol)
tabcorrel(0, nbcol) = nom
i = 1
temp.MoveFirst
Do Until temp.EOF
tabcorrel(i, nbcol) = temp!valeur
i = i + 1
temp.MoveNext
Loop
voila mon code, en sachant que temp est un recordset qui
contient des double, et que longueur correspond a la
taille du recordset.(qui est tjs la meme cad 43)
Ca plante sur le redim preserve... j'ai l'erreur :
"indice en dehors de la plage", dès le premier passage.
merci de m'aider une fois de plus
:-)
-----Message d'origine----- re,
je te fais passer un petit exemple, il fait suite à ta premiere
demande. Donc j'ai mis en ligne 0 du texte à la colonne 0
Sub test1()
Dim tablo() ' Declaration d'un tableau dynamique
ReDim tablo(10, 1) 'Dimensions initiales
tablo(0, 0) = "blabla"
For i = 1 To 9
ReDim Preserve tablo(10, 1 + i) ' Agrandissement sur les
colonnes tablo(i, 0) = i: tablo(i, 1) = 2 * i: tablo(i, 1 +
i) = 3 * i
Next i
For i = 0 To 9
For j = 0 To UBound(tablo, 2) 'pour connaitre la taille 'de la
2e dimension (colonne)
Debug.Print tablo(i, j),
Next j
Debug.Print
Next i
End Sub
Copies ca dans un module et affiche la fenêtre dexecution pour voir
le résultat.
A+
Eric
"pierref" <anonymous@discussions.microsoft.com> écrivait
news:441601c42b8a$594594b0$a001280a@phx.gbl:
bonjour,
je declare un tableau en variant et je le remplis dans une
boucle.
le nb de lignes et fixe, par contre , j'aimerais connaitre
son nb de colonnes pour faire dans la boucle :
redim preserve tableau( , nbcolonnes+1)
//je suis meme pas sur du blanc avant la virgule ...
merci de m'aider !
a+
.
.
en fait je peux pas te la faire passer...
c'est plutot confidentiel. malheureusement.
J'ai fait du pas a pas mais y'a rien d'incohérent :
longueur et nbcol ne sont pas à 0 lors du plantage.
Sinon, tu ne vois rien de faux dans le bout de code que
j'ai mis dans le message précédent ?
En tout cas merci bcp
a+-----Message d'origine-----
Est ce génant si tu me fais passer ta base avec juste ce qu'il faut
pour faire le traitement, à savoir la source de tes recordsets car là
faut mettre des points d'arrêt dans la procédure et faire du pas à
pas. Laisses ta proc je regarderai comment elle tourne pour adapter.
Si c'est pas confidentiel, tu peux m'envoyer ca a mon adresse en
enlevant les ZZ. Base en zip ou rar
Ok ?
Eric
"pierref" écrivait
news:428c01c42b93$49e77930$:Dim tabcorrel
ReDim tabcorrel(0, 0)
//normalement, je boucle sur ce qui suit
//(mon recordset "temp" change a chaque iteration)
temp.MoveLast
longueur = temp.RecordCount
nbcol = UBound(tabcorrel, 2) + 1
ReDim Preserve tabcorrel(0 To (longueur), 0 To nbcol)
tabcorrel(0, nbcol) = nom
i = 1
temp.MoveFirst
Do Until temp.EOF
tabcorrel(i, nbcol) = temp!valeur
i = i + 1
temp.MoveNext
Loop
voila mon code, en sachant que temp est un recordset qui
contient des double, et que longueur correspond a la
taille du recordset.(qui est tjs la meme cad 43)
Ca plante sur le redim preserve... j'ai l'erreur :
"indice en dehors de la plage", dès le premier passage.
merci de m'aider une fois de plus
:-)-----Message d'origine----- re,
je te fais passer un petit exemple, il fait suite à ta premiere
demande. Donc j'ai mis en ligne 0 du texte à la colonne 0
Sub test1()
Dim tablo() ' Declaration d'un tableau dynamique
ReDim tablo(10, 1) 'Dimensions initiales
tablo(0, 0) = "blabla"
For i = 1 To 9
ReDim Preserve tablo(10, 1 + i) ' Agrandissement sur les
colonnes tablo(i, 0) = i: tablo(i, 1) = 2 * i: tablo(i, 1 +
i) = 3 * i
Next i
For i = 0 To 9
For j = 0 To UBound(tablo, 2) 'pour connaitre la taille 'de la
2e dimension (colonne)
Debug.Print tablo(i, j),
Next j
Debug.Print
Next i
End Sub
Copies ca dans un module et affiche la fenêtre dexecution pour voir
le résultat.
A+
Eric
"pierref" écrivait
news:441601c42b8a$594594b0$:bonjour,
je declare un tableau en variant et je le remplis dans une
boucle.
le nb de lignes et fixe, par contre , j'aimerais connaitre
son nb de colonnes pour faire dans la boucle :
redim preserve tableau( , nbcolonnes+1)
//je suis meme pas sur du blanc avant la virgule ...
merci de m'aider !
a+
.
.
-----Message d'origine-----
Est ce génant si tu me fais passer ta base avec juste ce
qu'il faut pour
faire le traitement, à savoir la source de tes recordsets
car là faut
mettre des points d'arrêt dans la procédure et faire du
pas à pas.
Laisses ta proc je regarderai comment elle tourne pour
adapter.
Si c'est pas confidentiel, tu peux m'envoyer ca a mon
adresse en enlevant
les ZZ. Base en zip ou rar
Ok ?
Eric
"pierref" écrivait
news:428c01c42b93$49e77930$:Dim tabcorrel
ReDim tabcorrel(0, 0)
//normalement, je boucle sur ce qui suit
//(mon recordset "temp" change a chaque iteration)
temp.MoveLast
longueur = temp.RecordCount
nbcol = UBound(tabcorrel, 2) + 1
ReDim Preserve tabcorrel(0 To (longueur), 0 To nbcol)
tabcorrel(0, nbcol) = nom
i = 1
temp.MoveFirst
Do Until temp.EOF
tabcorrel(i, nbcol) = temp!valeur
i = i + 1
temp.MoveNext
Loop
voila mon code, en sachant que temp est un recordset
qui
contient des double, et que longueur correspond a la
taille du recordset.(qui est tjs la meme cad 43)
Ca plante sur le redim preserve... j'ai l'erreur :
"indice en dehors de la plage", dès le premier passage.
merci de m'aider une fois de plus
:-)-----Message d'origine----- re,
je te fais passer un petit exemple, il fait suite à ta
premiere
demande. Donc j'ai mis en ligne 0 du texte à la colonne
0
Sub test1()
Dim tablo() ' Declaration d'un tableau dynamique
ReDim tablo(10, 1) 'Dimensions initiales
tablo(0, 0) = "blabla"
For i = 1 To 9
ReDim Preserve tablo(10, 1 + i) '
Agrandissement sur les
colonnes tablo(i, 0) = i: tablo(i, 1) = 2 * i:
tablo(i, 1 + i)
= 3 * i
Next i
For i = 0 To 9
For j = 0 To UBound(tablo, 2) 'pour connaitre la
taille 'de la 2e
dimension (colonne)
Debug.Print tablo(i, j),
Next j
Debug.Print
Next i
End Sub
Copies ca dans un module et affiche la fenêtre
dexecution pour voir le
résultat.
A+
Eric
"pierref"
écrivait
news:441601c42b8a$594594b0$:bonjour,
je declare un tableau en variant et je le remplis
dans une boucle.
le nb de lignes et fixe, par contre , j'aimerais
connaitre
son nb de colonnes pour faire dans la boucle :
redim preserve tableau( , nbcolonnes+1)
//je suis meme pas sur du blanc avant la virgule ...
merci de m'aider !
a+
.
.
-----Message d'origine-----
Est ce génant si tu me fais passer ta base avec juste ce
qu'il faut pour
faire le traitement, à savoir la source de tes recordsets
car là faut
mettre des points d'arrêt dans la procédure et faire du
pas à pas.
Laisses ta proc je regarderai comment elle tourne pour
adapter.
Si c'est pas confidentiel, tu peux m'envoyer ca a mon
adresse en enlevant
les ZZ. Base en zip ou rar
Ok ?
Eric
"pierref" <anonymous@discussions.microsoft.com> écrivait
news:428c01c42b93$49e77930$a601280a@phx.gbl:
Dim tabcorrel
ReDim tabcorrel(0, 0)
//normalement, je boucle sur ce qui suit
//(mon recordset "temp" change a chaque iteration)
temp.MoveLast
longueur = temp.RecordCount
nbcol = UBound(tabcorrel, 2) + 1
ReDim Preserve tabcorrel(0 To (longueur), 0 To nbcol)
tabcorrel(0, nbcol) = nom
i = 1
temp.MoveFirst
Do Until temp.EOF
tabcorrel(i, nbcol) = temp!valeur
i = i + 1
temp.MoveNext
Loop
voila mon code, en sachant que temp est un recordset
qui
contient des double, et que longueur correspond a la
taille du recordset.(qui est tjs la meme cad 43)
Ca plante sur le redim preserve... j'ai l'erreur :
"indice en dehors de la plage", dès le premier passage.
merci de m'aider une fois de plus
:-)
-----Message d'origine----- re,
je te fais passer un petit exemple, il fait suite à ta
premiere
demande. Donc j'ai mis en ligne 0 du texte à la colonne
0
Sub test1()
Dim tablo() ' Declaration d'un tableau dynamique
ReDim tablo(10, 1) 'Dimensions initiales
tablo(0, 0) = "blabla"
For i = 1 To 9
ReDim Preserve tablo(10, 1 + i) '
Agrandissement sur les
colonnes tablo(i, 0) = i: tablo(i, 1) = 2 * i:
tablo(i, 1 + i)
= 3 * i
Next i
For i = 0 To 9
For j = 0 To UBound(tablo, 2) 'pour connaitre la
taille 'de la 2e
dimension (colonne)
Debug.Print tablo(i, j),
Next j
Debug.Print
Next i
End Sub
Copies ca dans un module et affiche la fenêtre
dexecution pour voir le
résultat.
A+
Eric
"pierref" <anonymous@discussions.microsoft.com>
écrivait
news:441601c42b8a$594594b0$a001280a@phx.gbl:
bonjour,
je declare un tableau en variant et je le remplis
dans une boucle.
le nb de lignes et fixe, par contre , j'aimerais
connaitre
son nb de colonnes pour faire dans la boucle :
redim preserve tableau( , nbcolonnes+1)
//je suis meme pas sur du blanc avant la virgule ...
merci de m'aider !
a+
.
.
-----Message d'origine-----
Est ce génant si tu me fais passer ta base avec juste ce
qu'il faut pour
faire le traitement, à savoir la source de tes recordsets
car là faut
mettre des points d'arrêt dans la procédure et faire du
pas à pas.
Laisses ta proc je regarderai comment elle tourne pour
adapter.
Si c'est pas confidentiel, tu peux m'envoyer ca a mon
adresse en enlevant
les ZZ. Base en zip ou rar
Ok ?
Eric
"pierref" écrivait
news:428c01c42b93$49e77930$:Dim tabcorrel
ReDim tabcorrel(0, 0)
//normalement, je boucle sur ce qui suit
//(mon recordset "temp" change a chaque iteration)
temp.MoveLast
longueur = temp.RecordCount
nbcol = UBound(tabcorrel, 2) + 1
ReDim Preserve tabcorrel(0 To (longueur), 0 To nbcol)
tabcorrel(0, nbcol) = nom
i = 1
temp.MoveFirst
Do Until temp.EOF
tabcorrel(i, nbcol) = temp!valeur
i = i + 1
temp.MoveNext
Loop
voila mon code, en sachant que temp est un recordset
qui
contient des double, et que longueur correspond a la
taille du recordset.(qui est tjs la meme cad 43)
Ca plante sur le redim preserve... j'ai l'erreur :
"indice en dehors de la plage", dès le premier passage.
merci de m'aider une fois de plus
:-)-----Message d'origine----- re,
je te fais passer un petit exemple, il fait suite à ta
premiere
demande. Donc j'ai mis en ligne 0 du texte à la colonne
0
Sub test1()
Dim tablo() ' Declaration d'un tableau dynamique
ReDim tablo(10, 1) 'Dimensions initiales
tablo(0, 0) = "blabla"
For i = 1 To 9
ReDim Preserve tablo(10, 1 + i) '
Agrandissement sur les
colonnes tablo(i, 0) = i: tablo(i, 1) = 2 * i:
tablo(i, 1 + i)
= 3 * i
Next i
For i = 0 To 9
For j = 0 To UBound(tablo, 2) 'pour connaitre la
taille 'de la 2e
dimension (colonne)
Debug.Print tablo(i, j),
Next j
Debug.Print
Next i
End Sub
Copies ca dans un module et affiche la fenêtre
dexecution pour voir le
résultat.
A+
Eric
"pierref"
écrivait
news:441601c42b8a$594594b0$:bonjour,
je declare un tableau en variant et je le remplis
dans une boucle.
le nb de lignes et fixe, par contre , j'aimerais
connaitre
son nb de colonnes pour faire dans la boucle :
redim preserve tableau( , nbcolonnes+1)
//je suis meme pas sur du blanc avant la virgule ...
merci de m'aider !
a+
.
.
enfin !
ca y est, apres une seance de debug...
le pb (et tu m'avais prévenu) vient du fait que la 1ere
dimension n'est pas re-dimensionnable.
Du coup je la fixe au premier passage que je detecte par
un booleen.
Merci pour tt
a+-----Message d'origine-----
Est ce génant si tu me fais passer ta base avec juste ce qu'il faut
pour faire le traitement, à savoir la source de tes recordsets car là
faut mettre des points d'arrêt dans la procédure et faire du pas à
pas. Laisses ta proc je regarderai comment elle tourne pour adapter.
Si c'est pas confidentiel, tu peux m'envoyer ca a mon adresse en
enlevant les ZZ. Base en zip ou rar
Ok ?
Eric
"pierref" écrivait
news:428c01c42b93$49e77930$:Dim tabcorrel
ReDim tabcorrel(0, 0)
//normalement, je boucle sur ce qui suit
//(mon recordset "temp" change a chaque iteration)
temp.MoveLast
longueur = temp.RecordCount
nbcol = UBound(tabcorrel, 2) + 1
ReDim Preserve tabcorrel(0 To (longueur), 0 To nbcol)
tabcorrel(0, nbcol) = nom
i = 1
temp.MoveFirst
Do Until temp.EOF
tabcorrel(i, nbcol) = temp!valeur
i = i + 1
temp.MoveNext
Loop
voila mon code, en sachant que temp est un recordset qui
contient des double, et que longueur correspond a la
taille du recordset.(qui est tjs la meme cad 43)
Ca plante sur le redim preserve... j'ai l'erreur :
"indice en dehors de la plage", dès le premier passage.
merci de m'aider une fois de plus
:-)-----Message d'origine----- re,
je te fais passer un petit exemple, il fait suite à ta premiere
demande. Donc j'ai mis en ligne 0 du texte à la colonne 0
Sub test1()
Dim tablo() ' Declaration d'un tableau dynamique
ReDim tablo(10, 1) 'Dimensions initiales
tablo(0, 0) = "blabla"
For i = 1 To 9
ReDim Preserve tablo(10, 1 + i) ' Agrandissement sur les
colonnes tablo(i, 0) = i: tablo(i, 1) = 2 * i: tablo(i, 1 +
i) = 3 * i
Next i
For i = 0 To 9
For j = 0 To UBound(tablo, 2) 'pour connaitre la taille 'de la
2e dimension (colonne)
Debug.Print tablo(i, j),
Next j
Debug.Print
Next i
End Sub
Copies ca dans un module et affiche la fenêtre dexecution pour voir
le résultat.
A+
Eric
"pierref" écrivait
news:441601c42b8a$594594b0$:bonjour,
je declare un tableau en variant et je le remplis dans une
boucle.
le nb de lignes et fixe, par contre , j'aimerais connaitre
son nb de colonnes pour faire dans la boucle :
redim preserve tableau( , nbcolonnes+1)
//je suis meme pas sur du blanc avant la virgule ...
merci de m'aider !
a+
.
.
enfin !
ca y est, apres une seance de debug...
le pb (et tu m'avais prévenu) vient du fait que la 1ere
dimension n'est pas re-dimensionnable.
Du coup je la fixe au premier passage que je detecte par
un booleen.
Merci pour tt
a+
-----Message d'origine-----
Est ce génant si tu me fais passer ta base avec juste ce qu'il faut
pour faire le traitement, à savoir la source de tes recordsets car là
faut mettre des points d'arrêt dans la procédure et faire du pas à
pas. Laisses ta proc je regarderai comment elle tourne pour adapter.
Si c'est pas confidentiel, tu peux m'envoyer ca a mon adresse en
enlevant les ZZ. Base en zip ou rar
Ok ?
Eric
"pierref" <anonymous@discussions.microsoft.com> écrivait
news:428c01c42b93$49e77930$a601280a@phx.gbl:
Dim tabcorrel
ReDim tabcorrel(0, 0)
//normalement, je boucle sur ce qui suit
//(mon recordset "temp" change a chaque iteration)
temp.MoveLast
longueur = temp.RecordCount
nbcol = UBound(tabcorrel, 2) + 1
ReDim Preserve tabcorrel(0 To (longueur), 0 To nbcol)
tabcorrel(0, nbcol) = nom
i = 1
temp.MoveFirst
Do Until temp.EOF
tabcorrel(i, nbcol) = temp!valeur
i = i + 1
temp.MoveNext
Loop
voila mon code, en sachant que temp est un recordset qui
contient des double, et que longueur correspond a la
taille du recordset.(qui est tjs la meme cad 43)
Ca plante sur le redim preserve... j'ai l'erreur :
"indice en dehors de la plage", dès le premier passage.
merci de m'aider une fois de plus
:-)
-----Message d'origine----- re,
je te fais passer un petit exemple, il fait suite à ta premiere
demande. Donc j'ai mis en ligne 0 du texte à la colonne 0
Sub test1()
Dim tablo() ' Declaration d'un tableau dynamique
ReDim tablo(10, 1) 'Dimensions initiales
tablo(0, 0) = "blabla"
For i = 1 To 9
ReDim Preserve tablo(10, 1 + i) ' Agrandissement sur les
colonnes tablo(i, 0) = i: tablo(i, 1) = 2 * i: tablo(i, 1 +
i) = 3 * i
Next i
For i = 0 To 9
For j = 0 To UBound(tablo, 2) 'pour connaitre la taille 'de la
2e dimension (colonne)
Debug.Print tablo(i, j),
Next j
Debug.Print
Next i
End Sub
Copies ca dans un module et affiche la fenêtre dexecution pour voir
le résultat.
A+
Eric
"pierref" <anonymous@discussions.microsoft.com> écrivait
news:441601c42b8a$594594b0$a001280a@phx.gbl:
bonjour,
je declare un tableau en variant et je le remplis dans une
boucle.
le nb de lignes et fixe, par contre , j'aimerais connaitre
son nb de colonnes pour faire dans la boucle :
redim preserve tableau( , nbcolonnes+1)
//je suis meme pas sur du blanc avant la virgule ...
merci de m'aider !
a+
.
.
enfin !
ca y est, apres une seance de debug...
le pb (et tu m'avais prévenu) vient du fait que la 1ere
dimension n'est pas re-dimensionnable.
Du coup je la fixe au premier passage que je detecte par
un booleen.
Merci pour tt
a+-----Message d'origine-----
Est ce génant si tu me fais passer ta base avec juste ce qu'il faut
pour faire le traitement, à savoir la source de tes recordsets car là
faut mettre des points d'arrêt dans la procédure et faire du pas à
pas. Laisses ta proc je regarderai comment elle tourne pour adapter.
Si c'est pas confidentiel, tu peux m'envoyer ca a mon adresse en
enlevant les ZZ. Base en zip ou rar
Ok ?
Eric
"pierref" écrivait
news:428c01c42b93$49e77930$:Dim tabcorrel
ReDim tabcorrel(0, 0)
//normalement, je boucle sur ce qui suit
//(mon recordset "temp" change a chaque iteration)
temp.MoveLast
longueur = temp.RecordCount
nbcol = UBound(tabcorrel, 2) + 1
ReDim Preserve tabcorrel(0 To (longueur), 0 To nbcol)
tabcorrel(0, nbcol) = nom
i = 1
temp.MoveFirst
Do Until temp.EOF
tabcorrel(i, nbcol) = temp!valeur
i = i + 1
temp.MoveNext
Loop
voila mon code, en sachant que temp est un recordset qui
contient des double, et que longueur correspond a la
taille du recordset.(qui est tjs la meme cad 43)
Ca plante sur le redim preserve... j'ai l'erreur :
"indice en dehors de la plage", dès le premier passage.
merci de m'aider une fois de plus
:-)-----Message d'origine----- re,
je te fais passer un petit exemple, il fait suite à ta premiere
demande. Donc j'ai mis en ligne 0 du texte à la colonne 0
Sub test1()
Dim tablo() ' Declaration d'un tableau dynamique
ReDim tablo(10, 1) 'Dimensions initiales
tablo(0, 0) = "blabla"
For i = 1 To 9
ReDim Preserve tablo(10, 1 + i) ' Agrandissement sur les
colonnes tablo(i, 0) = i: tablo(i, 1) = 2 * i: tablo(i, 1 +
i) = 3 * i
Next i
For i = 0 To 9
For j = 0 To UBound(tablo, 2) 'pour connaitre la taille 'de la
2e dimension (colonne)
Debug.Print tablo(i, j),
Next j
Debug.Print
Next i
End Sub
Copies ca dans un module et affiche la fenêtre dexecution pour voir
le résultat.
A+
Eric
"pierref" écrivait
news:441601c42b8a$594594b0$:bonjour,
je declare un tableau en variant et je le remplis dans une
boucle.
le nb de lignes et fixe, par contre , j'aimerais connaitre
son nb de colonnes pour faire dans la boucle :
redim preserve tableau( , nbcolonnes+1)
//je suis meme pas sur du blanc avant la virgule ...
merci de m'aider !
a+
.
.
-----Message d'origine-----
dim tabcorrel() au lieu de dim tabcorrel
par contre tu peux pas me filer 2 exemples de recordset*
bidon pour que
je vois ce qui va pas pas car à la lecture je vois rien
de particulier
Eric
Au pire indiques moi la gueule qu'ont tes recordset car
c'est très flou
vu d'ici.
"pierref" écrivait
news:45b701c42b9a$a8c6df20$:en fait je peux pas te la faire passer...
c'est plutot confidentiel. malheureusement.
J'ai fait du pas a pas mais y'a rien d'incohérent :
longueur et nbcol ne sont pas à 0 lors du plantage.
Sinon, tu ne vois rien de faux dans le bout de code que
j'ai mis dans le message précédent ?
En tout cas merci bcp
a+-----Message d'origine-----
Est ce génant si tu me fais passer ta base avec juste
ce qu'il faut
pour faire le traitement, à savoir la source de tes
recordsets car là
faut mettre des points d'arrêt dans la procédure et
faire du pas à
pas. Laisses ta proc je regarderai comment elle tourne
pour adapter.
Si c'est pas confidentiel, tu peux m'envoyer ca a mon
adresse en
enlevant les ZZ. Base en zip ou rar
Ok ?
Eric
"pierref"
écrivait
news:428c01c42b93$49e77930$:Dim tabcorrel
ReDim tabcorrel(0, 0)
//normalement, je boucle sur ce qui suit
//(mon recordset "temp" change a chaque iteration)
temp.MoveLast
longueur = temp.RecordCount
nbcol = UBound(tabcorrel, 2) + 1
ReDim Preserve tabcorrel(0 To (longueur), 0 To nbcol)
tabcorrel(0, nbcol) = nom
i = 1
temp.MoveFirst
Do Until temp.EOF
tabcorrel(i, nbcol) = temp!valeur
i = i + 1
temp.MoveNext
Loop
voila mon code, en sachant que temp est un recordset
qui
contient des double, et que longueur correspond a la
taille du recordset.(qui est tjs la meme cad 43)
Ca plante sur le redim preserve... j'ai l'erreur :
"indice en dehors de la plage", dès le premier
passage.
merci de m'aider une fois de plus
:-)-----Message d'origine----- re,
je te fais passer un petit exemple, il fait suite à
ta premiere
demande. Donc j'ai mis en ligne 0 du texte à la
colonne 0
Sub test1()
Dim tablo() ' Declaration d'un tableau dynamique
ReDim tablo(10, 1) 'Dimensions initiales
tablo(0, 0) = "blabla"
For i = 1 To 9
ReDim Preserve tablo(10, 1 + i) '
Agrandissement sur les
colonnes tablo(i, 0) = i: tablo(i, 1) = 2 *
i: tablo(i, 1 +
i) = 3 * i
Next i
For i = 0 To 9
For j = 0 To UBound(tablo, 2) 'pour connaitre
la taille 'de la
2e dimension (colonne)
Debug.Print tablo(i, j),
Next j
Debug.Print
Next i
End Sub
Copies ca dans un module et affiche la fenêtre
dexecution pour voir
le résultat.
A+
Eric
"pierref"
écrivait
news:441601c42b8a$594594b0$:bonjour,
je declare un tableau en variant et je le remplis
dans une
boucle.
le nb de lignes et fixe, par contre , j'aimerais
connaitre
son nb de colonnes pour faire dans la boucle :
redim preserve tableau( , nbcolonnes+1)
//je suis meme pas sur du blanc avant la virgule ...
merci de m'aider !
a+
.
.
.
-----Message d'origine-----
dim tabcorrel() au lieu de dim tabcorrel
par contre tu peux pas me filer 2 exemples de recordset*
bidon pour que
je vois ce qui va pas pas car à la lecture je vois rien
de particulier
Eric
Au pire indiques moi la gueule qu'ont tes recordset car
c'est très flou
vu d'ici.
"pierref" <anonymous@discussions.microsoft.com> écrivait
news:45b701c42b9a$a8c6df20$a101280a@phx.gbl:
en fait je peux pas te la faire passer...
c'est plutot confidentiel. malheureusement.
J'ai fait du pas a pas mais y'a rien d'incohérent :
longueur et nbcol ne sont pas à 0 lors du plantage.
Sinon, tu ne vois rien de faux dans le bout de code que
j'ai mis dans le message précédent ?
En tout cas merci bcp
a+
-----Message d'origine-----
Est ce génant si tu me fais passer ta base avec juste
ce qu'il faut
pour faire le traitement, à savoir la source de tes
recordsets car là
faut mettre des points d'arrêt dans la procédure et
faire du pas à
pas. Laisses ta proc je regarderai comment elle tourne
pour adapter.
Si c'est pas confidentiel, tu peux m'envoyer ca a mon
adresse en
enlevant les ZZ. Base en zip ou rar
Ok ?
Eric
"pierref" <anonymous@discussions.microsoft.com>
écrivait
news:428c01c42b93$49e77930$a601280a@phx.gbl:
Dim tabcorrel
ReDim tabcorrel(0, 0)
//normalement, je boucle sur ce qui suit
//(mon recordset "temp" change a chaque iteration)
temp.MoveLast
longueur = temp.RecordCount
nbcol = UBound(tabcorrel, 2) + 1
ReDim Preserve tabcorrel(0 To (longueur), 0 To nbcol)
tabcorrel(0, nbcol) = nom
i = 1
temp.MoveFirst
Do Until temp.EOF
tabcorrel(i, nbcol) = temp!valeur
i = i + 1
temp.MoveNext
Loop
voila mon code, en sachant que temp est un recordset
qui
contient des double, et que longueur correspond a la
taille du recordset.(qui est tjs la meme cad 43)
Ca plante sur le redim preserve... j'ai l'erreur :
"indice en dehors de la plage", dès le premier
passage.
merci de m'aider une fois de plus
:-)
-----Message d'origine----- re,
je te fais passer un petit exemple, il fait suite à
ta premiere
demande. Donc j'ai mis en ligne 0 du texte à la
colonne 0
Sub test1()
Dim tablo() ' Declaration d'un tableau dynamique
ReDim tablo(10, 1) 'Dimensions initiales
tablo(0, 0) = "blabla"
For i = 1 To 9
ReDim Preserve tablo(10, 1 + i) '
Agrandissement sur les
colonnes tablo(i, 0) = i: tablo(i, 1) = 2 *
i: tablo(i, 1 +
i) = 3 * i
Next i
For i = 0 To 9
For j = 0 To UBound(tablo, 2) 'pour connaitre
la taille 'de la
2e dimension (colonne)
Debug.Print tablo(i, j),
Next j
Debug.Print
Next i
End Sub
Copies ca dans un module et affiche la fenêtre
dexecution pour voir
le résultat.
A+
Eric
"pierref" <anonymous@discussions.microsoft.com>
écrivait
news:441601c42b8a$594594b0$a001280a@phx.gbl:
bonjour,
je declare un tableau en variant et je le remplis
dans une
boucle.
le nb de lignes et fixe, par contre , j'aimerais
connaitre
son nb de colonnes pour faire dans la boucle :
redim preserve tableau( , nbcolonnes+1)
//je suis meme pas sur du blanc avant la virgule ...
merci de m'aider !
a+
.
.
.
-----Message d'origine-----
dim tabcorrel() au lieu de dim tabcorrel
par contre tu peux pas me filer 2 exemples de recordset*
bidon pour que
je vois ce qui va pas pas car à la lecture je vois rien
de particulier
Eric
Au pire indiques moi la gueule qu'ont tes recordset car
c'est très flou
vu d'ici.
"pierref" écrivait
news:45b701c42b9a$a8c6df20$:en fait je peux pas te la faire passer...
c'est plutot confidentiel. malheureusement.
J'ai fait du pas a pas mais y'a rien d'incohérent :
longueur et nbcol ne sont pas à 0 lors du plantage.
Sinon, tu ne vois rien de faux dans le bout de code que
j'ai mis dans le message précédent ?
En tout cas merci bcp
a+-----Message d'origine-----
Est ce génant si tu me fais passer ta base avec juste
ce qu'il faut
pour faire le traitement, à savoir la source de tes
recordsets car là
faut mettre des points d'arrêt dans la procédure et
faire du pas à
pas. Laisses ta proc je regarderai comment elle tourne
pour adapter.
Si c'est pas confidentiel, tu peux m'envoyer ca a mon
adresse en
enlevant les ZZ. Base en zip ou rar
Ok ?
Eric
"pierref"
écrivait
news:428c01c42b93$49e77930$:Dim tabcorrel
ReDim tabcorrel(0, 0)
//normalement, je boucle sur ce qui suit
//(mon recordset "temp" change a chaque iteration)
temp.MoveLast
longueur = temp.RecordCount
nbcol = UBound(tabcorrel, 2) + 1
ReDim Preserve tabcorrel(0 To (longueur), 0 To nbcol)
tabcorrel(0, nbcol) = nom
i = 1
temp.MoveFirst
Do Until temp.EOF
tabcorrel(i, nbcol) = temp!valeur
i = i + 1
temp.MoveNext
Loop
voila mon code, en sachant que temp est un recordset
qui
contient des double, et que longueur correspond a la
taille du recordset.(qui est tjs la meme cad 43)
Ca plante sur le redim preserve... j'ai l'erreur :
"indice en dehors de la plage", dès le premier
passage.
merci de m'aider une fois de plus
:-)-----Message d'origine----- re,
je te fais passer un petit exemple, il fait suite à
ta premiere
demande. Donc j'ai mis en ligne 0 du texte à la
colonne 0
Sub test1()
Dim tablo() ' Declaration d'un tableau dynamique
ReDim tablo(10, 1) 'Dimensions initiales
tablo(0, 0) = "blabla"
For i = 1 To 9
ReDim Preserve tablo(10, 1 + i) '
Agrandissement sur les
colonnes tablo(i, 0) = i: tablo(i, 1) = 2 *
i: tablo(i, 1 +
i) = 3 * i
Next i
For i = 0 To 9
For j = 0 To UBound(tablo, 2) 'pour connaitre
la taille 'de la
2e dimension (colonne)
Debug.Print tablo(i, j),
Next j
Debug.Print
Next i
End Sub
Copies ca dans un module et affiche la fenêtre
dexecution pour voir
le résultat.
A+
Eric
"pierref"
écrivait
news:441601c42b8a$594594b0$:bonjour,
je declare un tableau en variant et je le remplis
dans une
boucle.
le nb de lignes et fixe, par contre , j'aimerais
connaitre
son nb de colonnes pour faire dans la boucle :
redim preserve tableau( , nbcolonnes+1)
//je suis meme pas sur du blanc avant la virgule ...
merci de m'aider !
a+
.
.
.