Besoin d'aide pour finaliser codage.

[pompaero]

Bonjour le forum,

En cours de construction d'un fichier, je suis arriver à coder une bonne partie du formulaire avec l'aide d'ancien fichier en exemple, mais encore amateur dans le domaine,
un peu perdu et certainement en train de confondre les choses, bien évidemment il y a des bugs, dont mon appel au secours.
Le but du formulaire est d'enregistrer des gardes pour plusieurs agents, pouvoir modifier une fois dans la BDD.
Bugs que je rencontre :
1) ListBox1 affiche des lignes en pointillé alors que cela ne le faisait pas avant de coder la ComboBox1 (C1)
2) ListBox3 n'affiche pas la totalité des données.
3) Bouton Valider (CB_Valider) n'enregistre pas les valeurs de la ListBox1
4) Bouton Valider (CB_Valider) j'aimerai pouvoir enregistrer les multiSelction de la ListBox1.
Si quelqu'un veux bien m'aider à régler ces soucis, ça serai sympas.

Pompaero

 

[Hasco]

Bonjour,

Commencez par anonymiser le fichier joint !


Bonne journée

 

[pompaero]

Bonjour Roblochon,
Désolé, tu as raison.. Voici le fichier anonymisé.
Merci
pompaero

 

[Hasco]

RE,

EUH ???? et supprimer le premier qui est toujours non anonyme!!!!!

J'espère que dans votre métier, vous êtes plus vigilants concernant la confidentialité.

A+

 

[David Aubert]

Bonjour,
Merci Roblochon d'avoir averti pompaero!
N'hésite pas à cliquer sur le menu "Signaler", dans ces cas les modérateurs sont informés.
Bonne journée

 

[pompaero]

Re, Roblochon, David XLD,

Entièrement d'accord avec vous, mais pour être sincère je n'arrive pas à supprimer les pièces jointes dans les fils, désolé.
pompaero

 

[pompaero]

Re,
Je viens de résoudre les points 1 et 2, j'suis content j'y suis arrivé seul, j'avais simplement oublié de dimensionner correctement le tableau dans la macro.
Si quelqu'un veut m'aider sur les points restant, je suis preneur.
Merci
pompaero

 

[Hasco]

Bonjour,

Comme il n'y a pas de classeur avec les dernières modifications et que l'autre plante à vue de nez, quelque chose comme ça devrait le faire en fin de CB_Valider_Click() :

 l = .Range("A" & Rows.Count).End(xlUp).Row + 1    'Pour placer le nouvel enregistrement à la première ligne de tableau non vide
                For i = 0 To ListBox1.ListCount - 1
                    If ListBox1.Selected(i) Then
                        .Range("A" & l).Value = CDate(C1)
                        .Range("B" & l) = ListBox1.List(i)
                        .Range("C" & l).Value = ListBox2
                        l = l + 1
                    End If
                Next i

bon après-midi

 

[pompaero]

Re,

Merci Roblochon, Super ça marche. Encore désolé pour le fichier.
J'essai de poursuivre seul comme un grand, peut-être à plus tard.
Merci
bonne après-midi.
pompaero