Discussion :

[Ladypalace]

Bonjour
J'ai un classeur excel avec 2 feuilles-Ventes et Stock,je souhaiterai lorsque je rentre une vente que l'article dans la liste Stock soit supprimé
Merci

[antonysansh]

Bonjour Ladypalace,

Il est compliqué de t'aider avec si peu de détails.
Faut-il changer une valeur d'un champ ou supprimer une ligne ? Peut-être te faudra-t-il plutôt une solution en VB.

[Ladypalace]

Bonjour Ladypalace,

Il est compliqué de t'aider avec si peu de détails.
Faut-il changer une valeur d'un champ ou supprimer une ligne ? Peut-être te faudra-t-il plutôt une solution en VB.

Je desire supprimer la ligne coorespondant à l'article dans la liste stock

[antonysansh]

Voilà déjà un détail supplémentaire

Ou fais-tu la saisie ? Que saisis-tu ? Comment va-t-on reconnaitre la ligne à supprimer dans l'autre feuille ?

[antonysansh]

Dans un Module :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Option Explicit
 
Function LigneDansStock(ByVal reference As Long) As Long
    Dim rg As Range
        Set rg = Sheets("Stock").Range("A:A").Find(reference)
        If Not rg Is Nothing Then LigneDansStock = rg.Row
End Function
 
Sub SupprimerLigne(ByVal ligne As Long)
    Sheets("Stock").Rows(ligne).Delete
End Sub

Dans le module de la Feuille Ventes :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim i&
    If Target.Column = 2 Then
        For i = 1 To 5
            Target.Offset(0, i) = Target.Offset(0, i)
        Next i
        SupprimerLigne (LigneDansStock(Target.Value))
    End If
End Sub

[Ladypalace]

Peux tu me detailler la procedure car je ne connais pas VBA
Merci pour ton aide

[antonysansh]

Bonjour Ladypalace,

Mon précédent post et ce Tuto devraient te permettre de coller le code fourni au bon endroit.