Afectation d'une plage a un tableau VBA
Résolu/Fermé
ccm81
Messages postés
10853
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
24 avril 2024
-
3 févr. 2011 à 09:20
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 - 2 mars 2016 à 10:27
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 - 2 mars 2016 à 10:27
A voir également:
- Vba tableaux
- L'indice n'appartient pas à la sélection vba - Forum VB / VBA
- Tableaux croisés dynamiques - Guide
- Vba range avec variable ✓ - Forum VB / VBA
- Fusionner deux tableaux excel - Guide
- Erreur 1004 vba ✓ - Forum VB / VBA
3 réponses
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 744
Modifié par pijaku le 3/02/2011 à 09:42
Modifié par pijaku le 3/02/2011 à 09:42
Salut ccm81,
Question 1 : Je ne suis, loin de là même , pas spécialiste en variable tableau... Je débute là dedans. Je te conseille fortement ce lien :
tout sur les variables tableau ici
Tu peux toujours faire comme ceci :
Question 2 :sources
"Laissez-moi deviner... Votre surnom, c'est «Bande Passante»? "
- Le Tribunal des flagrants délires- P.Desproges -
Question 1 : Je ne suis, loin de là même , pas spécialiste en variable tableau... Je débute là dedans. Je te conseille fortement ce lien :
tout sur les variables tableau ici
Tu peux toujours faire comme ceci :
Dim Tablo
Tablo = Sheets(1).Range("A1:AZ20").Value
Question 2 :sources
'donne la lettre de la dernière colonne renseignée de la feuille de calculs
Dercol = Split(Worksheets("Feuil2").UsedRange.Address, "$")(3)
'Donne le numéro de la dernière Colonne de la feuille de calculs
Dercol = Range(Split(Worksheets("Feuil2").UsedRange.Address, "$")(3) & 1).column--
"Laissez-moi deviner... Votre surnom, c'est «Bande Passante»? "
- Le Tribunal des flagrants délires- P.Desproges -
2 mars 2016 à 03:57
merci
2 mars 2016 à 10:27
Normal, déjà la plage est constituée de plusieurs lignes ET de plusieurs colonnes.
Sinon, il est vrai que :
Tablo = Sheets(1).Range("A1:A20").Valuedonne également un tableau à 2 dimensions en Base 1 (le premier indice du tableau est égal à 1, pas à 0).
Donc, pour obtenir un tableau à une dimension, il faut boucler sur celui-ci et le transférer dans un tableau à 1 dimension.
Exemple :
Dim Tablo, i AS Long, Tb_Out() Tablo = Sheets(1).Range("A1:A20").Value 'redimensionne en base 0. Pour Base 1, enlever le - 1 ReDim Tb_Out(UBound(Tablo, 1) - 1) For i = LBound(Tablo, 1) To Ubound(Tablo, 1) 'en Base 0. Pour la Base 1 enlever le - 1 Tb_Out(i - 1) = Tablo(i, 1) Next i