Aide à Finaliser application Gestion de dates

[aubelix]

Bonjour à tous les amis du Forum. 🙂

Tout d'abord un grand Merci à tous les bénévoles qui m'ont aidé à mettre
au point cette application : Affichage de feux rouges ou verts en fonction du délai restant des dates.

Elle fonctionne, mais en partie. Il y'a un bouton "MENU GENERAL"pour les diverses actions.

L'UsF_Consultation fonctionne très bien.
- Sur ce modèle, je voudrai adapter avec le même de type de code l'affichage de l'UserForm1 avec une Listview.

- Mise à jour des champs du UserForm1 en temps réel sans avoir à cliquer sur le bouton "Consulter la fiche".

- Dans l'UserForm "UsF_Recherches", trier par ordre croissant les numéros
et par ordre alphabétique lors de la séléction par les Combobox.

Pour votre info, les gifs animés doivent être copiés sous C:\TEMP

En espérant avoir de l'aide et vous en remerciant par avance.
Cordialement.

 

[aubelix]

Re : Aide à Finaliser application Gestion de dates

Bonjour à tous les amis du Forum. 🙂

J'ai modifié mon projet. J'ai gardé un seul Userform et ajouté une Listview.
SVP, quelqu'un pourrait-il essayer de m'aider sur le code de la Listview en consultation. 😕
Nota: pour les Gifs animés, les placer sous C:\TEMP

Par avance Merci pour votre aide.
Cordialement.

 

[aubelix]

Re : Aide à Finaliser application Gestion de dates

Bonjour à tous les amis du Forum. 🙂

Quelqu'un a-t-il un début de solution SVP ?
Par avance Merci pour votre aide.

Bon week-end ensoleillé à tous. 😎
Cordialement.

 

[aubelix]

Re : Aide à Finaliser application Gestion de dates

Bonjour à tous les amis du Forum. 🙂

Dernière bouteille à la mer, avant abondon final de ce post. 😱

Merci par avance pour votre aide.
Bonne journée à tous
Cordialement.

 

[kjin]

Re : Aide à Finaliser application Gestion de dates

Bonjour,
Juste pour te dire que j'ai regardé, (et je ne suis pas le seul à priori) mais que j'ai rien compris
Où est le formulaire "UserForm1" dont tu parles ?
A quoi sert la listview dans le formulaire "Consultation" puisse qu'elle n'est pas utilisée ? De fait, il est difficile de l'adapter au formulaire "Recherche" !
A+
kjin

 

[aubelix]

Re : Aide à Finaliser application Gestion de dates

Bonjour Kjin. 🙂

Merci pour l'intérêt que tu portes à mon problème.
Je vais essayer d'être bref et clair dans mes explications.
Reporte toi à mon envoi initial pour voir les 2 userforms.

Le but de cette application, est de prévenir sur des dates concernant
des habilitations qualité. Surveillance en temps réelle des échéances.

Comme tu le contaster, dans le post initial, il y'a en lançant le menu 2 options:
1) Consultattion individuelle via une combobox, on choisit un nom.
toutes les infos relatives à ce nom s'affichent.

2) Consultation globale, via la listview, on choisit un nom et on clique sur
afficher la fiche et les infos relatives à ce nom s'affichent.

Mon but d'avoir une vision globale des emplyés via la listview pour afficher les infos.
Cela m'évite d'avoir un doublon entre individuelle et globale.
Et surtout comme tu le constater, la consultation individuelle est plus travaillée à savoir:
les feux ne s'affichent que s'il y'a des dates.
Je n'arrive pas à adapter le second userform pour avoir le même résultat.
C'est pour cela que dans mes posts suivants, j'ai ajouté une listview à la consultation
individuelle pour faciliter le travail du bénévole sympa qui aurait pû m'aider.

Je me tiens à ta disposition pour d'amples explications.
Dans l'attente de votre aide, Merci par avance. 🙂
Cordialement.

 

[bqtr]

Re : Aide à Finaliser application Gestion de dates

Bonsoir aubelix, Kjin

Pour le 1er fichier que tu as mis en PJ dans ton 1er message.

Exemple de code pour remplir les textboxs avec les données de la listview1 après avoir clicker sur un nom dans la première colonne. (listview1 dans le userform1, Consultation Globale)

Private Sub ListView1_Click()

Dim k As Byte
With ListView1
TextBox1.Value = .SelectedItem.Text
  For k = 1 To 14
     Me.Controls("TextBox" & k + 1).Value = .SelectedItem.ListSubItems(k).Text
  Next
