Tableau Array de A2 jusqu'à A...

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.

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

Bonjour,

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

JB

On 25 fév, 14:27, Alain Lebayle <alain.leba...@club-internet.fr>
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

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.

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 <fdeco...@gmail.com> wrote:

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.

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 <fdeco...@gmail.com> wrote:

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.