Erreur d'Exécution 91 liée à une variable pointant dans un TS
Bonjour le forum,
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26
| Private Sub T_Add_CBSite_Change()
Private Sub T_Add_CBSite_Change()
Dim LT As Range
Set WbO = WbT.Sheets(2)
Set t = WbO.ListObjects("t_cc")
If T_Add_CBSite.Value = "BIC" Then
T_Add_CBP4.Visible = False
T_Add_LBP4.Visible = False
Call T_CBBIC_Init
Else
T_Add_CBBIC.Clear
T_Add_LBBIC.Visible = False
T_Add_CBBIC.Visible = False
T_Add_CBP4.Visible = True
T_Add_LBP4.Visible = True
Call T_CBP4_Init
Call T_CBP5_Init
End If
Set LT = t.DataBodyRange.Find(T_Add_CBSite, lookat:=xlWhole)
T_Add_TBCC.Text = t.DataBodyRange(LT.Row, 2)
End Sub
End Sub |
Voici le code posant problème, et la ligne sur laquelle l'erreur est signalée est :
Code:
T_Add_TBCC.Text = t.DataBodyRange(LT.Row, 2)
Et c'est lié à la variable LT. Toute méthode que j'essaie d'y associer ne fonctionne pas et me génère l'erreur qui suit :
Erreur d'Exécution '91':
Variable objet ou variable de bloc With non définie
Je précise que cette variable est UNIQUE dans l'entièreté de mon module, et qu'elle est créée uniquement dans cette procédure.
Les variables WbO et t sont définies en tout début de module après l'Option Explicit.
Objectif de la procédure ?
La partie de If à End If ne pose aucun problème, je n'ai pas besoin de m'étaler sur ce sujet étant donné qu'il appelle d'autres procédures, cela serait trop long à expliquer.
T_Add_CBSite : Il s'agit d'une ComboBox dont la valeur sera utilisée comme objet de recherche. La méthode Find va chercher cette valeur dans un tableau structuré de type...
T_Add_TBCC : Il s'agit d'une TextBox dans lequel s'inscrira le résultat trouvé dans le tableau
Site |
Centre de Coût |
Ville 1 |
Centre de Coût 1 |
Ville 2 |
Centre de Coût 2 |
Ce que j'ai souhaité faire à travers la ligne qui comporte l'erreur, c'est d'attribuer à T_Add_TBCC la valeur correspondant au numéro de ligne associé à la variable LT et au numéro de colonne 2.
J'espère vous avoir exposé le problème de manière compréhensible !
Bonne journée,
Révèr
PS : Comment vous faites pour "surligner" une ligne ? Je trouve cela plus pratique que de mettre les balises de code pour 1 seule ligne, mais je ne sais pas comment on fait.