Discussion :

[1357VBA]

Bonjour, toujours débutant mais avec un mois de pratique, j'ai créé un outil qui permet sans accéder à une feuille de calcul excel (sauf pour afficher des états générés par des TCD) et au travers de Userforms imbriqués de gérer clients/prestations/ et ... facturation ou plus exactement suivi de facturation.

Ainsi j'arrive à quelque-chose comme ceci ou que j'aimerai résoudre comme cela, j'espère que ces deux captures d'écran seront plus parlantes qu'un long discours :





Je reste très attaché aux tableaux nommés sur les conseils de Pierre Fauconnier que je remercie encore pour son aide dans mon précédent post sur ce forum car ils me permettent de faire faire par Excel des choses assez sophistiquées. Là je ne vois pas comment finaliser mon outil et n'ai pas trouvé sur le forum comment m'en sortir seul. Si quelqu'un peut m'aider à débloquer au moins ce combobox, je l'en remercie vivement.

[1357VBA]

Bonjour, pour le cas où ce fichier pourrait clarifier mon précédent post. Cordialement

(J'utilise Avast et Bitdefender et ils sont à jour)ToInvoice.xlsm

[1357VBA]

Bonjour,

J'ai réussi à obtenir ce que je souhaitais sauf :

- dédoublonner les valeurs du ComboBox
(en effet si je dédoublonne je perds le filtrage ToInvoice = à 1)
Il y a sûrement une autre façon de faire...

- la facturette pdf ; mais ça je devrais finir par y arriver

Par avance merci

Voici mon code:

formulaire

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
Option Explicit
 
Private Sub cboChoice_Change()
  lblClientName.Caption = cboChoice.Value
  GetToInvoiceHT
End Sub
 
Private Sub cmdToInvoice_Click()
    mToInvoice.SaveInvoice tboInvoiceRef.Value, lblInvoiceDate.Caption, lblClientName.Caption, lblSigmaHT.Caption, lblPaid.Caption
    SetInvoiced
    Unload Me
    ShowFormToInvoice
End Sub
 
Function SetCboChoiceSource()
 
Dim ligne As Integer: ligne = 2
 
While (ThisWorkbook.Worksheets("InPuts").Cells(ligne, 1).Value <> "")
  If ThisWorkbook.Worksheets("InPuts").Cells(ligne, 5).Value = 1 Then
  cboChoice.AddItem (ThisWorkbook.Worksheets("InPuts").Cells(ligne, 1).Value)
  End If
  ligne = ligne + 1
Wend
 
End Function
Function GetToInvoiceHT()
 
Dim ligne As Integer: ligne = 2
Dim sigma As Currency: sigma = 0
 
While (ThisWorkbook.Worksheets("InPuts").Cells(ligne, 1).Value <> "")
  If ThisWorkbook.Worksheets("InPuts").Cells(ligne, 5).Value = 1 And ThisWorkbook.Worksheets("InPuts").Cells(ligne, 1).Value = lblClientName.Caption Then
  sigma = sigma + (ThisWorkbook.Worksheets("InPuts").Cells(ligne, 8).Value)
  End If
  ligne = ligne + 1
  lblSigmaHT.Caption = sigma
Wend
 
End Function
Function SetInvoiced()
 
Dim ligne As Integer: ligne = 2
 
While (ThisWorkbook.Worksheets("InPuts").Cells(ligne, 1).Value <> "")
  If ThisWorkbook.Worksheets("InPuts").Cells(ligne, 5).Value = 1 And ThisWorkbook.Worksheets("InPuts").Cells(ligne, 1).Value = lblClientName.Caption Then
   ThisWorkbook.Worksheets("InPuts").Cells(ligne, 5).Value = 0
   ThisWorkbook.Worksheets("InPuts").Cells(ligne, 6).Value = 1
   ThisWorkbook.Worksheets("InPuts").Cells(ligne, 11).Value = tboInvoiceRef.Value
  End If
  ligne = ligne + 1
Wend
 
End Function
 
Function PrepareForm()
    SetCboChoiceSource
    cboChoice.Value = vbNullString
    tboInvoiceRef.Value = vbNullString
    lblInvoiceDate.Caption = Date
    lblClientName.Caption = vbNullString
    lblSigmaHT.Caption = vbNullString
    lblPaid.Caption = 0
End Function

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
Option Explicit
 
Sub ShowFormToInvoice()
  Load ToInvoiceForm
  ToInvoiceForm.PrepareForm
  ToInvoiceForm.Show
  Unload ToInvoiceForm
End Sub
 
Function SaveInvoice(InvoiceRef As String, InvoiceDate As Date, ClientName As String, SigmaHT As Currency, Paid As Integer)
  ThisWorkbook.Worksheets("Invoices").Rows("2:2").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
  ThisWorkbook.Worksheets("Invoices").Range("A2").Value = InvoiceRef
  ThisWorkbook.Worksheets("Invoices").Range("B2").Value = InvoiceDate
  ThisWorkbook.Worksheets("Invoices").Range("C2").Value = ClientName
  ThisWorkbook.Worksheets("Invoices").Range("D2").Value = SigmaHT
  ThisWorkbook.Worksheets("Invoices").Range("E2").Value = Paid
End Function

le fichier Excel
ToInvoice.xlsm

[Invité]

Bonjour,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Function SetCboChoiceSource()
 
Dim ligne As Integer: ligne = 2
Dim dico As Object: Set dico = CreateObject("Scripting.Dictionary")
While (ThisWorkbook.Worksheets("InPuts").Cells(ligne, 1).Value <> "")
  If ThisWorkbook.Worksheets("InPuts").Cells(ligne, 5).Value = 1 Then
  dico(ThisWorkbook.Worksheets("InPuts").Cells(ligne, 1).Value) = ThisWorkbook.Worksheets("InPuts").Cells(ligne, 1).Value
  End If
  ligne = ligne + 1
Wend
cboChoice.List = dico.keys
End Function

[1357VBA]

J'étais en train de regarder le site de Mr. Boisgontier justement pour essayer de comprendre l'objet dictionnaire... Là je comprends plus vite
Merci encore cher bon samaritain, ce qui fait 1001 mercis si je ne m'abuse.
Eric

[Invité]

Code :

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

dico(Clé) = Valeur

un Dictionary possède une clé que tu peut utiliser c'est comme un clé primaire (clé univoque) il ne peut pas y en avoir deux identique!

[1357VBA]

Code :

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

dico(Clé) = Valeur

un Dictionary possède une clé que tu peut utiliser c'est comme un clé primaire (clé univoque) il ne peut pas y en avoir deux identique!

C'est très clair.
Merci
Eric

[1357VBA]

un Dictionary possède une clé que tu peut utiliser c'est comme un clé primaire (clé univoque) il ne peut pas y en avoir deux identique!

Bonsoir Dysorthographie,

Est-à-dire que tu me suggères de créer un dictionnaire pour gérer les InvoiceRef ?
Ceci permet-il de fermer la porte aux doublons dès saisie d'une référence dans tboInvoiceRef ?

[Invité]

Bonjour,
C'est ce que j'ai proposé au poste #4!

Là je donnais une précision sur l'utilisation des dictionnaires.

[1357VBA]

Bonjour,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Function SetCboChoiceSource()
 
Dim ligne As Integer: ligne = 2
Dim dico As Object: Set dico = CreateObject("Scripting.Dictionary")
While (ThisWorkbook.Worksheets("InPuts").Cells(ligne, 1).Value <> "")
  If ThisWorkbook.Worksheets("InPuts").Cells(ligne, 5).Value = 1 Then
  dico(ThisWorkbook.Worksheets("InPuts").Cells(ligne, 1).Value) = ThisWorkbook.Worksheets("InPuts").Cells(ligne, 1).Value
  End If
  ligne = ligne + 1
Wend
cboChoice.List = dico.keys
End Function

Cher Dysorthograprie, j'espère que je n'abuse pas de ton temps, mais considérant que Dictionary est un objet ActiveX, si ma contrainte était que mon code tourne aussi bien sous Windows que sous OSX, quelle autre voie explorerais-tu ?
Merci d'avance pour tes lumières sur le sujet, Eric

[RyuAutodidacte]

Bonjour,

J'utilise Mac et de temps en temps PC, pour aller sur les 2 plateformes il faut utiliser une collection et surtout éviter les code utilisant ActiveX et le DLL.
La collection n'est pas aussi complet que le dictionnaire, mais c'est juste une autre gymnastique de codage pour arriver au même résultat.

Edit : ajout :
Je n'ai pas regardé ton code, mais tu peux déjà regarder dans la faq il y a un exemple concret traitant des doublons avec une collection.

[1357VBA]

Bonjour,

J'utilise Mac et de temps en temps PC, pour aller sur les 2 plateformes il faut utiliser une collection et surtout éviter les code utilisant ActiveX et le DLL.
La collection n'est pas aussi complet que le dictionnaire, mais c'est juste une autre gymnastique de codage pour arriver au même résultat.

Je n'ai pas regardé ton code, mais tu peux déjà regarder dans la faq il y a un exemple concret traitant des doublons avec une collection.
M

Merci infiniment pour la réponse parfaitement claire comme d'habitude. Eric