Supprimer ligne selon 2 critères

**fidecourt** · 01/04/2009, 15h33

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

**alsimbad** · 01/04/2009, 15h59

sans avoir tout examiné

Code :

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

1
2
3
4
5
6
7
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")
S = .Find(Sortie, LookIn:=xlValues, lookat:=xlWhole)
If Not S Is Nothing Then
Selection.EntireRow.Delete

tu cherche une valeur colone A, puis quand tu la trouves, tu en cherche une autre colone D SANS relier les deux recherches.résultat, ton code trouve la valeur article colonne A, puis va chercher la valeur sortie en colonne D,mais pas forcement sur la meme ligne que Article
dans ton code, tu devrais faire
(je n'ai pas tester, je t'ecris sa a main levée

Code :

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

1
2
3
4
Set A = .Find(Article, LookIn:=xlValues, lookat:=xlWhole)
If Not A Is Nothing Then
if A.offset(0,3)=sortie
A.entiererow.delete

**Gorfael** · 01/04/2009, 16h00

Salut fidecourt et le forum

Code :

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

1
2
3
Set S = .Find(Sortie, LookIn:=xlValues, lookat:=xlWhole)
If Not S Is Nothing Then
Selection.EntireRow.Delete

C'est presque bon, mais tu continue à utiliser les sélect : pourquoi
Tu as fixé S comme étant la bonne cellule. qu'a-t-elle avoir avec la sélection ? Remplace Selection.EntireRow.Delete soit par

Code :

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

S.EntireRow.Delete

soit par

Code :

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

.Rows(S.row).delete

mais c'est bien de ne plus avoir les select dans ton code
EDIT
j'avais pas lu tout le code, l'erreur me semblait flagrante
Il faut parcourir toute la colonne A pour trouver toutes les occurences, dans une boucle.
A+

**fidecourt** · 01/04/2009, 17h03

salut Gorfael et merci pour tes explications

mais il n'y a rien a faire, la suppression ne se fait pas !

J'ai apporté les modifs, qu'est ce qui cloche ?

je joins le fichier exemple pour plus de clarté

le formulaire en question est usfDetailArticle

merci pour ton aide

**laetitia** · 01/04/2009, 18h44

bonjour le fil le forum code pour supprimer la ligne correpondande a adapter si tu veus supprimer que certaines cellules

Code :

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

1
2
3
Private Sub B_SUPPSORTIES_click()
Sheets("SORTIES").Rows(ListViewSorties.SelectedItem.Index + 1).Delete
End Sub

**fidecourt** · 01/04/2009, 19h05

bonsoir à tous

bon, alors là je ne comprends pas du tout comment faire
car pour supprimer la ligne il faut réunir les 2 conditions
dans la col A il y a l'Article
et
dans la col D il y a le N° de Sortie
si sur la ligne, j'ai Article et N°sortie correspondant à la ligne sélectionnée et à la valeur de RefArt, alors je supprime

j'ai testé ce qui suit, mais qui ne marche pas mieux,
il doit y avoir une petite faille quelque part, mais là je ne vois plus rien !

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
25
26
Private Sub B_SUPPSORTIES_click()
 
 
Dim Sortie As String
Dim Article As String
 
 
Sortie = ListViewSorties.SelectedItem.ListSubItems(1)
Article = RefArt
 
With Sheets("SORTIES").range("A:A")
 
 
Dim iRow As Long
For iRow = Cells(Rows.Count, "A").End(xlUp).Row To 3 Step -1
If Cells(iRow, "A").Value = Article And Cells(iRow, "D").Value = Sortie Then
Rows(iRow).Delete
End If
Next iRow
 
End With
For i = ListViewSorties.ListItems.Count To 1 Step -1
If ListViewSorties.ListItems(i).Selected = True Then ListViewSorties.ListItems.Remove i
    Next i
 
End Sub

**le petit nicolas** · 01/04/2009, 19h49

euh, tu n'aurais pas interverti "Article" et "Sortie" dans ta formule de test, par hasard ?

j'ai testé ça sur ton fichier, ca marche pile poil :

Code :

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

1
2
3
4
5
6
7
8
9
With Sheets("SORTIES")
    Dim iRow As Long
    For iRow = .Cells(Rows.Count, "A").End(xlUp).Row To 3 Step -1
    If .Cells(iRow, 1).Value = Sortie And .Cells(iRow, 4).Value = Article Then
        .Rows(iRow).Delete
        Exit For
    End If
    Next iRow
End With

**fidecourt** · 02/04/2009, 10h27

merci Petit Nicolas !

non, les paramètres n'étaient pas inversés, mais j'ai compris où cela coince
en fait, rien à voir avec la macro
c'est juste que si l'on sélectionne la première ligne de la listview, cela ne fonctionne plus car la ligne ne reste pas sélectionnée
si on fait très vite, cela marche :
sélection de la ligne - clic sur supprimer
je pense qu'il faut que je trouve un autre moyen de la sélectionner, certainement dans les propriétés de la listview

si quelqu'un a une idée ?

Merci encore pour votre aide à tous

**alsimbad** · 02/04/2009, 16h18

je ne pense pas que

Envoyé par fidecourt

si on fait très vite, cela marche :

soit une réponse informatique a quelque probleme que ce soit

**fidecourt** · 02/04/2009, 16h23

je suis d'accord avec toi Alsimbad !

j'ai reposté une question sur ce sujet précis : ListView Sélection/Déselection 1er ligne

car j'ai vraiment un souci avec la sélection dans la listview

A+.......

Supprimer ligne selon 2 critères

Macros et VBA Excel

Discussions similaires

Partager

Partager