Liste Box et case à cocher

[Antho35]

Bonjour,

Dans un Userform avec une listbox apparaissenet des info, je veux que lorqu'on clic sur une case (traitement) cela appraisse dans une colone de mon tableau avec la mention Traité le JJ/MM/AA à HH:MM:SS. A la réouverture du forumlaire de traitement, il ne doit y avoir que les demande qui ne sont pas traité (donc pas cocher). La présence des deux userform est indisponsable (demande de ma direction) donc les deux sont utiles.

Je joint un morceaux du fichier.

Désolé mais pas simple à expliquer, mon histoire.

Merci pour votre aide.

 

[youky(BJ)]

Re : Liste Box et case à cocher

Bonsoir Antho35,
De retour ton fichier.
Sur le bouton OK j'ai mis pour effacer la ligne mais pas pour remplir les données
Bruno

 

[Antho35]

Re : Liste Box et case à cocher

Merci,

Mais j'ai un probléme avec ton fichier archives. il est endomage, visiblemenet

Tu peux me le renvoyer

Stp

 

[youky(BJ)]

Re : Liste Box et case à cocher

Bigrrre, le fichier joint fonctionne, je viens de refaire l'essai.
Voici le code que j'ai modifié . . . .

Private Sub CommandButton1_Click()
'blabla bouton OK de l'userform1
If Me.ListBox1.ListIndex > -1 Then _
Me.ListBox1.RemoveItem (ListBox1.ListIndex)
End Sub

Private Sub UserForm_Initialize() 'à l'initialisation de l'UserForm
Dim x As Integer 'déclare la variable x (incréemt)

'***************************
'alimentation de la ListBox1
'***************************
'boucles sur toutes les cellules éditées de la colonne B de l'onglet "Feuil2"
 With Me.ListBox1 'prend en compte la ListBox1
For x = 2 To Sheets("Feuil2").Range("B65536").End(xlUp).Row
  If Sheets("Feuil2").Cells(x, 7) = "" Then
        .AddItem Sheets("Feuil2").Cells(x, 1) 'ajoute la valeur de la colonne A
        .Column(1, .ListCount - 1) = Sheets("Feuil2").Cells(x, 2) 'ajoute la valeur de la colonne B
        .Column(2, .ListCount - 1) = Sheets("Feuil2").Cells(x, 3) 'ajoute la valeur de la colonne C
        .Column(3, .ListCount - 1) = Sheets("Feuil2").Cells(x, 4) 'ajoute la valeur de la colonne D
        .Column(4, .ListCount - 1) = Sheets("Feuil2").Cells(x, 5) 'ajoute la valeur de la colonne E
        .Column(5, .ListCount - 1) = Sheets("Feuil2").Cells(x, 6) 'ajoute la valeur de la colonne F
        .Column(6, .ListCount - 1) = Sheets("Feuil2").Cells(x, 7) 'ajoute la valeur de la colonne G
  End If
Next x 'prochaine cellule de la boucle
End With 'fin de la prise en compte de la ListBox1
'alimentation de la ComboBox1
Me.ComboBox1.List = Sheets("MOTIF").Range("A1:A" & Sheets("MOTIF").Range("A65536").End(xlUp).Row).Value
End Sub

Bruno

 

[Antho35]

Re : Liste Box et case à cocher

Bonjour

j'ai pu exxtraire correctement le fihcier sur mon pc au travail, ce matin.

Quand je coche traitement, la ligne disparai bien, cependant, si je réouvre le userform, la ligne réaparait, comment faire pour faire apparaitre la mention 'Traité le JJ/MM/AA dans le tableau ?, autre point, si je trait une demande, la suivante apparait avec la cacse chocher, je ne veux que la manip viennet de l'utilisateur.

Merci pour votre aide

 

[Antho35]

Re : Liste Box et case à cocher

Malheurement le début de solution de Bruno, ne résolue pas mon probléme. Je re-post ici ma demande. Si quelqu'un à une petite solution, je suis toujours preneur.

Merci bonne journée

 

[youky(BJ)]

Re : Liste Box et case à cocher

Salut Antho35,
Le plus dur est de bien comprendre la demande. . .
je pense en être pas loin bien que je ne comprenne pas tout le fichier.
Voici le fichier.
Bruno

 

[Antho35]

Re : Liste Box et case à cocher

Bonjour Bruno,

On est pas loin effectivement, cependant si je ferme on userform, traitement,
les demande coché re-apparaissent à l'ouverture, dans la listebox il ne doit y avoir que les non traité.

Cela marche pour le premier nom mais pas pour le reste

J'espére est un peu plus clair.


Merci

 

[youky(BJ)]

Re : Liste Box et case à cocher

Bon, j'ai fais comme j'ai compris , la case à cocher n'est pas l'idéal car sitot cochée j'écris en feuil2 et je décoche comme tu là demandé, ca va si vite que l'on vois pas le checkbox coché.
J'ai fais aussi pour Régularisation aussi.
Voila le nouveau fichier.
Bruno

 

[Antho35]

Re : Liste Box et case à cocher

Si tu dit que la case à cocher n'est pas l'idéal as tu une solution meilleures, car je suis peut êttre passez à côté de quelques chose de beaucoup plus simple....

 

[Antho35]

Re : Liste Box et case à cocher

Bruno,

si je ferme et je réouvre j'ai toujour les demande, un fois traité elle ne doit plus revenir dans la listebox...

Et oui ça va vite

 

[youky(BJ)]

Re : Liste Box et case à cocher

Nouvelle version
A tester
Bruno

 

[Antho35]

Re : Liste Box et case à cocher

A force de persévérence, nous y sommes presques,

Cependant, je ne veu voir le tableaudes résultat, et je veux qu'on continye a avoir les infos dans le formulaire.

Les utulisateur ne doivent pas voir le tableau qui recoi l'ensemble des demandes.

 

[youky(BJ)]

Re : Liste Box et case à cocher

Antho, si mon dernier fichier ne conviens pas
pour répondre à ton message #11
voici la ligne de code à corriger au lieu de:
If Sheets("Feuil2").Cells(x, 6) = "" Or Sheets("Feuil2").Cells(x, 8) = "" Then
il faut
If Sheets("Feuil2").Cells(x, 8) = "" Then
je voulais charger les non régularisés et les non traités ceci en Initialize
Bruno

 

[youky(BJ)]

Re : Liste Box et case à cocher

je pensais que tu saurais vite remettre comme avant
en module1....supprime Feuil2.select (ici en rouge)
Sub Bouton2_QuandClic()
Feuil2.SelectUserForm1.Show
End Sub