Userform, cascade, recherche

[pierrof]

Bonjour et meilleurs voeux à tout le monde.

Sur mon projet je souhaite à l'aide d'un userform comparer des données.
Dans un premier temps je voudrai à l'aide de combobox en cascade renseigner des textbox (le nombre de lignes de données peut varié).

Je vous laisse un fichier exemple
Merci de votre aide
A+

 

[jp14]

Re : Userform, cascade, recherche

Bonjour et Bonne année à Tous

Ci joint le fichier avec les procédures.
Le premier combobox contient les noms ( sans doublons) triés.
Le deuxième contient les données correspondantes au nom.

A tester

JP

 

[pierrof]

Re : Userform, cascade, recherche

Merci c'est parfait les 2 solutions.

Maintenant je souhaite comparer les résultats avec l'autre onglet en fonction du code et du service, j'aimerai afficher les contrats (n°, date début, date fin, qté), je n'ai pas crée de textbox car il peut avoir plusieurs contrats en même temps et j'aimerai qu'il affiche tout.

Je laisse un fichier exemple

Merci de votre aide

 

[jp14]

Re : Userform, cascade, recherche

Bonjour (re)

Ci joint le fichier avec une listview pour afficher le résultat.
L'entête de la listview contient la colonne à afficher.
Pour modifier les valeurs, il faut utiliser la propriété "Presonnalisé" de la listview.

A tester

JP

 

[pierrof]

Re : Userform, cascade, recherche

Merci Jp
Mais j'ai des soucis😕

Je n'arrive pas a aller dans personaliser listview, pour centrer les entête ou même choisir les colonnes

La listview affiche tous les contrat de la personne aidées alors que je veux uniquement les contrats en fonction du code service choisit dans la textbox (AM,AV...)

Lorsque je change de nom dans la première combobox les valeurs des textbox ne se vident pas...

Merci de ton aide encore une fois

 

[jp14]

Re : Userform, cascade, recherche

Bonjour (re)

Pour modifier les paramètres de la listview voir les images.

Concernant la mise à blanc il faut rajouter le code suivant

Private Sub ComboBox1_Change()
............................

Me.TextBox1 = ""
Me.TextBox2 = ""
ListView1.ListItems.Clear
End Sub

Pour modifier la sélection des données de la listview

For i = 2 To Sheets("Exportation_Contrats").Range("a65536").End(xlUp).Row
    If CStr(Sheets("Exportation_Contrats").Range("[COLOR="Red"]e[/COLOR]" & i)) = [COLOR="Red"]Me.ComboBox2.Value [/COLOR]Then
        Call ajouteruneligne("Exportation_Contrats", i, 1)
    End If
Next i

JP

 

[pierrof]

Re : Userform, cascade, recherche

Merci bcp
J'ai modifier les code ça marche parfaitement.
Par contre pour personnalisé j'ai un message d'erreur qui s'affiche je comprend pas

Je clique sur les 3 petits points a coté de personnalisé et j'ai ce message qui s'affiche:
La classe n'est pas enregistrée.
Recherche d'un objet avec CLSID
:{7EBDAAE1-8120-11CF-899F-00AA00688B10}
😕

Merci encore une fois

 

[jp14]

Re : Userform, cascade, recherche

Bonjour

A vérifier si les contrôles sont sélectionnés.

Je clique sur les 3 petits points a coté de personnalisé et j'ai ce message qui s'affiche

Il n'y a pas de petit points sur l'image cf image "img"
JP

 

[pierrof]

Re : Userform, cascade, recherche

OK pour les références disponibles
par contre les contrôles supplémentaire je ne peux pas ke selectionner il est grisé
Comment faire?

 

[pierrof]

Re : Userform, cascade, recherche

Bonjour tout le monde

Je viens de réussir à tout modifier, mais j'ai un autre soucis.
J'ai recopier les code pour afficher dans la listview mes infos.
Mais rien ne s'affiche dans la liste je ne comprend pas.😕


Ci-joint le fichier sur le site ci_joint.fr:
Cijoint.fr - Service gratuit de dépôt de fichiers

Se servir du bouton comparer pour afficher l'userform

Merci de votre aide

 

[pierrof]

Re : Userform, cascade, recherche

Non c'est bon merci
J'ai trouvé mon erreur
Merci encore de votre aide