petit problème visuel sur retour infos checkbox

mikepers

XLDnaute Occasionnel
bonjour Le forum, Tous mes voeux.
Un petit souci sur un projet VBA, une base de donnée qui tourne assez bien. ayant plusieurs solutions possibles lorsque l'on renseigne les données, j'ai plusieurs checkbox qui selon les choix sont enabled ou disabled ( pour éviter des erreurs. Des choses assez simples du type :

If CheckBox1.Value = True Then
Image2.Visible = True
CheckBox3.Enabled = True
CheckBox2.Enabled = False
CheckBox8.Enabled = False


End If
If CheckBox1.Value = False Then
Image2.Visible = False
CheckBox3.Value = False
CheckBox2.Enabled = True
CheckBox8.Enabled = True

End If
tout fonctionne très bien dans la saisie base de donnée. par contre lorsque je récupère les données via une listbox, le retour d'info visuel est complètement aléatoire, alors que le code semble correct certaines checkbox devant renvoyer la valeur "enabled=false" restent enabled dans l'userform, ou l'inverse, comme si la listbox renvoyait bien les bonnes valeurs boleenes stockées dans la base ( pas d'erreur à ce niveau ) mais en ce qui concerne " enabled-disabled", visuellement c'est carément le bazard sur l'userform... lorsque je décoche manuellement et que je re-coche, la le code fonctionne. C'est comme si à la lecture de la listbox le code enabled-diabled des checkbox n'était pas bien lu.
je vous joint le code de la listbox. Peut être y a t'il un problème de focus je ne sais pas.. Sur d'autres bases de données je n'ai pas ce type de problème. J'ai probablement une erreur que je ne vois pas. PS suis sous Office 2010. Bien à vous !

Private Sub ListBox2_Change()
'retour info listbox
Application.ScreenUpdating = False
Sheets("table").Visible = True
Sheets("table").Select

Dim L As Integer, i As Integer
L = Range("A32767").End(xlUp).Row
For i = 2 To L
If Range("A" & i) = ListBox2.Value Then

TextBox1.Value = Range("A" & i).Value ' TITRE
TextBox2.Value = Range("B" & i).Value ' retour distributeur
TextBox3.Value = Range("C" & i).Value ' retour date arrivée jour
TextBox4.Value = Range("H" & i).Value 'retour prise en charge OP arrivée
TextBox5.Value = Range("I" & i).Value 'retour date départ JOUR
TextBox6.Value = Range("M" & i).Value 'retour prise en charge OP départ
TextBox7.Value = Range("N" & i).Value ' retour notes
TextBox9.Value = Range("O" & i).Value ' retour date arrivée mois
TextBox10.Value = Range("P" & i).Value ' retour date arrivée année
TextBox11.Value = Range("R" & i).Value 'retour date départ ANNEE
TextBox12.Value = Range("Q" & i).Value 'retour date départ MOIS
TextBox14.Value = Range("X" & i).Value ' Générique

CheckBox1.Value = Range("D" & i).Value 'retour livreur arrivee
CheckBox2.Value = Range("E" & i).Value 'retour postal arrivee
CheckBox3.Value = Range("F" & i).Value 'retour BL arrivée
CheckBox4.Value = Range("G" & i).Value 'retour enveloppe arrivée
CheckBox5.Value = Range("J" & i).Value 'retour départ livreur
CheckBox6.Value = Range("K" & i).Value 'retour départ postal
CheckBox7.Value = Range("L" & i).Value 'retour bon de reprise
CheckBox8.Value = Range("S" & i).Value 'demat

ComboBox2.Value = Range("T" & i).Value 'TYPE DE DEMAT


End If


If ListBox2.Value = "" Then
TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
TextBox4.Value = ""
TextBox5.Value = ""
TextBox6.Value = ""
TextBox7.Value = ""
TextBox9.Value = ""
TextBox10.Value = ""
TextBox11.Value = ""
TextBox12.Value = ""
TextBox14.Value = ""
TextBox1.Enabled = True
TextBox2.Enabled = True
CheckBox1.Value = False
CheckBox2.Value = False
CheckBox3.Value = False
CheckBox4.Value = False
CheckBox5.Value = False
CheckBox6.Value = False
CheckBox7.Value = False
CheckBox8.Value = False
ComboBox2.Value = ""


End If

Next


Sheets("open").Select
Sheets("table").Visible = False
Application.ScreenUpdating = True

End Sub
 

ChTi160

