probleme alimentation listBox en cascade

[Bosco13]

Bonsoir le forum,

je me tourne a nouveau vers vous car j'ai un petit soucis pour alimenter soient des combobox, soit des listbox en cascade.

J'ai réussi a faire si mes données sont toutes sur les même colonnes, c'est dire les sélection, le tri les doublon Etc...!


Mais le problème c'est que je vais me retrouver avec plus de 5000 lignes donc trop contraignant pour la gestion.

j'ai donc fait mes listes ( très réduite pour le moment) sur une feuille. et il y a des critère de sélection.

Mais je n'arrive pas a trier et alimenter les listbox en cascade et gérer le tri et doublon . et pourtant j'ai essayer pas mal de code de la mine d'or du forum

j’espère que l'un d'entre vous, arrivera a m'aider.

je vous en remercie d'avance

Bonne soirée a tous

 

[Bebere]

Re : probleme alimentation listBox en cascade

Bosco
complété amortir
bouton enregistrer
combobox1 alimentée si pas de date en M,etc

 

[Bosco13]

Re : probleme alimentation listBox en cascade

Re bebere, le forum

Heuuu tu vas bien plus vite que moi.......!!!
j'ai effacé les données amorties pour recommencer
il y a un petit problème de chargement du entre le choix de la combobox et le cahrgement du label correspondant
( c'est pas a chaque fois)

une fois tous les amortie fait le message tous Donnée amortie c'est super par contre les labels sont remplie

Je vais déja essayer adapter ce que tu viens de faire sur le fichier principale

De mon coté j'avais un problème avec le chargement du usf amortir.


Edit : J'ai également rajouté la valeur de la croix du label rouge dans le range .

Merci

a plus tard

Bosco

 

[Bebere]

Re : probleme alimentation listBox en cascade

bosco comme suit
vu une autre erreur

Private Sub ComboBox1_Change()
    Dim L As Long

    L = Me.ComboBox1.List(Me.ComboBox1.ListIndex, 1)
        Me.Label17 = Me.ComboBox1

    With Sheets("GESTION")
        Me.Label28 = .Range("B" & L).Text
        Me.Label27 = .Range("C" & L)
        Me.Label8 = .Range("D" & L)
        Me.Label13 = .Range("E" & L)
        Me.Label26 = .Range("F" & L)
        Me.Label44 = .Range("G" & L)
        Me.Label24 = .Range("H" & L)
        Me.Label39 = .Range("I" & L)
        Me.Label25 = .Range("J" & L)
        Me.Label22 = .Range("K" & L)
        Me.Label23 = .Range("L" & L)
        Me.Label32 = .Range("O" & L)
    End With

End Sub

 

[Bosco13]

Re : probleme alimentation listBox en cascade

re bebere

ok je modifie de suite

merci a toi

 

[Bosco13]

Re : probleme alimentation listBox en cascade

re bebere

maintenant si il n'y a plus de demande a amortir a l'ninitialise
cela bug sur cette ligne


L = Me.ComboBox1.List(Me.ComboBox1.ListIndex, 1)

 

[Bebere]

Re : probleme alimentation listBox en cascade

oui Bosco
je me disais aussi qu'il manquait quelque chose
tu peux aussi prendre lévènement click et ne faire qu'un test sur "Données amorties"
ou un test sur Me.ComboBox1.List(Me.ComboBox1.ListIndex, 1)=""
attention si tu changes le texte

Private Sub ComboBox1_Change()
    Dim L As Long

    If Me.ComboBox1 <> "" And Me.ComboBox1 <> "Données amorties" Then
        L = Me.ComboBox1.List(Me.ComboBox1.ListIndex, 1)
        Me.Label17 = Me.ComboBox1

        With Sheets("GESTION")
            Me.Label28 = .Range("B" & L)
            Me.Label27 = .Range("C" & L)
            Me.Label8 = .Range("D" & L)
            Me.Label13 = .Range("E" & L)
            Me.Label26 = .Range("F" & L)
            Me.Label44 = .Range("G" & L)
            Me.Label24 = .Range("H" & L)
            Me.Label39 = .Range("I" & L)
            Me.Label25 = .Range("J" & L)
            Me.Label22 = .Range("K" & L)
            Me.Label23 = .Range("L" & L)
            Me.Label32 = .Range("O" & L)
        End With
    End If

End Sub

 

[Bosco13]

Re : probleme alimentation listBox en cascade

Re

Ah ok effectivement cela ne bug pas sauf si on clic sur enregistrer ou valider a cause du dtpicker



EDIT : ci joint mon fichier travail a jour

 

[Bosco13]

Re : probleme alimentation listBox en cascade

Bonjour bebere, Le forum

J'ai modifier le fichier

J'ai ajouté du code pour l'usf Amortir_Demande dans l'activate ainsi que dans les boutons enregistré et enregistrer fermer avec msgBox
pour eviter les bugs je te laisse me dire ce que tu en pense

Amicalement
Bosco


EDIT Je met une nouvelle version car j'ai modifier egalement le usf new demande pour le bouton enregistrer sans fermer

 

[Bebere]

Re : probleme alimentation listBox en cascade

bonjour Bosco
mis commentaire dans code

(c) CJoint.com, 2012

 

[Bosco13]

Re : probleme alimentation listBox en cascade

Bonsoir Bebere, le forum

Je te remercie.
Sur le usf amortir, je vois que tu as bien allégé le code que j'avais mis.

Pour le code que j'ai mis dans le usf new demande , je n'ai pas vu de commentaire

maintenant, va falloir que j'attaque les differents ajouts et l’accès


Je te souhaite aune agréable soirée

Bosco

 

[Bebere]

Re : probleme alimentation listBox en cascade

bonjour Bosco,le forum
nouvelle demande est bon il me semble
une question faut il le tout ou y a t'il des champs obligatoires
explique un peu les différents ajouts et l’accès

 

[Bosco13]

Re : probleme alimentation listBox en cascade

Bonjour Bebere, Le forum

Désolé, journée achats avec madame pour cadeaux enfants, petits enfant, etc......!!!!! pour noel !

En réponse a ta question: sur le USF NEW_DEMANDE tous les champs sont obligatoire. en commençant par le choix
combobox batiment
Type demande choix et numéro ( particularité 7chiffres dans la txtbox)
type travaux
ect....!!!!

Pour les ajouts il faut reprendre ce que l'on avait prévu au début avec les mises a jour listbox


Pour les acces je complete la feuille autorisation et te mettrai commentaires dans le fichier dans la soirée.

Encore merci

@@ +++ Bosco

 

[Bosco13]

Re : probleme alimentation listBox en cascade

Bonsoir Bebere, Le forum

J'ai mis une explication pour les usf New demande et Amortir demande

Je prépare pour acces et te l'envoie egalement
Je te souhaite une agréable soirée

merci a toi

Bosco

 

[Bebere]

Re : probleme alimentation listBox en cascade

bonjour Bosco
voilà ce qui est fait pour le moment
(c) CJoint.com, 2012

 

[Bosco13]

Re : probleme alimentation listBox en cascade

Bonsoir Bebere, Le Forum

Je te remercie et suis désolé pour avoir tarder a te répondre,
je profite d'un moment de repos car avec les intempéries du Sud, je suis de garde en permanence....!!

Je te joint mon fichier , sur la feuille d'explication usf j'ai mis des réponses en colonne A pour quelques petites a vérifier.

J'ai rajouté une feuille explications pour les acces
et j'ai egalement modifier les usf d'acces et new mdp, j'ai aussi préparé l'usf demande new responsable. et ajout batiment

Je te souhaite une bonne nuit et un bon Dimanche

Encore merci a toi

Amicalement
Bosco