Tableau Array de A2 jusqu'à A...

Le
Alain Lebayle
Bonjour,

Est-il possible d'utiliser Array de cette façon là ?
Car, je voudrais récupérer pour une procédure une liste qui est parfois
variable.
Je ne sais pas comment écrire en VBA :

a = Array([a2], [a3], [a4], [a5], etc.) soit

a = Array(Sheets("Feuil1").Range("A2:A" &
Sheets("Feuil1").Range("A100").End(xlUp).Row))

Je vous remercie
Alain
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
FdeCourt
Le #21265361
Salut,

Encore plus simple, pour mettre dans un array toutes les valeurs d'une
plage de cellule :
a = Sheets("Feuil1").Range("A2:A" & _
Sheets("Feuil1").Range("A100").End(xlUp).Row).value

Cordialement,

F.
Daniel.C
Le #21265541
Bonjour.
Que veux-tu faire ? Pourquoi ne pas utiliser directement la plage de
cellules. Est-ce que tu as besoin de l'objet "cellule" ou simplement de
sa valeur ?
Daniel

Bonjour,

Est-il possible d'utiliser Array de cette façon là ?
Car, je voudrais récupérer pour une procédure une liste qui est parfois
variable.
Je ne sais pas comment écrire en VBA :

a = Array([a2], [a3], [a4], [a5], etc.) soit

a = Array(Sheets("Feuil1").Range("A2:A" &
Sheets("Feuil1").Range("A100").End(xlUp).Row))

Je vous remercie
Alain


JB
Le #21265511
Bonjour,

http://boisgontierjacques.free.fr/pages_site/tableaux.htm#TransfertChampTab leau

JB

On 25 fév, 14:27, Alain Lebayle wrote:
Bonjour,

Est-il possible d'utiliser Array de cette fa on l ?
Car, je voudrais r cup rer pour une proc dure une liste qui est parfois
variable.
Je ne sais pas comment crire en VBA :

a = Array([a2], [a3], [a4], [a5], etc.) soit

a = Array(Sheets("Feuil1").Range("A2:A" &
Sheets("Feuil1").Range("A100").End(xlUp).Row))

Je vous remercie
Alain


FdeCourt
Le #21265491
Salut JB,

Petite question :
Est-ce qu'avec cette syntaxe :

b = [a1:A20000].Value

Tu peux utiliser une plage variable et si oui, comment ?, ou faut-il
utiliser Sheets("Feuil1").Range("A2:A" &
Sheets("Feuil1").Range("A100").End(xlUp).Row).value

Merci pour l'info

Cordialement,

F.
JB
Le #21266771
Bonjour,

Pour un champ variable, il faut bien utiliser la syntaxe classique:

a = Sheets("Feuil1").Range("A2:A" &
Sheets("Feuil1").Range("A100").End(xlUp).Row).Value
x = UBound(a, 1)
y = UBound(a, 2)
z = a(3, 1) ' a() --> 2 dimensions
b = Application.Transpose(a) ' b() --> 1 dimension
z = b(3)

JB

On 25 fév, 14:54, FdeCourt
Salut JB,

Petite question :
Est-ce qu'avec cette syntaxe :

b = [a1:A20000].Value

Tu peux utiliser une plage variable et si oui, comment ?, ou faut-il
utiliser Sheets("Feuil1").Range("A2:A" &
Sheets("Feuil1").Range("A100").End(xlUp).Row).value

Merci pour l'info

Cordialement,

F.


Alain Lebayle
Le #21267021
Bonsoir à tous,
C'est en fait cela avec le "Transpose", cela fonctionne parfaitement
Un très grand merci à tous !!!
Très bonne soirée
Alain


JB a écrit :
Bonjour,

Pour un champ variable, il faut bien utiliser la syntaxe classique:

a = Sheets("Feuil1").Range("A2:A" &
Sheets("Feuil1").Range("A100").End(xlUp).Row).Value
x = UBound(a, 1)
y = UBound(a, 2)
z = a(3, 1) ' a() --> 2 dimensions
b = Application.Transpose(a) ' b() --> 1 dimension
z = b(3)

JB

On 25 fév, 14:54, FdeCourt
Salut JB,

Petite question :
Est-ce qu'avec cette syntaxe :

b = [a1:A20000].Value

Tu peux utiliser une plage variable et si oui, comment ?, ou faut-il
utiliser Sheets("Feuil1").Range("A2:A" &
Sheets("Feuil1").Range("A100").End(xlUp).Row).value

Merci pour l'info

Cordialement,

F.





Publicité
Poster une réponse
Anonyme