Bonjour

Je souhaite creer dynamiquement des textbox sur un document Word et gerer les evenements associés à ces nouveaux controles
La création marche bien, mais j'ai une erreur 13 incompatibilité de type qui se produit sur la ligne de code suivante
    Set cl.tb = Obj

J'ai essayé plusieurs types pour la variable Obj mais sans succés
Je demande de l'aide car débutant sur ce type de programmation je pense que je dois faire une GROSSE erreur

Merci

Voici le code

dans un module
------------------------------------------------
Option Explicit
Public cl As Classe1
Public Obj As Variant
Public collect As Collection

dans un module de classe
-----------------------------------------------
Public WithEvents tb As MSForms.TextBox
Private Sub tb_Change()
Stop
End Sub

dans un userform
---------------------------------------------------
Private Sub CommandButton1_Click()
Set collect = New Collection
Set collect = Nothing
Set Obj = ActiveDocument.InlineShapes _
    .AddOLEControl(ClassType:="Forms.textBox.1")
'With Obj.OLEFormat.Object
    '.Text = "aa"
    '.Name = "tt"
'End With
Set cl = New Classe1
Set cl.tb = Obj
collect.Add cl
end sub

salut

Public WithEvents tb As MSForms.TextBox
Public Obj As Variant

ta classe attend un objet de type MSForms.TextBox, tu lui en donnes un de type Variant.
çà passe pas ;)
retype ton Obj correctement

---

Prenez un instant pour répondre à ce sondage svp  

ps :

Set collect = Nothing
(...)
collect.Add cl

tu ne pourras pas ajouter quoi que ce soit à NOTHING...

---

Prenez un instant pour répondre à ce sondage svp  

Merci pour reponse, mais j'ai déjà essayé ce retype  et d'autres sans succés
J' ai aussi supprimé Set Collect=Nothing et j'ai toujours l'erreur 13

 

tu es sûr que ActiveDocument.InlineShapes te renvoie un type objet?...
erreur sur quelle ligne?

je suis sure de rien
j'ai erreur 13 sur ligne de code
    Set cl.tb =Obj

remplace ces 2 lignes :
Set cl.tb = Obj
collect.Add cl

par :
If obj Is Nothing Then
    MsgBox "j'essaye d'ajouter RIEN/NULL"
Else
    If TypeOf Obj Is MSForms.TextBox Then
        MsgBox "ICI LE SEUL CAS Où LE CODE SERAIT BON !!!"
        Set cl.tb = Obj
        'collect.Add cl
    Else
        MsgBox "J'essaye d'ajouter n'importe quoi : '" & VarType(obj) & "'"
    End If
End If

---

Prenez un instant pour répondre à ce sondage svp  

ok Obj c'est n'importe quoi

Alors si le code est mauvais que faut-il ecrire pour parvenir à ajouter ces textbox et gerer leurs evenements ( cela marche quand on les ajoute sur un userform mais je veux les ajouter à un document......)
 Merci beaucoup si tu as des idées

J'ai répondu trop rapidement en fait le type objet est=9 donc c'est un vbobjet d'aprés l'aide VBA

en ajoutant
montest=IsObject(Obj)
cela me renvoie vrai