XLDnaute Barbatruc
Re
un fichier exemple de ce que je fais peux tu pour que je puisse avancer m'expliquer comment tout cela fonctionne ! Lol
Surement évident pour toi mais bon
Explique moi la démarche lorsque tu réceptionnes un Film (Physique et dématérialisé)
Idem pour le Retour du Film .
à quoi servent les Controls Ex : ListBox , Générique ,Commentaire ,Poubelle ,Recherche etc sauf Dates et Prise en charge . Lol
Pourquoi dans la feuille LOGS n'y a t'il pas de date de retour ? Est ce normal ?
Dans l'attente
Bonne fin de Soirée
Amicalement
Jean Marie
 

Pièces jointes

  • GESTION FILMs Multipage Chti160-1-1.xlsm
    229.8 KB · Affichages: 28
Dernière édition:

ChTi160

XLDnaute Barbatruc
Bonjour
Bonjour Le Fil ,Le Forum
un tableau de ce que j'aimerai que tu m'expliques sur l'utilisation de ton fichier !
il y a à un endroit , BON de SORTIE , Comment ,Quand , Où Utilise t'on cette rubrique ?
Tu vois plein de Question lol

Bonne Journée
Amicalement
Jean marie
 

Pièces jointes

  • ArriveeRetour.jpg
    ArriveeRetour.jpg
    63.3 KB · Affichages: 36

ChTi160

XLDnaute Barbatruc
Re
peux tu me dire quelles rubriques sont nécessaires pour le Retour du Film en Physique (puisque pas de prise en compte des retours dématérialisés)
Donc il n'y a aucune trace des arrivée et Départ Dématérialisés dans la feuille LOGS ?
Sinon , dans les feuilles BD (Table) LOGS que doit il apparaître concernant les Livraisons Dématérialisées?
Colonne DEPART FILM (Date de Retour)
Colonne RETOUR ( 2 possibilités si bien compris Livreur ou Postal)
Colonne MOYEN (y a t'il besoin de mettre Enveloppe ou Bon de Livraison)
Colonne OPERATEUR Retour 'Nom
y'a t'il autre chose à prendre en compte ? ex : Colonne xxxxxx (Correspond à ceux ci !)
a quoi doit te servir la ListBox BD (table)?
Merci
Bonne Fin de Journée
Amicalement
Jean marie
 
Dernière édition:

mikepers

XLDnaute Occasionnel
hello

REFERENCE est juste une feuille que j'avais créé au début juste pour ne pas me perdre dans les noms et références checkbox, textbox etc.. C'est juste un pense bête visuel que j'aurais du effacer désolé...
dans la feuille LOG on ne reprends que des infos de titre film, générique, si arrivé en dématérialisé, et date de reprise physique - si arrivée en physique.
C'est un peu empirique ( désolé je me débrouille un peu à l'arrache ).
En fait pour les logs il suffirait juste de savoir s'il est arrivé en dématérialisé ou en physique ( je n'arrive pas à trouver pour l'instant). Il arrive parfois que les distributeurs nous rappellent pour récupérer un DCP..qui est déjà reparti... Ou alors qui était arrivé en dématérialisé et donc n'avait pas de support physique à récupérer ( plus rare). La feuille LOG sert donc juste à consulter un historique rapide pour un film qui n'est plus exploité, déjà sorti physiquement ou bien effacé des seveurs.
ps : pas d'infos d'arrivée sur les logs ( on s'en fiche pour les arrivées physiques ) le plus important est la date de départ.

Amitié
 

ChTi160

XLDnaute Barbatruc
Re
OK
On s'est croisé , j'avais ajouté a quoi doit servir la ListBox BD(table) ?
autre question une fois le retour enregistré , on efface la ligne dans la feuille (table) et on transfère dans LOGS ?
Excuses Lol
Merci
Bonne fin de Journée
Amicalement
jean marie
 

mikepers

XLDnaute Occasionnel
bonjour !
- listbox1 : retour visuel des logs ( dans userform2)
- listbox2 : retour des titres de films dans userform1 ( si titre sélectionné, renvoi les données dans l'userform
"autre question une fois le retour enregistré , on efface la ligne dans la feuille (table) et on transfère dans LOGS ?" : oui, le film qui n'est plus exploité sort de la BD, le code sur le bouton commandbutton5 logge les infos d'abord, et retire le film de la BD principale.
Bonne journée !
Michel
 

Discussions similaires

Statistiques des forums

Discussions
311 705
Messages
2 081 721
Membres
101 803
dernier inscrit
astyx26