RechercheV et calcul ?

[Dohko10270]

Bonjour,

N'étant pas un expert excel je me permets de solliciter votre aide.
J'aimerai réaliser un formulaire de sortie magasin afin de pouvoir créer des mouvements de stock.
J'ai réussi à faire une rechercheV au niveau de mon formulaire pour que lorsque je choisi dans ma liste déroulante mon article j'ai sa référence et le nombre en stock qui correspondent, la ou ça se complique c'est pour faire mais mouvement, j'ai une cellule ou je dois indiquer le nombre de pièces sorties et lors de la vaildation j'aimerai que cela se "retranscrive" dans ma feuille intitulé MECANIQUE.
Je ne sais pas comment faire, si jamais vous pourriez m'éclairer.
Merci.

 

[job75]

Re : RechercheV et calcul ?

Bonjour Dohko10270, bienvenue,

Voir le fichier joint avec cette macro dans Module1 (Alt+F11) :

Sub Stock()
Dim lig As Variant
With Sheets("MECANIQUE")
  lig = Application.Match([B3], .[A:A], 0)
  If IsError(lig) Then Exit Sub
  If .Cells(lig, 4) < [C6] Then MsgBox "Stock insuffisant !", 48: Exit Sub
  .Cells(lig, 4) = .Cells(lig, 4) - [C6]
  [C6] = ""
End With
End Sub

Nota : j'ai corrigé les formules en C3 et E3.

A+

 

[Dohko10270]

Re : RechercheV et calcul ?

Magnifique Job !
Je te remercie, mais pourrais tu me détailler un peu ta formule histoire que je ne recopie pas bêtement mais que je comprenne un peu.
Merci encore.

 

[job75]

Re : RechercheV et calcul ?

Re,

Pas bien compliqué.

La macro recherche la valeur B3 en colonne A de la feuille MECANIQUE (la fonction Match c'est EQUIV).

Ensuite 2 tests de sécurités.

Et enfin elle déduit la valeur C6 de la valeur du stock sur la ligne trouvée.

A+

 

[Dohko10270]

Re : RechercheV et calcul ?

Merci encore !