End With
'rajouter le code pour les webBrowsers et autres TextBoxs (TxtBx)
End Sub

Pour les WebBrowsers et autres Textboxs (TxtBx) je te laisse faire à priori c'est comme pour la recherche par nom.



Pour le classement dans le combobox1 du userform de Recherche:
Il faut utiliser par l'exemple la fonction de conversion CDBL pour convertir les données en nombre. Les combobox renvoient les données sous forme de texte.

'.../...
 With ComboBox1
        For i = 0 To .ListCount - 1
            For j = 0 To .ListCount - 1
                If [B]CDbl[/B](.List(i)) < [B]CDbl[/B](.List(j)) Then
'.../...

Pour le combobox2 de ce même userform, avec des noms sans chiffres le tri devrait se faire correctement.

En espérant avoir compris ta demande.

A+

 

[aubelix]

Re : Aide à Finaliser application Gestion de dates

Bonjour bqtr 🙂

Merci pour ta réponse et de t'intéresser à mon problème.
J'ai ajouté dans Userform1 les lignes de code, mais j'obtiens un message d'erreur.
Voir image écran jointe. Je te joint le fichier modiifé.

Par avance, Merci pour ton aide.
Cordialement.

 

[bqtr]

Re : Aide à Finaliser application Gestion de dates

Re,

Le problème vient des numéros des textboxs, ils ne sont pas numérotés de la même façon que dans ton 1er fichier.

Il faut les numéroter de 1 à 15. Textbox1, Textbox2,......Textbox14,Textbox15.

A+

 

[aubelix]

Re : Aide à Finaliser application Gestion de dates

Merci bqtr.

j'essaie de ce pas.
Cordialement

 

[aubelix]

Re : Aide à Finaliser application Gestion de dates

Re bqtr. 🙂

J'ai pourtant fait un copier-coller de UsF_Consultation vers UserForm1
pour avoir les mêmes noms de textbox...
J'ai vérifié, je ne vois pas de différence de noms à part le Combox1 qui est devenu TextBox1.

J'avoue être un peu perdu.😕
Merci pour ton aide.
Cordialement.

 

[aubelix]

Re : Aide à Finaliser application Gestion de dates

Re bqtr. 🙂

Ci-joint fichier modifié. En m'inspirant de ton code
+ une pincée du code de UsfConsultation ça foctionne ! 😱

Je l'ai fait à l'instinct...
Si tu peux jetter un oeil
Cordialement.

 

[bqtr]

Re : Aide à Finaliser application Gestion de dates

Re,

Je persiste et je signe 😀😀😀, dans ton 1er fichier celui de ton 1er message les textboxs concernés sont nommés :

textbox1,textbox2,....textbox5, textbox6,.......textbox15

et NON un mélange comme celui de tes derniers fichier:

textbox1, textbox01, textbox2, textbox02, ..... textbox07, textbox08,...textbox15

La boucle ne peux donc pas fonctionner avec un textbox nommé : textbox05 ou 06 ou 09 par exemple.
La variable k prend comme valeur 1 puis 2 puis 3, 4, 5, .....10, 11, ...15
mais jamais 01, 02, 03, 04, ....

Là ça fonctionne car tu fais une recherche sur la feuille et tu remplis les textboxs un par un dans le code. Ceci est inutile si les textboxs sont correctement nommés de 1 à 15 comme dans ton 1er fichier.
La listview dans ce cas ne sert pas à grand chose, un simple combobox avec le nom des employés suffit.

En PJ ton 1er fichier, celui de ton 1er post.

A+

 

[aubelix]

Re : Aide à Finaliser application Gestion de dates

Re bqtr 🙂

Tu as entièrement raison.
J'ai fait évoluer les versions.
C'est toi qui est dans le vrai.

D'autre part, peux-tu STP m'aider à trier par ordre numérique
les numéros. J'ai ajouté ton code, mais j'ai des messages d'erreur.

Par avance Merci pour ton aide.
Cordialement.

 

[bqtr]

Re : Aide à Finaliser application Gestion de dates

Re,

Tu parles du USF de Recherche ?
Si c'est ça regarde les modifs dans le fichier.

- Les combobox 1 et 2 ont deux colonnes, la 1ère le nom ou le n°, la deuxième qui est masquée (largeur = 0) le n° de la ligne de la feuille DATA où se trouve la donnée de la colonne 1.

- J'ai modifié le nom des 9 premiers employés (employe_01, employe_02 ....) Le tri se fait correctement.

- J'ai changé les procédures Combobox_Change par Combobox_Click, c'est plus pratique.

A+