XL 2016 stocker mes données dans une variable à partir d'un tableau en VBA

Achraf1981 · 12 Juin 2023

Bonjour à vous tous,
j'ai un problème lié à l'automatisation d'un rapport sous VBA.
Ma problématique:
J'ai une liste des données ( numériques) sous format d'un tableau
colonne A: mon tableau : Tbl
Code
12
1113
1234
456

au lieux d'utiliser se syntaxe : lv_valeur = lv_valeur & "12; "
lv_valeur = lv_valeur & "1113; ".........
je veux bien automatiser toutes les cellules de mon tableau v_valeur = lv_valeur & "tbl; "

comment je peux déclarer et faire sa au lieu d’écrire chaque ligne ?

D'avance merci pour votre aide

Lolote83 · 12 Juin 2023

Bonjour,
Peut-etre comme ça.

VB:

Sub test()
    Tbl = Range("C9:C12")
    For F = 1 To UBound(Tbl, 1)
        lv_valeur = lv_valeur & Tbl(F, 1)
    Next F
End Sub

@+ Lolote83

Staple1600 · 12 Juin 2023

Bonjour @Achraf1981 , le fil

Si j'ai bien compris et en me basant sur l'exemple de @Lolote83 (que je salue au passage)
Une version sans boucle

VB:

Sub testB()
Tbl = Range("C9:C12")
lv_valeur = Join(Application.Transpose(Tbl), vbNullString)
MsgBox lv_valeur
End Sub

NB: Avec cette version, chaque élément est séparé par un espace

VB:

Sub testC()
Tbl = Range("C9:C12")
lv_valeur = Join(Application.Transpose(Tbl))
MsgBox lv_valeur
End Sub

XL 2016 stocker mes données dans une variable à partir d'un tableau en VBA

Achraf1981

XLDnaute Nouveau

Lolote83

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Discussions similaires