Discussion :

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[mat955]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[jurassic pork]

hello,

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

  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

[questionsguy]

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()