Discussion :

[ESVBA]

bonsoir le forum,

je ne m'explique pas ce problème :

Code :

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

1
2
Dim Rg as Range
rg = WorkSheets("Data").ListObjects("TabXL2007").HeaderRowRange

Erreur

Variable objet ou variable de bloc with non définie

"HeaderRowRange" renvoi d'après l'aide un "Range" !

Je change "Range" en "String" et ajoute au bout de "rg=..." ".address"
alors là, j'obtiens bien la plage de cellules concernée.

Pourquoi ?
Merci.


ESVBA

[babaothe]

salut

regarde ce que dit l'aide vba (exemple) :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub ActivateHeaderRow()
    Dim wrksht As Worksheet
    Dim objList As ListObject
    Dim objListRng As Range
 
    Set wrksht = ActiveWorkbook.Worksheets("Sheet1")
    Set objList = wrksht.ListObjects(1)
    Set objListRng = objList.HeaderRowRange
 
    objListRng.Activate
End Sub

puis ouvre la même aide sur le mot set :

Attribue une référence d'objet à une variable ou à une propriété.

Un Range est un objet

[mercatog]

Code :

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

1
2
Dim Rg as Range
SET rg = WorkSheets("Data").ListObjects("TabXL2007").HeaderRowRange

[ESVBA]

merci de m'éclairer.

Oui, effectivement. (le "=" ne vaut pas pour un objet mais pour son contenu")

Il faut que j'aille me coucher. J'étais sur un autre problème et j'ai rajouté n'importe quoi.

Merci (à vous deux)


ESVBA