remplir Combobox Et code recherche

Bonjour,

J'ai joint mon fichier, il fonctionne bien mais il est très long à emplir.. pas à cause du code mais à cause de mes combobox. De la façon que ça fonctionne j'entre le numéro de mémo via ma Cbox et ensuite une recherche s'effectue afin de trouver la concordance dans une autre feuille et me donner la quantité dans ma textbox.. (bouton facture en passant) mais voilà que choirsir via la combobox est long et si j'essaie d'entrer le numéro de mémo manuellement au premier chiffre il se met à la recherche de la concordance sans me laisser le temps de terminer.. J'aurais aimé pouvoir soit l'écrire moi-même au complet (j'ai essayé de changer ma Cbonx pour une Tbox mais ça pas plus fonctionné) soit que je commence à écrire et qu'il me donne les choix disponible...

Si quelqu'un sait.. J'imagine que je ne devrait pas laisser ma macro sur le Change mais je ne sais pas quoi mettre d'autre...Exit ne fnctionne pas..

Si quelqu'un a une idée
merci à l'avance

http://cjoint.com/?BDqwhmzYNsU

Bonsoir,
Je ne sais pas si c'est à ce niveau que tu cherches mais de toutes façons, ton code me parait bizarre, essayes celui-ci et dis-moi (à moins que je ne comprenne pas !)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Private Sub commandbutton1_click() Dim lign As Long With Sheets("Feuil1") lign = .Range("a" & Rows.Count).End(xlUp).Row + 1 .Cells(lign, 2) = (TextBox1.Value) .Cells(lign, 1) = (TextBox2.Value) .Cells(lign, 3) = (TextBox3.Value) .Cells(lign, 6) = (ComboBox1.Value) If CheckBox1.Value = True Then .Cells(lign, 4) = ("SKF") .Cells(lign, 5) = ("AMEX") End If If CheckBox2.Value = True Then .Cells(lign, 4) = ("AMEX") .Cells(lign, 5) = ("SKF") End If If CheckBox3.Value = True Then .Cells(lign, 4) = (ComboBox2.Value) .Cells(lign, 5) = (ComboBox3.Value) End If End With Unload Me End Sub

---

merci beaucoup! mais j'ai oublié de spécifier que c'est dans le usf facture..
il se peut tout de même que mon code soit bizarre.. je suis débutante!

Pour la suite, il aurait fallu que je comprenne ton projet.

les memos sont des références uniques ?
à qui est destiné la facture, un client...?

J'ai l'impression que tu pourrais vraiment soulager tes codes, mais comme je viens de le dire, il faut arriver à cerner ton but, un exemple pour remplir tes combos :
tu enlèves toutes les propriétés "RowSource" et tu remplaces par ces codes pour les remplir, afin qu'il ne subsiste dans tes combos que des valeurs non facturées, je répète, ce n'est qu'un exemple
1 - dans l'évènement "Activate" de l'USF :

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub UserForm_Activate() Dim ctrl As Control For Each ctrl In Controls choixcombo If TypeName(ctrl) = "ComboBox" Then ctrl.List = TbTri End If Next ctrl End Sub

---

et dans ton module

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

Option Explicit Public TbGen, TbTri() Public Lig As Long, x As Long Public derlg As Long Sub entrer() entrées.Show End Sub   Sub facturer() Facture.Show End Sub Sub choixcombo() Dim y As Long y = 0 With Sheets("feuil1") derlg = .Range("B" & .Rows.Count).End(xlUp).Row TbGen = .Range("A3:j" & derlg) For x = 1 To UBound(TbGen, 1) If TbGen(x, 9) = 0 Then y = y + 1 ReDim Preserve TbTri(1 To y) TbTri(y) = TbGen(x, 2) End If Next x End With End Sub

---

A voir....

Bonne nuit

Bonjour

