Rechercher et (soustraire une cellule ou effacer sa ligne) selont un code REF

[guiguisbc]

Bonjour à tous, petit soucie que je ne sais pas résoudre :
J'ai fait un petit logiciel sous Excel 2003 pour gérer les entrées et les sortis de blocs dans l'usine mais je ne sais pas programmer ma macro pour sortir un certain volume de blocs correspondant à sa référence.(voir PJ)

Je veut que quand j’appuie sur le bouton "SORTIR DU STOCK" il me trouve tout seul la cellule concernée située dans la feuille "Stock" puis me soustrait le volume que je saisie pour qu'il ne reste que le volume restant.

Mais il me faut ces conditions :
*Si le volume soustrait et supérieur à 0 alors je garde ma ligne
*Si le volume soustrait et égal à 0 alors j’efface la ligne de la cellule recherchée.

Merci d'essayer de résoudre ce problemme complexe 😕

 

[JNP]

Re : Rechercher et (soustraire une cellule ou effacer sa ligne) selont un code REF

Re 🙂,
Ben dis donc, t'es pas sorti 🙄...

With Sheets("Consultation")
    .Rows(2).Insert shift:=xlDown
    .Range("A2") = Now()
    .Range("B2") = Range("A13")
    .Range("B3") = Range("E17")
    ' etc...
End With

Bon courage 😎

 

[guiguisbc]

Re : Rechercher et (soustraire une cellule ou effacer sa ligne) selont un code REF

Merci JNP je vais essayer sa 😉

 

[guiguisbc]

Re : Rechercher et (soustraire une cellule ou effacer sa ligne) selont un code REF

Voila ce que j'ai mais j’arrive toujours pas a comprendre tout votre code :/
je doit le placer après quelle ligne ? après is nothing then ?

Sub SortirStock()
Dim Cellule As Range
With Sheets("Stock")
Sheets("Stock").Select
    ActiveSheet.Unprotect
Set Cellule = .Columns(1).Find(Sheets("Nouveau").Range("E17"), lookat:=xlWhole)
If Not Cellule Is Nothing Then
Cellule.Offset(0, 10) = Cellule.Offset(0, 10) - Sheets("Nouveau").Range("E19")
If Cellule.Offset(0, 10) = 0 Then Cellule.EntireRow.Delete
End If
End With
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowFiltering:=True
Sheets("Nouveau").Select
Application.Run "'Gestion Du Stock.xls'!EFFACER2"
Range("E17").Select
End Sub

 

[JNP]

Re : Rechercher et (soustraire une cellule ou effacer sa ligne) selont un code REF

Re 🙂,
Euh, sans vouloir te vexer, la meilleure chose serait de reprendre tout au début 🙄...
Esaie de supprimer tous les Active et Select, pour raisonner en programmation...
Le dernier code que tu proposes n'as rien à voir avec celui que je t'avais proposé 😡...
Comment veux-tu que je te répondes 🙄 ?
Pour Info, With Sheets("Stock") permet d'y faire appel avec un simple "." en début d'expression, après 🙁...
Bon courage quand même 😎