[Résolu] - Propriété Enabled de Cbo ne remplit pas sa fonction ??

[Eric C]

Bonsoir le forum
Bonsoir à toutes & à tous

Un petit souci avec mes contrôles ComboBox (Active X). A l'ouverture du classeur, je tente d'initialiser la propriété Enabled de mes Cbo (nombreux) à True (en vain). Ensuite, à l'issue d'une sélection de valeur, je désire que l'utilisateur ne puissse revenir sur son choix et tente de déclarer la propriété Enabled du Cbo à "False". Malgré que la valeur "False" soit affichée dans les propriétés, sa fonction n'est pas remplie ?? Quelque chose m'échappe mais quoi ?? 😕

Bonne soirée à toutes & à tous

Eric c

 

[Paf]

Re : Propriété Enabled de Cbo ne remplit pas sa fonction ??

Bonjour

après cette modification ça fonctionne:

Dans Sub CboEnabled_True()

remplacer

If TypeName(x.Object) = "ComboBox" Then x.Object.Enabled = True

par

If  x.Name Like "ComboBox*" Then x.Enabled = True

N.B. TypeName ne renverra jamais le nom de l'object Cf aide


A+

 

[laetitia90]

Re : Propriété Enabled de Cbo ne remplit pas sa fonction ??

bonjour Eric C , Paf🙂
normalement par defaut... il doivent deja être a true a l'ouverture de ton fichier non??
autremement un truc dans ce genre

Private Sub ComboBox1_Click()
    Select Case MsgBox("Attention choix définitif !!!, confirmez vous la saisie ?", vbOKCancel, "confirmation!!")
     Case vbOK
     ComboBox1.Enabled = 0
     Case vbCancel
     ComboBox1.Enabled = 1
    End Select
End Sub

 

[Si...]

Re : Propriété Enabled de Cbo ne remplit pas sa fonction ??

salut

normalement par defaut... il doivent deja être a true a l'ouverture de ton fichier non??

oui 😀

Private Sub ComboBox1_Click()
  ComboBox1.Enabled = 6 - MsgBox("Confirmez vous la saisie ?", 4, "Attention, choix définitif !")
End Sub

doit suffire.

 

[Eric C]

Re : Propriété Enabled de Cbo ne remplit pas sa fonction ??

Bonsoir le forum
Bonsoir Paf, bonsoir laetitia90

Merci de vous être attardé sur ma question. Impec Paf, je me servais (j'su bricoleur pour le plaisir mais cela s'arrête là) de ma ligne de code, auparavant pour définir des "captions", c'est pour cela que je butais.... mais Paf est arrivé.
Merci aussi à laetitia d'avoir pris de ton temps. Sinon, oui, à l'ouverture du fichier, la propriété devrait être à "true" mais comme je bricole beaucoup sur mon appli, j'oublie de remettre les valeurs et ça plante. Ainsi, de cette façon je n'ai plus à penser aux propriétés changées manuellement (voir fichier joint... qui ne marchait pas). 😎
Bonne soirée vous deux ainsi qu'à toutes & à tous
Eric c

 

[job75]

Re : Propriété Enabled de Cbo ne remplit pas sa fonction ??

Bonjour Eric C,

Il faut préciser l'objet, vous l'avez bien fait dans la macro d'ouverture :

Private Sub ComboBox1_Click()
If MsgBox("Attention choix définitif !!!, confirmez vous la saisie ?", _
  vbYesNo + vbCritical) = vbYes Then ComboBox1.Object.Enabled = False
End Sub

Edit : oublié de saluer Paf, Laetitia, Si...

A+

 

[Eric C]

Re : Propriété Enabled de Cbo ne remplit pas sa fonction ??

Re le forum
Bonsoir Si..., bonsoir job75.

A vous deux merci aussi de vos réponses. C'est toujours un plaisir de trouver des Vbaistes bienveillants.
Merki & bonne soirée
Eric c