Impossible de définir la propriété Value
Bonjour à Tous,
Dans mon répertoire téléphonique, j'ai un petit bug que je n'arrive pas à corriger. Quand je clique dans le listview pour avoir les détails d'un contacts, je reçois un message d'erreur:
"Impossible de définir la propriété Value. Valeur de la propriété non valide."
et en VBA, il m'amène sur cette ligne:
"Me.Controls("Textbox" & Indice) = ListView_Telep.ListItems(i).ListSubItems(K).Text"
Besoin de votre aide S.V.P. pour m'aider à régler ce problème.
Je joins mon fichier.
Merci
Jean
Bonsoir,
c'est peut-être du au fait que votre textbox11 est en fait un Combobox, non ?
Avez vous créer sa liste dans l'initialisation du USF ?
En l'absence d'une telle création il faut passer par AddItem....
Enfin je pense, mais ce n'est pas forcément vrai...
@ bientôt
LouReeD
Bonjour LouReeD,
La liste du combobox passe par ici:
Je ne connais pas assez le VBA pour savoir s'il y a un erreur dans le code.
Merci d'avoir répondu.
Jean
Private Sub UserForm_Initialize()
'Quand Ouvre le UserForm, le Bouton CommandButton_Ajout est Désactivé'
CommandButton_Ajout.Enabled = False
'Fin Quand Ouvre le UserForm, le Bouton CommandButton_Ajout est Désactivé'
'Début Syntaxe pour Plein Écran'
Const GWL_STYLE = (-16)
Const GWL_EXSTYLE = (-20)
Const WS_SIZEBOX = &H40000
Const WS_EX_APPWINDOW = &H40000
Dim wLong As Long
'Afficher le UseForm Plein Écran'
Application.WindowState = xlMaximized
wForm = Me.Width: hForm = Me.Height
Call lblResize
Call SaveControlsProperties
'Cacher la Bande Bleue'
'CACHER_BANDE_BLEUE Me
'Fin Cacher la Bande Bleue'
'Liste de Choix de Noms pour Remplir le ComboBox (TextBox11)'
TextBox11.List = Array("BRASSAGE", "BRIGADE", "CENTRALE THERMIQUE", "EMPAQUETAGE", "ISS", "LABORATOIRE", _
"MAGASIN SERVICES TECHNIQUE", "MEDICAL", "SANTE SECURITE", "SECOURISTE", "SERVICES DES BUREAUX", _
"TECHNIQUE", "TRAVAUX CONNEXES", "VENTE TELEMARKETING VENTE")
'Fin Liste de Choix de Noms pour Remplir le ComboBox (TextBox11)'Bonsoir, et Salut à LouReed...
J'ai eu un peu de mal car je ne connais pas la ListView (j'ai commencé à me documenter un peu, c'était l'occasion...
L'erreur se produit systématiquement sur K=10, donc avec le décalage sur TextBox11... LouReed avait bien décelé le point critique !
Un peu surpris parce que MatchRequired est à false dans la fenêtre de propriété pour cette Combo, et je n'ai pas vu dans le code si un élément transformait de fait cette liste en liste de validation de fait...
Il n'en reste pas moins que si tu rectifies la liste introduite dans la Combo (la dernière proc. que tu as citée) la mention :
"SANTE SECURITE" en la remplaçant par : "SANTE/SECURITE", tel que c'est écrit dans ton tableau, l'erreur disparaîtra.
Cordialement.
Bonsoir MFerrand,
Effectivement ça fonctionne en changeant "SANTE SECURITE" par : "SANTE/SECURITE.
Un très gros MERCI à MFerrand & LouReed.
J'apprécie.
Jean
Bonjour à vous deux !
Mince alors ! Je n'ai pas regardé le code avec suffisamment d'attention !!!
J'aurais du voir cette erreur !
Ceci dit l'idée était bonne : ce que l'on voulait afficher n'était pas "en mémoire" dans la combobox....
Heureusement MFerrand est là
@ bientôt
LouReeD
Ps : MFerrand, 4ième !!!! Bravo à vous, le prochain n'a que 16000 messages ! il vous en reste 7000 pour passer 3 ième !!!
Moi avec ma 24ième place je suis encore loin, mais je m'approche tout doucement de la couleur rouge...