Affectation d'une valeure a 1 Textbox inaccessible

[Eric D]

Re bonjour le forum,

Je fait une continuitée de ma Textbox inaccessible de tout à l'heure, J'ai donc:

ActiveSheet.OLEObjects.Add(ClassType:='Forms.TextBox.1', Link:=False, _
DisplayAsIcon:=False, Left:=197.25, Top:=71.25, Width:=72, Height:=18 _
).Select
Selection.Enabled = False

Et avant Selection.Enabled = False, je met:

Textbox3.value = 'Ma valeur' , car c'est la 3ème Textbox et là il me met une erreur 424 et me dit Objet requis,et si je met:
Selection.value = 'Ma valeur', il me dit erreur 438,Propriété ou méthode non gérer par cet objet. Alors comment faire ?
Merci pour ce complément d'info.
Eric D

 

[Hervé]

Re:Affectation d'une valeure a 1 Textbox inaccessi

re

serais-je en avance sur l'ami robert ce coup là

A essayer :

Selection.Object.Value = 'Ma valeur'


salut

 

[Eric D]

Re:Affectation d'une valeure a 1 Textbox inaccessi

Re Hervé, le forum,

Egalité et un grand merci a vous deux.
Bonne fin de journée
Eric D

 

[Hervé]

Re:Affectation d'une valeure a 1 Textbox inaccessi

re eric, robert

une procédure peut etre un peu plus 'propre' :

Dim txtb As OLEObject

Set txtb = ActiveSheet.OLEObjects.Add(ClassType:='Forms.TextBox.1', Link:=False, _
DisplayAsIcon:=False, Left:=197.25, Top:=71.25, Width:=72, Height:=18)

With txtb.Object
        .Value = 'Ma valeur'
        .Enabled = False
End With

salut

 

[Robert]

Re:Affectation d'une valeure a 1 Textbox inaccessi

Bonsoir Éric, Hervé, bonsoir le forum,

Le traitre a profité lâchement que je rentrais du boulot pour te donner la solution. Sinon tu penses bien que je t'aurais donné un code bien plus vite et tout aussi efficace...

J'ai souri quand tu disais que j'avais gagné car si tu savais tout ce que je dois au père Hervé...
Moi je dirais plutôt qu'ici, ça doit être un des rares jeux où tout le monde gagne...

 

[Hervé]

Re:Affectation d'une valeure a 1 Textbox inaccessi

re eric , robert

bah, si tu savais robert tout ce que je te dois, à toi ou à d'autres du forum, tu en serai surpris.

Et je me retrouve tout à fait dans ta 'maxime' : 'ici, ça doit être un des rares jeux où tout le monde gagne...'

salut