Propriété ControlSource foireuse

[didier.v]

J'ai créé une TextBox et un Label auxquels j'ai affecté la propriété "ControlSource".
Ca marche avec Windows 98 et ça ne marche pas avec Windows 2000 pro !
Avez-vous un tuyau ou une explication ?

Pour illustration, voici un extrait de mon programme VBA :
Set Mycmd = Form.Controls.Add("Forms.Textbox.1")
Mycmd.ControlSource = "E1"

 

[Kobaya]

Re : Propriété ControlSource foireuse

salut didier,

un contrôle TextBox n'a pas de propriété Source.

voici l'enregistrement d'une macro d'ajout de textbox sur une feuille Excel.

    ActiveSheet.OLEObjects.Add(ClassType:="Forms.TextBox.1", Link:=False, _
        DisplayAsIcon:=False, Left:=141, Top:=71.25, Width:=165.75, Height:= _
        27.75).Select

c'est bien un textbox que tu utilises, et pas une listbox ou combobox ?

 

[myDearFriend!]

Re : Propriété ControlSource foireuse

Bonsoir didier.v, Kobaya, le Forum.

didier.v, peut-être pourrais-tu nous détailler un peu le problème rencontré.
Obtiens-tu un message d'erreur ? Si oui, lequel ?

Dans le cas contraire, es-tu sûr que la feuille active au moment du déroulement de ta macro est bien la feuille contenant la cellule cible souhaitée ? Sinon, peut-être devrais-tu inclure l'adresse complète de cette cellule cible, quelque chose comme ça : Mycmd.ControlSource = "Feuil1!E1" (comme ça, tu t'assures que ton contrôle TextBox sera lié à la bonne cellule de la bonne feuille et ce, quelque soit la feuille active)

Par ailleurs, ton test porte sur des versions différentes de Windows, mais qu'en est-il de la version Excel ?

Pour Kobaya : si je peux me permettre, didier.v parle d'un contrôle Textbox créé de façon dynamique (à la volée) dans un Userform et non d'un Textbox sur une feuille de calcul... De plus, sauf erreur de ma part, l'équivalent de "ControlSource" pour l'ActiveX TextBox (issu de la boîtes à outils Contrôles) placé directement sur feuille de calcul est la propriété : LinkedCell.

Cordialement,

 

[MichelXld]

Re : Propriété ControlSource foireuse

bonjour Didier , Kobaya et Didier

Tout d'abord, cher Didier (MyDearFriend) je suis heureux de ton retour sur XLD...;o)


tu peux tester cette adaptation (test avec Excel2002)

    Dim Mycmd As Control
    Set Mycmd = Form.Controls.Add("Forms.Textbox.1")
  
      With Mycmd
        .ControlSource = "E1"
    End With

pour positionner l'objet dans la feuille

Private Sub CommandButton1_Click()
    Dim Mycmd As Control
    Set Mycmd = Form.Controls.Add("Forms.Textbox.1")
    
        With Mycmd
        .Left = 30
        .Top = 30
        .Width = 55
        .Height = 15
        .ControlSource = "E1"
    End With
    
End Sub

bon week end
Ce lien n'existe plus

 

[myDearFriend!]

Re : Propriété ControlSource foireuse

Salut Michel.

Content de te croiser à nouveau également.
C'est pour ne rien perdre des interventions de qualité comme les tiennes qu'on ne s'éloigne jamais longtemps du Forum !

Au plaisir et bon week-end.

 

[Hervé]

Re : Propriété ControlSource foireuse

bonsoir tout le monde

controlsource pour un textbox.

j'ai encore appris quelque chose.

Rester au contact didier et michel, on a encore tellement de chose à apprendre.

Et dire que la plupart des visiteurs ne se rendent pas compte du potentiel de savoir qu'il y a sur ce site.

humble salut

 

[didier.v]

Re : Propriété ControlSource foireuse

Avec votre éclairage, j'ai trouvé la cause de mon problème :

Pour que la propriété ConrolSource fonctionne, il faut que la cellule soit vide ou contienne une constante.
Ma cellule contenait une formule de conversion décimal en hexa.
Je pense que c'est une restriction de programmation mal maitrisée par EXCEL.

Pour info à Hervé, la propriété ConrolSource est applicable sur TextBox ou sur Label et dans un formulaire.
Elle est très pratique quand on veut faire apparaître une valeur dans un formulaire qui soit l'image d'une cellule de la feuille de calcul source.
Quand on modifie la valeur de l'objet, la valeur de la cellule est automatiquement mise à jour et inversement.

Merci à vous, Kobaya et Didier_Mdf pour votre précieuse aide.

 

[didier.v]

Re : Propriété ControlSource foireuse

ERRATUM

Je corrige : La propriété ControlSource ne fonctionne pas car ma cellule contient une opération erronée (défaut #NOM?).
Une conversion DECimal HEXa qui n'est pas reconnue par EXCEL (pour cela, il me manque la bonne bibliothèque complémentaire).

Merci de votre soutien.
En espérant vous avoir fait progresser.