Autres XL2007 Plage de cellule à mettre sous forme de Tblo

[erics83]

Bonjour,

Dans un classeur, j'ai une plage de cellule que j'ai nommé "MaBD", elle correspond à Feuil1.A1:M20000.

Je souhaite mettre cette plage sous forme de Tblo....et je pensais qu'on pouvait faire simple, style :

Tblo=MaBD, marche pas...

J'ai regardé et essayé : Tblo=MaBD.value , marche pas....

J'ai vu qu'on pouvait mettre sous forme de Tblo via une double-boucle sur la plage MaBD, mais....je pensais qu'une simple "manip" et/ou écriture de code pourrait le faire....

Une petite aide et/ou éclaircissement ?

Merci,

 

[Staple1600]

Bonjour le fil, eric83

•>eric83
Ainsi rédigé, cela devrait fonctionner
(en tout cela fonctionne sur mon PC)

Sub test()
Dim tablo
tablo = [MaBD].Value
MsgBox tablo(1, 1)
MsgBox tablo(UBound(tablo, 1), UBound(tablo, 2))
End Sub

 

[erics83]

Merci Staple 1600,

En fait dans mon process, j'ouvre un classeur où se situe la plage "MaBD", j'ai donc essayé :

Sub Ouvre()
'    Dim wb As Workbook
    Dim ws As Worksheet
    a = ThisWorkbook.Path & "\Soft\b_Soft_MEP.xlsm"
    Workbooks.Open (a)
    'Set ws = ActiveWorkbook.Worksheets("Sup8")
    'Sub test()
Dim tablo
Set tablo = [MaBD].Value
'MsgBox tablo(1, 1)
'MsgBox tablo(UBound(tablo, 1), UBound(tablo, 2))
'End Sub 
    Stop
    'Set ws = Nothing
End Sub

mais cela ne fonctionne pas...j'ai aussi essayé

Set tablo = ActiveWorkbook.[MaBD].Value

mais cela ne fonctionne plus non plus....

Merci pour votre aide,

 

[Staple1600]

Re

Relis mon exemple, et tu verras ce qui cloche dans ton code
(cf Set tablo)
Apparemment tu n'as testé mon code tel que je l'ai posté.

 

[erics83]

Merci Staple 1600,

si, si j'ai copier/collé le code tel que et...cela n'a pas fonctionné, avec message erreur "Objet requis"...c'est pour cette raison que j'ai mis "Set"....mais à force de m'énerver et sachant quie vous aviez raison, j'ai tout repris et......je me suis aperçu que j'avais modifié le nom de la feuille où se trouvait "MaBD" et je n'avais pas modifié dans la formule....donc....ça ne pouvait pas fonctionner....en tout cas, merci pour votre apport, car je n'avais pas tenté "[" "]"...et c'est bon, tout fonctionne....

Merci et désolé pour le contretemps....,
Merci