Bonjour à tous,
je viens de passer beaucoup de temps sur le forum pour trouver la solution, mais là je craque et je fais appel à vous,
j'ai suivi attentivement la discussion entre NEC14 et Aalex38, mais je n'ai pas trouvé ma solution
voici mon souci
dossier : STOCK
j'ai un formulaire UsfDetailArticle qui comprend des listview
chaque listview liste :
- les sorties de stock de l'article = lvwSorties
- les entrées en stock de l'article = lvwEntrees
Lorsque je sélectionne une ligne de la liste, et que je clique sur le bouton SUPPRIMER SORTIE,
je veux que la ligne disparaisse de la lvwSorties (là c'est bon, ça marche)
mais aussi que cela SUPPRIME dans la feuille SORTIES
la ligne en question
Pour supprimer il faut que :
la colonne A comprenne la ref article de la textbox (RefArt)
ET
la colonne D comprenne le n° de commande de la ligne sélectionnée de la lvwSorties
ALORS
on supprime la ligne
malheureusement la ligne n'est pas supprimée !!!!
Pourquoi ?
Qu'ai je mal fait ???
quelqu'un a t il une idée lumineuse sur mon problème ?
===================
====================
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24 Private Sub B_SUPPSORTIES_click() Dim Sortie As String Dim Article As String For i = ListViewSorties.ListItems.Count To 1 Step -1 If ListViewSorties.ListItems(i).Selected = True Then ListViewSorties.ListItems.Remove i Next i Sortie = ListViewSorties.SelectedItem.ListSubItems(1) Article = RefArt With Sheets("SORTIES").range("A:A") Set A = .Find(Article, LookIn:=xlValues, lookat:=xlWhole) If Not A Is Nothing Then With Sheets("SORTIES").range("D:D") Set S = .Find(Sortie, LookIn:=xlValues, lookat:=xlWhole) If Not S Is Nothing Then Selection.EntireRow.Delete End If End With End If End With End Sub
d'avance merci
Partager