Je vais vérifier le code que tu m'a envoyé mais effectivement le mémo est unique. le but de ceci est le suivant, chaque fois que nous recevons ou livrons un camion nous entrons via le bouton entrée, sortie : le # de mémo la date, la quantité, la description ainsi que la provenance et la destination.

Ensuite quand nous recevons la facture avec l'entrée du numéro de mémo nous vérifions que la quantité facturée correspond à celle netrée, c'est pourquoi la recherche, ensuite je veux vérifier que le bon n'a pas déjà été facturé (c'est pourquoi je vérifie s'il y a déjà un prix) et on ajoute le numéro de la facture du transporteur ainsi que la date

merci de ton aide
Mélanie

Wow! Super le code! Alors oui ça ne m'affiche que les mémos non facturé alors cela règle un de mes problèmes! Reste à valider la quantité...Peux-tu m'aider là-dessus? Car je dois dire que ton code est génial mais je ne le comprends pas :oops:

encore merci!

Bonsoir,
Oui, je t'aiderai mais il faut de la patience car je suis sur autre chose, peut-être ce soir, maxi demain et je remettrai le code avec toutes les explications

Bonne soirée, en attendant

Super merci! et prend ton temps je ne te mets aucune pression! C'est déjà très gentil de ta part de m'aider

Très apprécié!
Mélanie

Bonsoir à lanetmel et le forum (pour ceux ou celles qui ne sont pas encore au lit, sinon bonjour,

Citation:

---

chaque fois que nous recevons ou livrons un camion nous entrons via le bouton entrée, sortie : le # de mémo la date, la quantité, la description ainsi que la provenance et la destination.

---

Je ne voudrais pas te vexer mais j'organiserais bien ton fichier complétement différemment si tu es d'accord et surtout si tu n'as pas de contrainte car tu as trop de controles ou de codes subsidiaires.

Si tu es d'accord, j'expliquerai un maximum ma démarche

Bonne nuit.......ou bonne journée

Bonjour

pas de problème pour moi.. à date j'ai beaucoup aimé tes idées alors vas-y! Je pense pas que je vais être déçue! et tu me vexe pas du tout! Il faut commencer quelque part pour s'améliorer!

merci
et bonne nuit à toi!:sleep:

re tout le mone, bonjour lanetmel
je te présente un nouveau fichier qu'on améliorera, seul le principe m'importe, ta feuille 3, pour l'instant, je ne sais pas à quoi elle sert. Restons donc sur la feuille 1.
Si le principe te plait, je mettrai toutes les explications.

En résumé :
- 1 seul combo
- 1 textbox pour quantité
- 1 texbox pour prix à saisir
- si plusieurs référence au même "memo", saisir l'un derrière l'autre sans changer memo ni facture ni date facture
- quand la saisie est terminée, prposition de saisir un nouveau memo
N'hésites donc pas à dire ce que tu en penses, il y a encore certainement des progrès à faire.

A+

Bonjour Casefayere,

Premièrement : merci beaucoup!
Deuxièmement :
ma feuille 3 sert juste à mettre mes boutons et mes listes pour emplir mes combobox..
Les numéros de mémos doivent être unique dans la feuille1, donc techniquement Je choisi le # de mémos, la quantité s'affiche (je vérifie que c'est ce que l'on me facture) j'entre manuellement le prix, la date et le numéro de la facture... Je peux facilement avoir une dizaine de mémo à entrer pour une seule facture.. Alors je ne voudrais avoir à remettre le numéro de facture et la date une dizaine de fois... qu'en penses-tu?

Mélanie

Bonsoir lanetmel,
J'ai fait une erreur grossière dans le fichier que je t'ai envoyé mais mon but (car je l'avais compris) est le même que le tien, je revois ça dès ce soir et te tiendrai au courant.

Patience et longueur de temps......

Bonne soirée

Bonjour à tou(te)s, Bonsoir pour les couche-tard (il est 01H26), lanetmel

ci-joint un fichier qui j'espère te conviendra, analyse le bien.

Bonne journée