Discussion :

[lanetmel]

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

[casefayere]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[lanetmel]

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!

[casefayere]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[lanetmel]

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

encore merci!

[casefayere]

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