creation macro soustraction et RAZ

[frigolol]

Bonjour,


je galére depuis quelque jours voila mon soucis

j'ai un tableau avec 3 ligne

ligne 9 correspondant a mon stock de base
ligne 10 correspondant au vente journalière
ligne 11 correspondant au réapprovisionnement
les cases en question s'étende de B à AA

voila mon soucis
je souhaiterait une macro qui lorsque je remplis les ligne 10 et 11 de manière journalière fasse
"pour exemple"
B9=B9-B10+B11 et ensuite efface B10 et B11

mon but étant simplement de verrouiller par la suite la ligne 9 et le seul moyen de la modifier étant de passer par le bouton de macro

merci de votre aide car la je seche

 

[piga25]

Re : creation macro soustraction et RAZ

Bonjour

Un essai comme ceci

Public Sub Itération()


    Dim j As Integer
        
    Application.ScreenUpdating = False
    With Sheets("Donnée")
    For j = 2 To 27
    Cells(9, j).Value = Cells(9, j).Value - Cells(10, j).Value + Cells(11, j).Value
    Next j
    End With
    Range("B10:AA11").ClearContents
    Application.ScreenUpdating = True


End Sub

Code à placer dans un module et à lancer dès que vous avez renseigner les lignes 10 et 11

J'ai nommé la feuille "Donnée"

 

[frigolol]

Re : creation macro soustraction et RAZ

avant tout un grand merci a toi

je vais en rajouter une couche voila

est il possible de verrouiller la case stock de facon a ce quel ne soit modifiable que par la macro ? si oui quel est la modification a apporter?

merci d'avance

 

[piga25]

Re : creation macro soustraction et RAZ

Bonjour,

Voir si cela peut convenir,
Par contre je n'ai rien mis en cas d'erreur de saisie du MDP, je ne suis pas encore assez doué en VBA.

Public Sub Itération()


    Dim j As Integer
    Dim Motdepasse As String
    Motdepasse = InputBox("Entrer le mot de passe :", "Oter la protection de la feuille", "")
    Application.ScreenUpdating = False
    ActiveSheet.Unprotect Password:=Motdepasse
        With Sheets("Donnée")
        For j = 2 To 27
        Cells(9, j).Value = Cells(9, j).Value - Cells(10, j).Value + Cells(11, j).Value
        Next j
        End With
        Range("B10:AA11").ClearContents
    Motdepasse = InputBox("Entrer le mot de passe :", "Mettre la protection sur la feuille", "")
    ActiveSheet.Protect Password:=Motdepasse
    Application.ScreenUpdating = True
    
End Sub

 

[frigolol]

Re : creation macro soustraction et RAZ

nop c'est pas bon le but est que le bouton soit accessible sans mot de passe mais que la modification de la ligne stock ne soit modifiable que par le bouton

 

[piga25]

Re : creation macro soustraction et RAZ

Re

Comme ceci, sans MDP