Combobox recherches

pierrejean

XLDnaute Barbatruc

• 28 Février 2008

• #2

Re : Combobox recherches

bonjour Mapat

une solution (parmi beaucoup d'autres)

 

Pièces jointes

• mapat.zip

  13.1 KB · Affichages: 44
• mapat.zip

  13.1 KB · Affichages: 45
• mapat.zip

  13.1 KB · Affichages: 46

Vote positif 0 Vote négatif

herve62

XLDnaute Barbatruc

• 28 Février 2008

• #3

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é

 

Vote positif 0 Vote négatif

Mapat

XLDnaute Occasionnel

• 28 Février 2008

• #4

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

 

Vote positif 0 Vote négatif

Mapat

XLDnaute Occasionnel

• 28 Février 2008

• #5

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 ...

 

Pièces jointes

• mapat.zip

  12.4 KB · Affichages: 26
• mapat.zip

  12.4 KB · Affichages: 25
• mapat.zip

  12.4 KB · Affichages: 27

Vote positif 0 Vote négatif

J

jp14

XLDnaute Barbatruc

• 28 Février 2008

• #6

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

 

Pièces jointes

• combobox1.zip

  26.4 KB · Affichages: 42
• combobox1.zip

  26.4 KB · Affichages: 39
• combobox1.zip

  26.4 KB · Affichages: 37

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 28 Février 2008

• #7

Re : Combobox recherches

Re

Correction de ta modification:

Code:

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

 

Pièces jointes

• mapat1.zip

  13 KB · Affichages: 38

Vote positif 0 Vote négatif

Mapat

XLDnaute Occasionnel

• 28 Février 2008

• #8

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.

 

Vote positif 0 Vote négatif