Discussion :

[ayoubessat]

Bonjour les Pros !

j'aurais besoin de votre aide pour un petit programme;

C'est une appli qui gére toutes les entrées et sorties du stock via userforms ... jusqu'ici tout vas super bien.

dans le module sortie, il y a l'option retour, pour les articles sortis du stock qui n'ont pas été utilisés.

Donc a part les userforms entrées et sorties qui marchent tres bien , il y a celui des retours , avec un combobox et textbox ; le premier pour chercher le n° de la sortie ( généré automatiquement par l'userform sortie ) et la quantitée rendue

Cet userform dois juste faire la soustraction entre la quantité initiale sortie et la quantitée retournée ... Mon probléme c'est que je n'arrive pas trouver le code pour pouvoir localiser la ligne qui contient le N° de sortie choisi dans la combobox , et faire la calcul

autrement dit , comment faire pour que la macro localise par exemple la ligne de la sortie 001 afin de faire les calculs necessaires?

Des idées ?

Merci

[Marc-L]

Bonjour,

utiliser la méthode Range.Find par exemple, consulter l'aide VBA …


__________________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …


__________________________________________________________________________________________________
Je suis Charlie - Je suis Bardo

[SfJ5Rpw8]

Bonsoir,

comment initialise tu ton ComboBox de retour ?

[Theze]

Bonjour,

Un début de piste :

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
 
Private Sub ComboBox1_AfterUpdate()
 
    Dim Plage As Range
    Dim Cel As Range
    Dim Valeur As Double
 
    'adapter la valeur à retrancher...
    Valeur = 10
 
    'adapter le nom de la feuille et la colonne contenant les numéros de sorties
    'ici colonne A de la feuille "Feuil1" à partir de A2
    With Worksheets("Feuil1")
 
        Set Plage = .Range(.Cells(2, 1), .Cells(.Rows.Count, 1).End(xlUp))
 
    End With
 
    'effectue la recherche...
    Set Cel = Plage.Find(ComboBox1.Text, , xlValues, xlWhole)
 
    'si trouvée, effectue la modif. dans la colonne juste à coté
    'donc, dans cet exemple, la colonne B
    If Not Cel Is Nothing Then
 
        Cel.Offset(, 1).Value = Cel.Offset(, 1).Value - Valeur
 
    'si pas trouvée, message
    Else
 
        MsgBox "Pas trouvé de correspondance au code '" & ComboBox1.Text & "' !"
 
    End If
 
End Sub

Hervé.

[ayoubessat]

Merci @Theze , ton code est exactement ce qu'il me fallait

Résolu , encore Merci!