Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
garnote
Bonjour,
Essaie ceci :
Sub tst_Range_Array() Dim t As Variant t = Range("A1:A10").Value For i = 1 To 10 MsgBox t(i, 1) Next i End Sub
Serge
"le Nordiste" a écrit dans le message de news:
Bonjour,
Je m'inspire de Laurent Longre pour cette petite procédure :
<<<<<< Sub tst_Range_Array()
Dim tabl() As Variant
tabl() = Range("A1:A10").Value
For I = 0 To 9 MsgBox tabl(I) Next I
End Sub >>>>>>>>>>>>>>
Et la machine me répond : erreur d'éxécution 9 : " l'indice n'appartient à la sélection"
Et je ne vois pas mon erreur, merci de votre aide.
Bonjour,
Essaie ceci :
Sub tst_Range_Array()
Dim t As Variant
t = Range("A1:A10").Value
For i = 1 To 10
MsgBox t(i, 1)
Next i
End Sub
Serge
"le Nordiste" <jean-paul.bataille@sfr.com> a écrit dans le message de news:
8910702b-0cb0-48d7-b730-3bba51348d70@y9g2000yqg.googlegroups.com...
Bonjour,
Je m'inspire de Laurent Longre pour cette petite procédure :
<<<<<<
Sub tst_Range_Array()
Dim tabl() As Variant
tabl() = Range("A1:A10").Value
For I = 0 To 9
MsgBox tabl(I)
Next I
End Sub
>>>>>>>>>>>>>>
Et la machine me répond : erreur d'éxécution 9 : " l'indice
n'appartient à la sélection"
Et je ne vois pas mon erreur, merci de votre aide.
Curieux qu'il faille deux index pour mo,n array puisqu'il n'y a qu'une colonne dans ma plage. Mais bon ça marche
Merci Garnote
Sub tst_Range_Array() Dim t As Variant t = Range("A1:A10").Value For i = 1 To 10 MsgBox t(i, 1) Next i End Sub
Jacky
Bonjour,
...Curieux qu'il faille deux index...
Ou encore.. '----------- Sub tst_Range_Array() Set tabl = Range("A1:A10") For i = 1 To 10 MsgBox tabl(i) Next 'ou For Each c In tabl MsgBox c Next End Sub '-------------------
-- Salutations JJ
"le Nordiste" a écrit dans le message de news:
Bonjour,
Je m'inspire de Laurent Longre pour cette petite procédure :
<<<<<< Sub tst_Range_Array()
Dim tabl() As Variant
tabl() = Range("A1:A10").Value
For I = 0 To 9 MsgBox tabl(I) Next I
End Sub >>>>>>>>>>>>>>
Et la machine me répond : erreur d'éxécution 9 : " l'indice n'appartient à la sélection"
Et je ne vois pas mon erreur, merci de votre aide.
Bonjour,
...Curieux qu'il faille deux index...
Ou encore..
'-----------
Sub tst_Range_Array()
Set tabl = Range("A1:A10")
For i = 1 To 10
MsgBox tabl(i)
Next
'ou
For Each c In tabl
MsgBox c
Next
End Sub
'-------------------
--
Salutations
JJ
"le Nordiste" <jean-paul.bataille@sfr.com> a écrit dans le message de news:
8910702b-0cb0-48d7-b730-3bba51348d70@y9g2000yqg.googlegroups.com...
Bonjour,
Je m'inspire de Laurent Longre pour cette petite procédure :
<<<<<<
Sub tst_Range_Array()
Dim tabl() As Variant
tabl() = Range("A1:A10").Value
For I = 0 To 9
MsgBox tabl(I)
Next I
End Sub
>>>>>>>>>>>>>>
Et la machine me répond : erreur d'éxécution 9 : " l'indice
n'appartient à la sélection"
Et je ne vois pas mon erreur, merci de votre aide.
Ou encore.. '----------- Sub tst_Range_Array() Set tabl = Range("A1:A10") For i = 1 To 10 MsgBox tabl(i) Next 'ou For Each c In tabl MsgBox c Next End Sub '-------------------
-- Salutations JJ
"le Nordiste" a écrit dans le message de news:
Bonjour,
Je m'inspire de Laurent Longre pour cette petite procédure :
<<<<<< Sub tst_Range_Array()
Dim tabl() As Variant
tabl() = Range("A1:A10").Value
For I = 0 To 9 MsgBox tabl(I) Next I
End Sub >>>>>>>>>>>>>>
Et la machine me répond : erreur d'éxécution 9 : " l'indice n'appartient à la sélection"
Et je ne vois pas mon erreur, merci de votre aide.
le Nordiste
Je cherche à gagner du temps par l'usage d'array plutot que d'une boucle sur les cellules d'une plage. Je traite couramment des fichiers de 90 000 lignes d'où Excel2007.
'----------- Sub tst_Range_Array() Set tabl = Range("A1:A10") For i = 1 To 10 MsgBox tabl(i) Next 'ou For Each c In tabl MsgBox c Next End Sub '-------------------
Je cherche à gagner du temps par l'usage d'array plutot que d'une
boucle sur les cellules d'une plage.
Je traite couramment des fichiers de 90 000 lignes d'où Excel2007.
'-----------
Sub tst_Range_Array()
Set tabl = Range("A1:A10")
For i = 1 To 10
MsgBox tabl(i)
Next
'ou
For Each c In tabl
MsgBox c
Next
End Sub
'-------------------
Je cherche à gagner du temps par l'usage d'array plutot que d'une boucle sur les cellules d'une plage. Je traite couramment des fichiers de 90 000 lignes d'où Excel2007.
'----------- Sub tst_Range_Array() Set tabl = Range("A1:A10") For i = 1 To 10 MsgBox tabl(i) Next 'ou For Each c In tabl MsgBox c Next End Sub '-------------------
MichDenis
| Curieux qu'il faille deux index pour mo,n array | puisqu'il n'y a qu'une colonne dans ma plage.
Chaque cellule d'Excel a une adresse composée d'un numéro de ligne et d'un numéro de colonne. Si tu places une plage de cellules dans un tableau, tu auras forcément un tableau à 2 dimensions. Ton tableau sera forcément de base 1 car il n'y a pas encore de cellule ayant l'adresse Cells(0,0)
"le Nordiste" a écrit dans le message de groupe de discussion : Curieux qu'il faille deux index pour mo,n array puisqu'il n'y a qu'une colonne dans ma plage. Mais bon ça marche
Merci Garnote
Sub tst_Range_Array() Dim t As Variant t = Range("A1:A10").Value For i = 1 To 10 MsgBox t(i, 1) Next i End Sub
| Curieux qu'il faille deux index pour mo,n array
| puisqu'il n'y a qu'une colonne dans ma plage.
Chaque cellule d'Excel a une adresse composée d'un numéro de ligne et d'un numéro de
colonne. Si tu places une plage de cellules dans un tableau, tu auras forcément un tableau
à 2 dimensions.
Ton tableau sera forcément de base 1 car il n'y a pas encore de cellule ayant l'adresse
Cells(0,0)
"le Nordiste" <jean-paul.bataille@sfr.com> a écrit dans le message de groupe de discussion
: 39de1ffc-2025-4aa4-97ba-5438e4abde1d@o36g2000vbi.googlegroups.com...
Curieux qu'il faille deux index pour mo,n array puisqu'il n'y a qu'une
colonne dans ma plage.
Mais bon ça marche
Merci Garnote
Sub tst_Range_Array()
Dim t As Variant
t = Range("A1:A10").Value
For i = 1 To 10
MsgBox t(i, 1)
Next i
End Sub
| Curieux qu'il faille deux index pour mo,n array | puisqu'il n'y a qu'une colonne dans ma plage.
Chaque cellule d'Excel a une adresse composée d'un numéro de ligne et d'un numéro de colonne. Si tu places une plage de cellules dans un tableau, tu auras forcément un tableau à 2 dimensions. Ton tableau sera forcément de base 1 car il n'y a pas encore de cellule ayant l'adresse Cells(0,0)
"le Nordiste" a écrit dans le message de groupe de discussion : Curieux qu'il faille deux index pour mo,n array puisqu'il n'y a qu'une colonne dans ma plage. Mais bon ça marche
Merci Garnote
Sub tst_Range_Array() Dim t As Variant t = Range("A1:A10").Value For i = 1 To 10 MsgBox t(i, 1) Next i End Sub
le Nordiste
Clair, simple et évident une fois que l'on a l'explication
MERCI MichDenis !
Clair, simple et évident une fois que l'on a l'explication