Procédure trop grande

Le 08/10/2017 à 16:04

Bonjour à tous,

je gère un stock de pièce qui fonctionnait très bien mais à force d'ajouter de nouveau article, j'en arrive à ce qu'Excel me dise "Procédure trop grande". Certainement que l'on peut simplifier les lignes de code étant donné qu'il n' y a que le numéro de ligne qui change.

Sheets("Stock").Range("C3") = Sheets("Stock").Range("C3") - Sheets("Stock").Range("E3")

Sheets("Stock").Range("C4") = Sheets("Stock").Range("C4") - Sheets("Stock").Range("E4")

Sheets("Stock").Range("C5") = Sheets("Stock").Range("C5") - Sheets("Stock").Range("E5")

Sheets("Stock").Range("C6") = Sheets("Stock").Range("C6") - Sheets("Stock").Range("E6")

Sheets("Stock").Range("C7") = Sheets("Stock").Range("C7") - Sheets("Stock").Range("E7")

Sheets("Stock").Range("C8") = Sheets("Stock").Range("C8") - Sheets("Stock").Range("E8")

Sheets("Stock").Range("C9") = Sheets("Stock").Range("C9") - Sheets("Stock").Range("E9")

Sheets("Stock").Range("C10") = Sheets("Stock").Range("C10") - Sheets("Stock").Range("E10")

Sheets("Stock").Range("C11") = Sheets("Stock").Range("C11") - Sheets("Stock").Range("E11")

Sheets("Stock").Range("C12") = Sheets("Stock").Range("C12") - Sheets("Stock").Range("E12")

Sheets("Stock").Range("C13") = Sheets("Stock").Range("C13") - Sheets("Stock").Range("E13")

Sheets("Stock").Range("C14") = Sheets("Stock").Range("C14") - Sheets("Stock").Range("E14")

Sheets("Stock").Range("C15") = Sheets("Stock").Range("C15") - Sheets("Stock").Range("E15")

Sheets("Stock").Range("C16") = Sheets("Stock").Range("C16") - Sheets("Stock").Range("E16")

Sheets("Stock").Range("C17") = Sheets("Stock").Range("C17") - Sheets("Stock").Range("E17")

Sheets("Stock").Range("C18") = Sheets("Stock").Range("C18") - Sheets("Stock").Range("E18")

Sheets("Stock").Range("C19") = Sheets("Stock").Range("C19") - Sheets("Stock").Range("E19")

Sheets("Stock").Range("C20") = Sheets("Stock").Range("C20") - Sheets("Stock").Range("E20")

Sheets("Stock").Range("C21") = Sheets("Stock").Range("C21") - Sheets("Stock").Range("E21")

Sheets("Stock").Range("C22") = Sheets("Stock").Range("C22") - Sheets("Stock").Range("E22")

Sheets("Stock").Range("C31") = Sheets("Stock").Range("C31") - Sheets("Stock").Range("E31")

Sheets("Stock").Range("C32") = Sheets("Stock").Range("C32") - Sheets("Stock").Range("E32")

Sheets("Stock").Range("C33") = Sheets("Stock").Range("C33") - Sheets("Stock").Range("E33")

Sheets("Stock").Range("C34") = Sheets("Stock").Range("C34") - Sheets("Stock").Range("E34")

Sheets("Stock").Range("C35") = Sheets("Stock").Range("C35") - Sheets("Stock").Range("E35")

Sheets("Stock").Range("C36") = Sheets("Stock").Range("C36") - Sheets("Stock").Range("E36")

Sheets("Stock").Range("C37") = Sheets("Stock").Range("C37") - Sheets("Stock").Range("E37")

Sheets("Stock").Range("C38") = Sheets("Stock").Range("C38") - Sheets("Stock").Range("E38")

Sheets("Stock").Range("C39") = Sheets("Stock").Range("C39") - Sheets("Stock").Range("E39")

Sheets("Stock").Range("C40") = Sheets("Stock").Range("C40") - Sheets("Stock").Range("E40")

Sheets("Stock").Range("C41") = Sheets("Stock").Range("C41") - Sheets("Stock").Range("E41")

Etc

Si vous avez une solutions les experts !!

Merci

Flo

Le 08/10/2017 à 16:13

Re,

Tu peux tester le code suivant ...

Sub TestStock()
Dim i As Integer
  For i = 3 To 41
    Sheets("Stock").Range("C" & i) = Sheets("Stock").Range("C" & i) - Sheets("Stock").Range("E" & i)
  Next i
End Sub

En espèrant que cela t'aide ...

Le 08/10/2017 à 16:18

bonjour,

Dim i
With Sheets("Stock")
For i = 3 To 41
.Range("C" & i) = .Range("C" & i) - .Range("E" & i)
Next
End With

Le 08/10/2017 à 16:26

Bonjour

il faut faire une boucle

A voir ci sa te va

Sub Test3()
With Sheets("Stock")
For L = 3 To 41
.Cells(L, 3).Value = .Cells(L, 3).Value - .Cells(L, 5).Value
Next
End With
End Sub

A+

Maurice

Le 08/10/2017 à 17:34

Merci pour vos réponses mais je n'arrive pas à intégrer vos ligne dans ma macro.

La gestion du stock est faite en même temps que la validation de la facture.

Voir ci dessous :

Sub Validation()

'demande de validation d'impression

If MsgBox("avez-vous imprimé cette facture ?", vbYesNo, "AVANT DE VALIDER !!!!") = vbYes Then

'demande de validation d'archivage

If MsgBox("avez-vous achivé cette facture ?", vbYesNo, "AVANT DE VALIDER !!!!") = vbYes Then

'Demande de validation facture

If MsgBox("Etes vous certain de valider cette facture ?", vbYesNo, "Demande de confirmation") = vbYes Then

'Enregistre la facture en PDF

Dim Chemin As String

Dim NFichier As String

Chemin = "C:\Users\Flo\Documents\Remorque\Facture Ventes\"

NFichier = "Facture" & Sheets("facture vente").Range("C11") & Format(Now, "dd-mmm-yyyy") & ".pdf"

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin & NFichier, Quality _

:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

'Vérifie si le stock est à zéro

If Sheets("Stock").Range("G2") < 0 Then

'Affiche un boite de dialogue car le stock est à zéro

If MsgBox("Vous allez facturer un article dont le stock est à zéro ! Souhaitez vous continuer ?", vbYesNo, "Les Remorques du Grand Est vous informe") = vbYes Then