Checkbox USF

[VBA_MOI_APPRENDRE]

Bonjour

Contexte
Un userform
avec des textbox et des checkbox (3)
Une feuille qui accueille les données saisies dans l'usf

L'orsqu'on initialise l'usf
Les textbox se remplissent des valeurs des cellules de la feuille
(ca c'est ok)

Mais comment récupérer la valeur des checkbox stockées dans la feuille?


Je n'ai pas le bout de code de mon classeur sous la main.

Merci de m'aider

 

[PascalXLD]

Je t'envoie ce que j'ai car perso j'ai pas de problème cela marche bien directement en doublecliquant sur la ligne 3 ou en descendant par rapport à la laigne 1 je n'ai jamis la checkbox de coché

[file name=populate_userform_20050623170712.zip size=24849]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/populate_userform_20050623170712.zip[/file]

 

[VBA_MOI_APPRENDRE]

Avec ton fichier cela fonctionne effectivement

 

[VBA_MOI_APPRENDRE]

Bonsoir

En modifiant cette exemple
Lien supprimé

J'ai quasiment obtenu le résultat escompté
J'ai rajouté des checkbox

(et j'ai du commenté des lignes de codes)

Si quelqu'un veut y jeter un coup d'eil

et exliquer pourquoi les erreurs se produisent

Merci d'avance.

 

[VBA_MOI_APPRENDRE]

Voila le fichier
(enfin normalement) [file name=USFCBoxV1.zip size=33791]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/USFCBoxV1.zip[/file]

 

[PascalXLD]

RE

Peux-tu dire quelles erreurs tu as car je n'en vois pas

Bonne journée

PS : Tu pourrais peut-être prendre un (vrai) pseudo

Message édité par: Pascal76, à: 24/06/2005 07:35

 

[VBA_MOI_APPRENDRE]

Bonjour

Si on 'décommente'

les lignes For Each CTRL

ça bogue.


Je n'étais pas sûr des déclarations CheckBox As Boolean


par vrai pseudo, il faut comprendre se créer un compte sur le forum
?

Je compte bien le faire.

 

[VBA_MOI_APPRENDRE]

Voilà les ligne incriminées
'===============================> Modifs
'ici une boucle sur tous les controls, si un est vide on sort et on set le focus dessus
'For Each CTRL In Me.Controls
'If CTRL = '' Then MsgBox 'Donnée Incomplete', vbCritical, T: CTRL.SetFocus: Exit Sub
'Next CTRL
'LIGNES COMMENTEES SINON ERREUR


Egalement dans la procédure
Private Sub CmdSupprimer_Click()

Si on ote les '

On obtient une erreur

 

[PascalXLD]

Re

Tu veux controler quels controls ??

Lesquels veux-tu rendre obligatoire ??