Bonsoir,
Voilà mon problème, j'ai fais un tableau pour gérer les entrées et les sorties d'un stock.
J'ai un macro qui efface les cellules D et E une fois rempli... A la première ligne cela fonctionne bien si je rentre 100 en D3 j'ai bien 100 en G3, mais à partir de la deuxième ligne ça ne fonctionne plus si je rentre 100 en D4 j'ai 300 en G4... 100 en D5 donne 500 en D5....
Ci joint le tableau et ci dessous le macro.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("E3").Value = "" Then
Range("D3").ClearContents
End If
If Range("D3").Value = "" Then
Range("E3").ClearContents
End If
If Range("E4").Value = "" Then
Range("D4").ClearContents
End If
If Range("D4").Value = "" Then
Range("E4").ClearContents
End If
If Range("E5").Value = "" Then
Range("D5").ClearContents
End If
If Range("D5").Value = "" Then
Range("E5").ClearContents
End If
If Range("E6").Value = "" Then
Range("D6").ClearContents
End If
If Range("D6").Value = "" Then
Range("E6").ClearContents
End If
If Range("E7").Value = "" Then
Range("D7").ClearContents
End If
If Range("D7").Value = "" Then
Range("E7").ClearContents
End If
If Range("E8").Value = "" Then
Range("D8").ClearContents
End If
If Range("D8").Value = "" Then
Range("E8").ClearContents
End If
If Range("E9").Value = "" Then
Range("D9").ClearContents
End If
If Range("D9").Value = "" Then
Range("E9").ClearContents
End If
If Range("E10").Value = "" Then
Range("D10").ClearContents
End If
If Range("D10").Value = "" Then
Range("E10").ClearContents
End If
If Range("E11").Value = "" Then
Range("D11").ClearContents
End If
If Range("D11").Value = "" Then
Range("E11").ClearContents
End If
If Range("E12").Value = "" Then
Range("D12").ClearContents
End If
If Range("D12").Value = "" Then
Range("E12").ClearContents
End If
If Range("E13").Value = "" Then
Range("D13").ClearContents
End If
If Range("D13").Value = "" Then
Range("E13").ClearContents
End If
If Range("E14").Value = "" Then
Range("D14").ClearContents
End If
If Range("D14").Value = "" Then
Range("E14").ClearContents
End If
If Range("E15").Value = "" Then
Range("D15").ClearContents
End If
If Range("D15").Value = "" Then
Range("E15").ClearContents
End If
If Range("E16").Value = "" Then
Range("D16").ClearContents
End If
If Range("D16").Value = "" Then
Range("E16").ClearContents
End If
If Range("E17").Value = "" Then
Range("D17").ClearContents
End If
If Range("D17").Value = "" Then
Range("E17").ClearContents
End If
If Range("E18").Value = "" Then
Range("D18").ClearContents
End If
If Range("D18").Value = "" Then
Range("E18").ClearContents
End If
If Range("E19").Value = "" Then
Range("D19").ClearContents
End If
If Range("D19").Value = "" Then
Range("E19").ClearContents
End If
If Range("E20").Value = "" Then
Range("D20").ClearContents
End If
If Range("D20").Value = "" Then
Range("E20").ClearContents
End If
If Range("E21").Value = "" Then
Range("D21").ClearContents
End If
If Range("D21").Value = "" Then
Range("E21").ClearContents
End If
If Range("E22").Value = "" Then
Range("D22").ClearContents
End If
If Range("D22").Value = "" Then
Range("E22").ClearContents
End If
If Range("E23").Value = "" Then
Range("D23").ClearContents
End If
If Range("D23").Value = "" Then
Range("E23").ClearContents
End If
If Range("E24").Value = "" Then
Range("D24").ClearContents
End If
If Range("D24").Value = "" Then
Range("E24").ClearContents
End If
If Range("E25").Value = "" Then
Range("D25").ClearContents
End If
If Range("D25").Value = "" Then
Range("E25").ClearContents
End If
If Range("E26").Value = "" Then
Range("D26").ClearContents
End If
If Range("D26").Value = "" Then
Range("E26").ClearContents
End If
If Range("E27").Value = "" Then
Range("D27").ClearContents
End If
If Range("D27").Value = "" Then
Range("E27").ClearContents
End If
If Range("E28").Value = "" Then
Range("D28").ClearContents
End If
If Range("D28").Value = "" Then
Range("E28").ClearContents
End If
If Range("E29").Value = "" Then
Range("D29").ClearContents
End If
If Range("D29").Value = "" Then
Range("E29").ClearContents
End If
If Range("E30").Value = "" Then
Range("D30").ClearContents
End If
If Range("D30").Value = "" Then
Range("E30").ClearContents
End If
If Range("E31").Value = "" Then
Range("D31").ClearContents
End If
If Range("D31").Value = "" Then
Range("E31").ClearContents
End If
If Range("E32").Value = "" Then
Range("D32").ClearContents
End If
If Range("D32").Value = "" Then
Range("E32").ClearContents
End If
If Range("E33").Value = "" Then
Range("D33").ClearContents
End If
If Range("D33").Value = "" Then
Range("E33").ClearContents
End If
If Range("E34").Value = "" Then
Range("D34").ClearContents
End If
If Range("D34").Value = "" Then
Range("E34").ClearContents
End If
If Range("E36").Value = "" Then
Range("D36").ClearContents
End If
If Range("D36").Value = "" Then
Range("E36").ClearContents
End If
If Range("E37").Value = "" Then
Range("D37").ClearContents
End If
If Range("D37").Value = "" Then
Range("E37").ClearContents
End If
End Sub
Merci de votre aide!
Voilà mon problème, j'ai fais un tableau pour gérer les entrées et les sorties d'un stock.
J'ai un macro qui efface les cellules D et E une fois rempli... A la première ligne cela fonctionne bien si je rentre 100 en D3 j'ai bien 100 en G3, mais à partir de la deuxième ligne ça ne fonctionne plus si je rentre 100 en D4 j'ai 300 en G4... 100 en D5 donne 500 en D5....
Ci joint le tableau et ci dessous le macro.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("E3").Value = "" Then
Range("D3").ClearContents
End If
If Range("D3").Value = "" Then
Range("E3").ClearContents
End If
If Range("E4").Value = "" Then
Range("D4").ClearContents
End If
If Range("D4").Value = "" Then
Range("E4").ClearContents
End If
If Range("E5").Value = "" Then
Range("D5").ClearContents
End If
If Range("D5").Value = "" Then
Range("E5").ClearContents
End If
If Range("E6").Value = "" Then
Range("D6").ClearContents
End If
If Range("D6").Value = "" Then
Range("E6").ClearContents
End If
If Range("E7").Value = "" Then
Range("D7").ClearContents
End If
If Range("D7").Value = "" Then
Range("E7").ClearContents
End If
If Range("E8").Value = "" Then
Range("D8").ClearContents
End If
If Range("D8").Value = "" Then
Range("E8").ClearContents
End If
If Range("E9").Value = "" Then
Range("D9").ClearContents
End If
If Range("D9").Value = "" Then
Range("E9").ClearContents
End If
If Range("E10").Value = "" Then
Range("D10").ClearContents
End If
If Range("D10").Value = "" Then
Range("E10").ClearContents
End If
If Range("E11").Value = "" Then
Range("D11").ClearContents
End If
If Range("D11").Value = "" Then
Range("E11").ClearContents
End If
If Range("E12").Value = "" Then
Range("D12").ClearContents
End If
If Range("D12").Value = "" Then
Range("E12").ClearContents
End If
If Range("E13").Value = "" Then
Range("D13").ClearContents
End If
If Range("D13").Value = "" Then
Range("E13").ClearContents
End If
If Range("E14").Value = "" Then
Range("D14").ClearContents
End If
If Range("D14").Value = "" Then
Range("E14").ClearContents
End If
If Range("E15").Value = "" Then
Range("D15").ClearContents
End If
If Range("D15").Value = "" Then
Range("E15").ClearContents
End If
If Range("E16").Value = "" Then
Range("D16").ClearContents
End If
If Range("D16").Value = "" Then
Range("E16").ClearContents
End If
If Range("E17").Value = "" Then
Range("D17").ClearContents
End If
If Range("D17").Value = "" Then
Range("E17").ClearContents
End If
If Range("E18").Value = "" Then
Range("D18").ClearContents
End If
If Range("D18").Value = "" Then
Range("E18").ClearContents
End If
If Range("E19").Value = "" Then
Range("D19").ClearContents
End If
If Range("D19").Value = "" Then
Range("E19").ClearContents
End If
If Range("E20").Value = "" Then
Range("D20").ClearContents
End If
If Range("D20").Value = "" Then
Range("E20").ClearContents
End If
If Range("E21").Value = "" Then
Range("D21").ClearContents
End If
If Range("D21").Value = "" Then
Range("E21").ClearContents
End If
If Range("E22").Value = "" Then
Range("D22").ClearContents
End If
If Range("D22").Value = "" Then
Range("E22").ClearContents
End If
If Range("E23").Value = "" Then
Range("D23").ClearContents
End If
If Range("D23").Value = "" Then
Range("E23").ClearContents
End If
If Range("E24").Value = "" Then
Range("D24").ClearContents
End If
If Range("D24").Value = "" Then
Range("E24").ClearContents
End If
If Range("E25").Value = "" Then
Range("D25").ClearContents
End If
If Range("D25").Value = "" Then
Range("E25").ClearContents
End If
If Range("E26").Value = "" Then
Range("D26").ClearContents
End If
If Range("D26").Value = "" Then
Range("E26").ClearContents
End If
If Range("E27").Value = "" Then
Range("D27").ClearContents
End If
If Range("D27").Value = "" Then
Range("E27").ClearContents
End If
If Range("E28").Value = "" Then
Range("D28").ClearContents
End If
If Range("D28").Value = "" Then
Range("E28").ClearContents
End If
If Range("E29").Value = "" Then
Range("D29").ClearContents
End If
If Range("D29").Value = "" Then
Range("E29").ClearContents
End If
If Range("E30").Value = "" Then
Range("D30").ClearContents
End If
If Range("D30").Value = "" Then
Range("E30").ClearContents
End If
If Range("E31").Value = "" Then
Range("D31").ClearContents
End If
If Range("D31").Value = "" Then
Range("E31").ClearContents
End If
If Range("E32").Value = "" Then
Range("D32").ClearContents
End If
If Range("D32").Value = "" Then
Range("E32").ClearContents
End If
If Range("E33").Value = "" Then
Range("D33").ClearContents
End If
If Range("D33").Value = "" Then
Range("E33").ClearContents
End If
If Range("E34").Value = "" Then
Range("D34").ClearContents
End If
If Range("D34").Value = "" Then
Range("E34").ClearContents
End If
If Range("E36").Value = "" Then
Range("D36").ClearContents
End If
If Range("D36").Value = "" Then
Range("E36").ClearContents
End If
If Range("E37").Value = "" Then
Range("D37").ClearContents
End If
If Range("D37").Value = "" Then
Range("E37").ClearContents
End If
End Sub
Merci de votre aide!
Pièces jointes
Dernière édition: