Discussion :

[calvi2002]

bonjour,j'ai un petit souci.
j'ai une plage de cellule

Code :

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

1
2
 
 plage = Range("ap2:bi2")

et je voudrais mettre le texte de chaque cellule dans un tableau.
merci de votre aide

[LeForestier]

Bonjour,
Pour assigner une plage tu doit passer par un objet range...

Code :

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

1
2
dim Plage as Range
    set plage = Range("ap2:bi2")

mais pour transcoder dans un tableau vaux mieux employer une (ou deux) boucle

Code :

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

1
2
3
4
5
6
7
8
Dim Col as Integer
Dim Lig as Long, TB(2,26) 'par exemple
'et pour avoir plus facile je vais prendre la plage A1:Z2
    For Lig = 1 to 2
        For col = 1 to 26
            TB(Lig,col) = Cells(Lig,Col)
        Next Col
    Next Lig

A+

[cafeine]

Hello,

un peu plus direct avec

Code :

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

1
2
dim tabZ as Variant
set tabZ = range("A1:B10").Cells

ensuite pour récupérer une valeur

Code :

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

debug.Print tabZ(1,5)

[calvi2002]

merci beaucoup pour vos réponse.
bonne journée