Lister un Range dans une variable et l'afficher

Bonjour, j'ai une liste de valeurs texte dans un Range A27:A34 et je voudrais le mettre dans une liste et l'afficher. J'arrive à afficher "8" qui est la taille du range mais j'ai un bug en jaune sur la ligne où je veux afficher la 5eme valeur...

Comment faire svp ?

Code:

---

1 2 3 4 5 6

Sub test() Dim Suppliers As Variant Suppliers = ActiveSheet.Range("A27:A34").Value2 MsgBox UBound(Suppliers) MsgBox "" & Suppliers(5) End Sub

---

Re ici :)

Le fait que tu mettes la propriété Value d'une plage de cellule dans ta variable Suppliers et compliqué à restituter pour VBA.
Il te faut boucler sur chaque valeur et les concaténer dans une variable de type String.

Code:

---

1 2 3 4 5 6 7 8

Sub test() Dim Cellule As Range Dim Message As String For Each Cellule In Range("A27:A34") Message = Message & Cellule.Value & vbCrLf Next Cellule MsgBox Message End Sub

---

hello,

Citation:

---

Envoyé par questionsguy

Bonjour, j'ai une liste de valeurs texte dans un Range A27:A34 et je voudrais le mettre dans une liste et l'afficher. J'arrive à afficher "8" qui est la taille du range mais j'ai un bug en jaune sur la ligne où je veux afficher la 5eme valeur...

Comment faire svp ?

Code:

---

1 2 3 4 5 6

Sub test() Dim Suppliers As Variant Suppliers = ActiveSheet.Range("A27:A34").Value2 MsgBox UBound(Suppliers) MsgBox "" & Suppliers(5) End Sub

---

---

c'est normal que tu aies une erreur car Suppliers est un tableau à 2 dimensions.
Il faut mettre :

Code:

---

MsgBox "" & Suppliers(5,1)

---

le premier indice représente la ligne, le deuxième indice la colonne (dans ton cas il est toujours à 1 car il n'y a qu'une colonne dans le Range)

Ami calmant, J.P

Merci pour l'info :) dan ce cas comment faire une seule dimension ? Car mon range n'a qu'une dimension... Car pour l'affichage j'aimerais utiliser Join()