' exemple de récupération de colonne vers une variable tableau 1 dim puis string
Sub recup_col()
'récupération colonne 1 en string
Dim plage, colon&
plage = Range("A2:Z9000").Value 'rng to variable tableau 2 dim
colon = 1
plage = WorksheetFunction.Index(plage, 0, colon) '(on obtient un tableau(2 dim)
Debug.Print Join(Application.Transpose(plage), ";") ' conversion en 1 dim et en string
End Sub
' exemple de récupération de ligne vers une variable tableau 1 dim puis string
Sub recup_lig()
'récupération ligne 1 en string
Dim plage, ligne&
plage = Range("A2:z100").Value 'rng to variable tableau 2 dim
ligne = 1
plage = WorksheetFunction.Index(plage, ligne, 0) '(on obtient un array(1 dim)
Debug.Print Join(plage, ";")
End Sub