Discussion :

[thibault.mourichon]

Bonjour a tous

Voila après de longues heures de travail j'arrive au bout de mon projet, il me reste un dernier point a clôturer,
Je souhaiterai multiplier la quantité inscrite manuellement dans mon userform avec le nombre de items sélectionnés dans la listbox dans le même userform
pour se faire

je part du textbox (quantité ) que j'inscrit dans une cellule (ici, Q2),
je récupère le nombre d'items sélectionné que j'inscrit également dans une cellule, (ici,R2 )

j'effectue un calcul savant et trés compliqué dans une troisième celllule soit =Q2*R2 (en S2)


et je viens recupérer la valeur du calcul dans un Textbox (nommé Areg10)



tout semble bon sauf que lorsque je n'arrive pas a definir le nombre d'items selectionné

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
 
 
Private Sub Areg1_change() 'listbox contenant mes items
 
Dim i As Integer
Dim cpt As Integer
 
For i = 0 To Areg1.ListCount - 1
  If Areg1.Selected(i) Then cpt = cpt + 1
Next i
 
 
Feuil2.Range("R2").Value = cpt ' on insère le nombre d'items dans la cellule R2 
Areg10.Value = Feuil2.Range("S2").Value 'On recupère le nombre d'items de la listbox'
 
End sub
 
 
Private Sub Areg6_Change()
 
Feuil2.Range("Q2").Value = Areg6.Value 'On affecter la valeur de la liste déroulante'
Areg10.Value = Feuil2.Range("S2").Value 'On recupère la valeur de la la listbox'
 
End Sub

Le resultat que j'obtiens est qu'a chaque clique j'ai un multiple qui apparait
je sélectionne la zone 1 valeur récupéré =1
je sélectionne la zone 1+la zone 2 =3
je sélectionne la zone 1+la zone 2 + La zone 3 = 6
je sélectionne la zone 1+la zone 2 + La zone 3 + La zone 4= 10
je sélectionne la zone 1+la zone 2 + La zone 3 + La zone 4 + la zone 5 = 15

je désélectionne la zone 5 = 19
je désélectionne la zone 5 et la la zone 4 = 22 et ainsi de suite.....

ci joint le fichier
il s'agit du userform "Formulaire de saisi Posse"
Pièce jointe 384514

En vous remerciant de votre aide

[Wololol]

Bonjour,

J'ai tester ton code sur un nouveau classeur sans appliquer de grosses modifications, et ça fonctionne (le nombre d'item est bien le nombre d'items sélectionnés).

Cependant ta pièce jointe n'est pas valide, alors je n'ai pas pu regarder ce qu'y pose problème.

Voici le code, au cas où, avec un fichier test :

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
Private Sub ListBox1_Change()
 'listbox contenant mes items
Dim i As Integer
Dim cpt As Integer
 
 
For i = 0 To ListBox1.ListCount - 1
  If ListBox1.Selected(i) Then cpt = cpt + 1
 
Next i
 MsgBox cpt
Worksheets("Feuil1").Range("A1").Value = cpt 'On recupère le nombre d'items de la listbox'
 
 
End Sub

Bonne journée

[thibault.mourichon]

Merci encore!!!!!!!! ca fonctionne ....