Combobox recherches

[Mapat]

Bonjour à tous
Sur une base de données, je peux faire une recherche à l'aide de listes en cascades. J'aimerais avoir cette même facilité mais sur un userform avec combo et textbox
Es-ce possible ?
D'autre part sur cet userform, j'ai mis 2 autres textbox. Un pour la date et 1 pour l'heure. Je voudrais qu'ils soient actifs à l'ouverture, alors qu'il faut cliquer dans le vide sur l'userform
je n'arrive pas à avoir le bon format de la date
Je vous remercie de votre aide

 

[pierrejean]

Re : Combobox recherches

bonjour Mapat

une solution (parmi beaucoup d'autres)

 

[herve62]

Re : Combobox recherches

Bonjour à tous , Salut Pierre-Jean, Mapat
Bon je ne joins pas mon fichier c'est kif-kif , Pierre-Jean + rapide
Par contre j'ajoute ma touche :
Pour éviter d'effacer , car date et heures ne se re-afficheront qu'à la prochaine ouverture
Il pourrait mettre "locked" à "TRUE" dans les propriétes des textbox !

Hervé

 

[Mapat]

Re : Combobox recherches

Bonjour PierreJean et Hervé62
Un grand merci à vous deux pour vous etre penché sur mon petit problème. Je vais pouvoir avancer
Bonne soirée

 

[Mapat]

Re : Combobox recherches

Je suis désolé de revenir, mais dans mon fichier, les données ne sont pas dans les mêmes colonnes que sur mon exemple.
J'ai essayé de faire quelques modifs mais je dois avouer que ce que j''essaie n'est pas très efficace
Alors siouplait un p'tit coup de pouce ...

 

[jp14]

Re : Combobox recherches

Bonjour
Bonjour PierreJean, Bonjour Hervé62

Ci joint une autre solution avec une macro paramétrable, il suffit de modifier dans Module1 la ligne param = Array("Feuil2", 1, "j") en remplaçant "Feuil2" par le nom de la feuille, 1 par le numéro de la ligne qui contient l'entête des colonnes, "J" par le nom de la colonne qui contient le nombre.
Si on valide on récupère dans la variable param les informations suivantes : param(1) : entête de la colonne, param(2) : nom de la colonne, param(3) : valeur choisie, param(4) : numéro de ligne, param(5) : nombre trouvé.

A tester

JP

 

[pierrejean]

Re : Combobox recherches

Re

Correction de ta modification:

Private Sub ComboBox2_Change()
x = ComboBox1.ListIndex + 23
Set c = Sheets("Feuil2").Columns(x).Find(ComboBox2, LookIn:=xlValues, lookat:=xlWhole)
If Not c Is Nothing Then TextBox4 = Sheets("Feuil2").Cells(c.Row, [COLOR=red]26[/COLOR])
End Sub

ce qui n'enleve surement rien aux qualités de la solution de jp14 que je salue

 

[Mapat]

Re : Combobox recherches

De nouveau sur place
Merci de la correction que tu as amenée Pierrejean
Je n'avais pas vu que dans le 2ème combo il y avait un nombre à modifier
Dur dur la programation surtout sans avoir grandes connaissances de l'anglais. Je ne fait que des petits pas mais ces jours-ci ils sont assez nombreux Ca motive pour essayer d'aller plus loin
Quant au programme de jp14 c'est du costaud et ça m'a l'air plus compliqué. Mais ça n'est qu'une impresion
Un grand merci à vous deux.