Usrform et liste déroulante conditionnelle

[chris35]

Bonjour à Tou(te)s

le fichier joint contient un embryon de gestion de comptes bancaires.

j'utilise des combobox créées à partir les listes de la feuille "Listes".

il y a 2 pb que je n'arrive pas à résoudre :

1/ - je souhaiterais que les listes déroulantes de la combobox "Imputation" soient différentes en fonction de la checkbox "Dépense/recette"

c'est à dire : si checkbox = dépense, alors la liste déroulantes est la liste des libellés de dépense (colonne "lib_dep" de la feuille "Listes")

et si checkbox = recette, alors la liste déroulantes est la liste des libellés de recette (colonne "lib_recette" de la feuille "Listes")

---

2/ - Deuxième Pb : dans les feuilles "comptes..", ce ne sont pas les libellés que je veux faire entrer dans la colonne "Code", mais les codes analytiques correspondant à ces libellés

---

Voilà !

Un grand merci d'avance aux Ceusses qui voudrons bien se pencher sur ces bonnes questions.

Bien cordialement

Chris

 

[celal]

Bou, j'reussi pas à télécharger ton fichier.

Dans les info de la cheekbox tu peux ajouter dans la procedure change :

combobox.clear
et là tu rerentre tes valeurs qui vont bien

Bon, c'est jeuste des indications j'ai pas pu avoir ton fichier, mais ça m'a pas l'air impossible.

 

[chris35]

Deuxième envoi de la pièce jointe (qui n'est pas passée avec le 1er message)

 

[Chris35]

Salut Tout le monde

Il intéresse personne mon pb ?

... ou il a pas de solution ?

a+

Chris

 

[Damien]

Bonjour,

Je souhaiterais savoir s'il est possible d'éxecuter une boucle sur des labels dans un userform.
Mais label sont nommés J1, J2, J3, J4, J5 ... et je souhaiteris donc les atteindre du style
for i= 1 to 5

 

[Damien]

Bonjour,

Je souhaite savoir s'il est possible datteindre des labels dans un userform à l'aide d'une boucle, du style :
for i= 1 to 5
label(i).caption="nom"&(i)
next


merci

 

[myDearFriend]

Salut Christ35,

Tu trouveras ci-joint le fichier rectifié selon tes souhaits.

J'ai tout d'abord modifié les propriétés du ComboBox "Imputation" afin de permettre la gestion de 2 colonnes (codes analytiques et libellés associés) :
.BoundColumn = 1
.ColumnCount = 2
.ColumnWidths = 24.95 pt
.TextColumn = 2

Le chargement de la liste de ce ComboBox est assuré par la procédure :
Private Sub RempliChoixImputation(Dep As Boolean)
"Dep" étant True s'il s'agit d'une dépense et False pour une recette.

Cette procédure est lancée à chaque évènement "Change" des OptionButtons "Dépense" et "Recette".

Espérant avoir répondu à ta demande.

Cordialement.
Didier

 

[Chris35]

Merci Didier,

Génial ! C'est vraiment très sympa !

Pour l'heure de ton post, c'est 2h du mat heure US, ou heure française ?
J'espère que c'est pas mon pb qui t'a empêché de dormir !

Ca fait un bel exemple de userform. Avec ce que tu avais fait au post http://www.excel-downloads.com/html/French/forum/read.php?f=1&i=82822&t=82788

ça répond à pas de choses sur les listes "conditionnelles".

Encore merci.

Bien cordialement,

Chris

 

[Chris35]

Salut Didier et Tutti !

Dans la série "on peut toujours améliorer", je me suis permis de modifier le traitement de la date sur ton code.

J'ai ajouté une validation de la date.

et j'ai remplacé la ligne : LigneCompte(1, 1) = date_oper.Text

par la ligne : LigneCompte(1, 1) = CDate(date_oper)

Ce qui évite d'avoir une date qui soit en fait du texte.

Je reposte la version modifiée pour les ceusses que ça peut intéresser.

A+

Chris