Définir un objet / Variable Object

[Benoît]

Bonjour,

Dans une feuille de calcul servant à mettre en forme un graphe j'utilise plusieurs txtbox pour rentrer des valeurs. A chaque txtbox est associé une checkbox qui commute l'état enabled de la textbox entre false et true.

Par la suite, pour gagner du temps et des lignes de code j'utilise une boucle for

J'ai essayé :
for i = 1 to 8
If "Sheets(""Pilote"").TextBox" & Format(i) & ".Enabled" = True Then
....

Mais ça ne marche pas. J'ai donc essayé de passé par une variable objet :

Dim objTxtBox As Object
For i = 1 To 8

set objTxtBox = "Sheets(""Pilote"").TextBox" & Format(i)
If TxtBox.Enabled = True Then
....

Ca ne marche pas non plus.

en revanche si je fixe l'objet :
set objTxtBox = Sheets("Pilote").TextBox1

la ça marche;

Donc en gros soit je n'ai rien compris aux objets, soit les objets sont des variables figées et donc peu pratique.

Ma syntaxe n'est peut-être pas bonne .

 

[PascalXLD]

Re : Définir un objet / Variable Object

Bonjour

essaies

for i = 1 to 8
If Sheets("Pilote").controls("TextBox" & i) .Enabled = True Then


Bon courage

 

[Benoît]

Re : Définir un objet / Variable Object

Merci pour ta réponse mais ça ne marche pas :
erreur d'exécution 438.

Je ne peux pas exposer mes nouvelles recherches car je dois partir (pour la semaine).

En tous cas, toutes nouvelles idées seront les bienvenues.

A bientôt et merci

 

[Hervé]

Re : Définir un objet / Variable Object

bonjour

peut etre comme ceci :

Dim objTxtBox As OLEObject
Dim i As Byte

For i = 1 To 8
    Set objTxtBox = Sheets("Pilote").OLEObjects("TextBox" & i)
    objTxtBox.Enabled = False
Next i

salut

 

[PascalXLD]

Re : Définir un objet / Variable Object

RE

Merci de rattraper les gars. Voilà ce sait de ne pas tester

Bonne journée

 

[Benoît]

Re : Définir un objet / Variable Object

Merci beaucoup, ça a marché. Je ne connaissais pas «OLEObjects».

Note pour obtenir la valeur de OLEObject il faut faire :

OLEObjects("TextBox").Object.Value et non pas OLEObjects("TextBox").Value

Merci encore