Discussion :

[volsan]

Bjr,

Je souhaiterai creer une liste déroulante à 2 colonne ayant pour contenu un pourcentage et un montant.

ex : 5% 21000
10% 21500
15% ......

en fait je souhaiterai a l'aide d'une boucle remplir ma liste déroulante

j'ai pensé a écrire une boucle de ce type

pour i=5 to 70 step 5
liste.column(0) = i/100
liste.column(1)= montant*(1+i/100)
finpour
malheureusement je ne vois pas comment mi prendre sous access vba

Merci d'avance

[madefemere]

Bonsoir,

Manuellement ou avec du Code ?
Ceci à part, il suffirait de transformer le pseudo-code en VBA et charger le résultat dans la propriété RowSource de la liste déroulante. Ce qui nous donnerait à peu près cela :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim Montant As Double
Dim i As Integer
Dim sourceZdl As String
Montant = 21000
sourceZdl = ""
 
For i = 5 To 70 Step 5
    sourceZdl = sourceZdl & Format(i / 100, "#,00%") & ";"
    sourceZdl = sourceZdl & Format(Montant * (1 + i / 100), "#,00") & ";"
    'Debug.Print i, sourceZdl
Next
'Debug.Print sourceZdl
Me.ZdlCreer.RowSource = sourceZdl
Me.ZdlCreer.Requery

Cordialement,

[volsan]

Merci pour ton aide,

Je teste ça et je reviens vers vous dans un instant.

Oui je voulaire manuellement, avec du vba

[volsan]

J'ai intégré le code vba cela fonctionne bien.
Ensuite j'ai voulu appliqué le même code à l’évènement sur clic de ma liste déroulante et j'ai une erreur qui se produit ci joint la copie d'écran


Le code que tu m'as donné je l'intégré au bouton ajouter qui alimente mon sous-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
Private Sub Ajouter_ligne_devis_Click()
   Dim Montant As Double
   Dim i As Integer
   Dim sourceZdl As String
   sourceZdl = ""
  'If Me!Famille.Value <> Null And Me!Marque.Value <> Null And Me!Materiel.Value <> Null Then
   Me.Ligne_devis_sous_formulaire.Form.Recordset.AddNew
   [ligne_Devis sous-formulaire]![Num_devis] = Me![N°]
   [ligne_Devis sous-formulaire]![Num_produit] = Me![Materiel].Column(2)
   [ligne_Devis sous-formulaire]![Designation] = Me![Materiel].Column(3)
   [ligne_Devis sous-formulaire]![Qté] = Me![Qté]
   [ligne_Devis sous-formulaire]![Pu] = Me![Materiel].Column(4)
   [ligne_Devis sous-formulaire]![Num_tva] = Me![TVA].Column(0)
   [ligne_Devis sous-formulaire]![Coef_Import] = Me![Coef. Import]
   [ligne_Devis sous-formulaire]![MTTh] = [ligne_Devis sous-formulaire]![Pu] * [ligne_Devis sous-formulaire]![Coef_Import]
   For i = 5 To 70 Step 5
       sourceZdl = sourceZdl & Format(i / 100, "#,00%") & ";"
       sourceZdl = sourceZdl & Format([ligne_Devis sous-formulaire]![MTTh] * (1 + i / 100), "#,00") & ";"
       'Debug.Print i, sourceZdl
   Next
   'Debug.Print sourceZdl
  [ligne_Devis sous-formulaire]![ListeMarge].RowSource = sourceZdl
  [ligne_Devis sous-formulaire]![ListeMarge].Requery
 
    'Me.ListeMarge.RowSource = sourceZdl
    'Me.ListeMarge.Requery
 
 
 
   Me.Ligne_devis_sous_formulaire.SetFocus
   Me!Famille.Value = Null
   Me!Marque.Value = Null
   Me!Materiel.Value = Null
   Me!Qté.Value = Null
   Me!TVA.Value = Null
'End If
 
End Sub

Et ensuite le code que j'ai rajouté sur l’évènement sur clic de ma liste déroulante

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub ListeMarge_Click()
Dim Montant As Double
Dim i As Integer
Dim sourceZdl As String
sourceZdl = ""
For i = 5 To 70 Step 5
    sourceZdl = sourceZdl & Format(i / 100, "#,00%") & ";"
    sourceZdl = sourceZdl & Format([ligne_Devis sous-formulaire]![MTTh] * (1 + i / 100), "#,00") & ";"
       'Debug.Print i, sourceZdl
Next
[ligne_Devis sous-formulaire]![ListeMarge].RowSource = sourceZdl
[ligne_Devis sous-formulaire]![ListeMarge].Requery
End Sub

[madefemere]

Bonjour,

Quel est le but du rechargement des valeurs lors du click sur la liste déroulante?

Cordialement,

[volsan]

Le but est que je puisse resélectionner une autre marge si besoin est.

[madefemere]

Mettez le code d'actualisation de la liste déroulante à la Réception du focus.

[volsan]

J'ai recopier le code sur l'evenement a reception du focus et j'ai la meme erreur qui apparait

[madefemere]

Modifiez la ligne 8

Code :

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

sourceZdl = sourceZdl & Format([ligne_Devis sous-formulaire]![MTTh] * (1 + i / 100), "#,00") & ";"

par

Code :

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

sourceZdl = sourceZdl & Format(Me.MTTh * (1 + i / 100), "#,00") & ";"

Vu que vous vous trouvez dans le sous-formulaire.

Cordialement,

[volsan]

Super merci j'ai modifié comme tu m'as dis ainsi que les 2 dernières lignes et cela fonctionne impeccable.