Suppression d'un selection multiple dans une zone de liste

**yieiyiei** · 25/02/2015, 09h44

Bonjour à tous,

j'ai une zone de liste nommée : Liste_Article.

Au début le paramètre "sélection multiple" de celle-ci était sur aucun.

Voici le code pour supprimer une ligne :

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
 
Private Sub Del_Article_Click()
On Error GoTo Err_Del_Article_Click
 
    DoCmd.OpenForm "Formulaire1", acNormal, , "[N°Article] = " & Me.Liste_Article
 
    DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
    DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
 
    Forms!Formulaire1.Refresh
 
Exit_Del_Article_Click:
    Exit Sub
 
Err_Del_Article_Click:
    MsgBox Err.Description
    Resume Exit_Del_Article_Click
 
End Sub

Jusque là tout allait bien, maintenant j'aimerais pouvoir faire une "sélection multiple étendue" et donc supprimer plusieurs lignes d'un coup.

C'est là que ça ne va plus et que je ne vois pas quoi écrire.

Faut-il par exemple enregistrer les lignes sélectionnées puis lui dire de supprimer ces items là ?

merci.

**jimbolion** · 25/02/2015, 10h12

yieiyiei,

un peu compliqué pour effacer une ligne (ouverture d'un formulaire -> suppression -> rafraichissement)

Tu peux utiliser des requêtes suppression en y incluant un filtre par exemple :

regarde ici

http://access.developpez.com/faq/?page=SQL#DeleteAll

Cldt

jimbolion

**yieiyiei** · 25/02/2015, 10h28

merci jimbolion, c'est effectivement plus court

j'ai changé mon code suivant l'exemple à savoir :

Code :

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

SQL = "Delete * From T_Article WHERE [N°Article]= ...

mais voilà, que mettre aux "..." comment lui dire = sélection de ou des [N°Article] dans ma zone de liste [Liste_Article] ?

**jimbolion** · 25/02/2015, 10h50

yieiyiei,

un descriptif et quelques explications sur le contenu des tables, les règles de suppression me permettrait d'en savoir un peu plus sur l'objet de ta demande et ainsi te fournir une solution adaptée.

jimbolion

**yieiyiei** · 25/02/2015, 11h14

je ne sais pas si ça t'arrange, le fichier est joint ...

ça se passe dans le "formulaire1" tu verras un bouton avec ton code de suppression qui marche lorsque la sélection multiple n'est pas activée. Mais plus ensuite.

Mon projet est bricolé mais avec mes connaissances fort limitées je fais ce que je peux

merci de me donner ton avis

**yieiyiei** · 25/02/2015, 11h18

j'ai aussi retranscrit un post en concret qui pourrait être intéressant, ça récupère les valeurs sélectionnées, faut il encore arriver à demander de supprimer la sélection

**jimbolion** · 25/02/2015, 11h50

yieiyiei,

donc je te remercie pour l'exemple, mais j'ai su m'en tirer sans

Donc le principe est le parcours de la zone de liste et récupérer uniquement les articles sélectionnés, j'ai commenté en marge de chaque ligne le déroulement des opérations :

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
Private Sub Del_jimbolion_Click()
'
Dim i As Long, Article As Long
For i = 0 To Me.Liste_Article.ListCount                                 ' lecture de l'ensemble des lignes de la zone de liste
'
DoCmd.SetWarnings False                                                 ' supprime le message de confirmation
Dim SQL As String
'
     If Me.Liste_Article.Selected(i) Then                               ' contrôle si article sélectionné
          Article = Liste_Article.Column(0, i)                          ' récupère l'id de l'article
          '
          SQL = "Delete * From T_Article WHERE [N°Article]=" & Article  ' Supprime l'article sélectionné
          DoCmd.RunSQL SQL
     End If
 
Next i
 
DoCmd.SetWarnings True                                                  ' réactive les messages de confirmation
'
DoCmd.Requery "Liste_Article"                                           'Rafraichit la zone de liste
'
End Sub

Je te laisse parcourir et analyser ces quelques lignes

Cordialement

Jimbolion

**yieiyiei** · 25/02/2015, 13h23

C'est parfait !

faute de temps j'avoue ne pas faire les choses dans l'ordre mais j'aimerais pouvoir établir des codes ainsi, mais par où commencer ? lol

En tout cas un grand merci.

Avant de mettre le post en Résolu j'ai une dernière question. Dans mon ancien code j'ajoutais ceci :

Code :

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

1
2
3
4
If IsNull(Me.Liste_Article.Value) Or Me.Liste_Article.Value = "" Then
    MsgBox ("Sélectionner une ligne")
    Exit Sub
    Else

qui permettait donc que si on clique sur "Supprimer" de reconnaître qu'aucune ligne n'avait été sélectionnée et donc de demander d'en choisir une. C'est ce qu'il me reste d'ajouter à ton code mais quelle champ remplace "Me.Liste_Article.Value" ? il s'agit de :

Code :

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

Me.Liste_Article.Selected(i)

?

**jimbolion** · 25/02/2015, 13h49

yieiyiei

En vérifiant si une ligne au moins a été sélectionnée et l'utilisation d'un flag de contrôle

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
27
28
29
30
31
32
33
34
35
36
Private Sub Del_jimbolion_Click()
'
Dim i As Long, Article As Long, Trouve As Boolean
'
Trouve = False                                                          ' positionne l'indicateur de suuppression à false
'
For i = 0 To Me.Liste_Article.ListCount - 1                             ' lecture de l'ensemble des lignes de la zone de liste
'
DoCmd.SetWarnings False                                                 ' supprime le message de confirmation
Dim SQL As String
'
 
'
     If Me.Liste_Article.Selected(i) Then                               ' contrôle si article sélectionné
          Article = Liste_Article.Column(0, i)                          ' récupère l'id de l'article
          '
          SQL = "Delete * From T_Article WHERE [N°Article]=" & Article  ' Supprime l'article sélectionné
          '
          Trouve = True                                                 ' un enregistrement supprimé on modifie la variable
          DoCmd.RunSQL SQL
     Else
 
     End If
 
Next i
'
If Trouve = False Then                                                  ' teste si on a effacé un enregistrement
    MsgBox "Sélectionner une ligne", vbCritical, "Erreur"
End If
 
'
DoCmd.SetWarnings True                                                  ' réactive les messages de confirmation
'
DoCmd.Requery "Liste_Article"                                           'Rafraichit la zone de liste
'
End Sub

@ Bientôt

Jimbolion

**yieiyiei** · 25/02/2015, 13h56

merci bcp jimbolion

**yieiyiei** · 25/02/2015, 14h16

sorry de revenir encore vers toi, je pensais y arriver mais non

j'ai bien vu que la demande de confirmation était supprimée, là c'est ok.

Je voulais par contre la remplacer par une de ce type là :

Code :

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

1
2
3
    If MsgBox("Supprimer l'article ?", vbQuestion + vbYesNo, "CONFIRMATION") = vbNo Then
    Exit Sub 'Si NON ne fait rien
    End If 'Si oui ... :

Sinon l'utilisateur n'est pas à l'abri de supprimer une ligne par accident mais voilà, j'ai beau la placer à plusieurs endroits, ça ne semble pas être compatible tel quel. Peux-tu encore juste m'éclairer sur ce point ?

merci beaucoup.

**jimbolion** · 25/02/2015, 14h19

yieiyiei

la question doit être posée sur chaque article ou simplement si il y a au moins une ligne de sélectionnée ?

**yieiyiei** · 25/02/2015, 14h44

héhé, je n'avais même pas envisagé ce cas là, non il ne s'agit que d'une sécurité avant annulation que la sélection soit une ligne ou plusieurs donc si après demande : oui, ton code est appliqué, sur l'utilisateur clic non, on sort !

ça répond à ta question ?

merci pour ta réactivité en tout cas

**jimbolion** · 25/02/2015, 14h47

yieiyiei,

Donc principe similiare et falg permettant de savoir si la question a été posée

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
Private Sub Del_jimbolion_Click()
'
Dim i As Long, Article As Long, Trouve As Boolean, QuestionPosee As Boolean
'
Trouve = False                                                          ' positionne l'indicateur de suppression à false
QuestionPosee = False                                                   ' positionne l'indicateur de question déjà posée à false
'
For i = 0 To Me.Liste_Article.ListCount - 1                             ' lecture de l'ensemble des lignes de la zone de liste
'
DoCmd.SetWarnings False                                                 ' supprime le message de confirmation
Dim SQL As String
'
     If Me.Liste_Article.Selected(i) Then                               ' contrôle si article sélectionné
          Article = Liste_Article.Column(0, i)                          ' récupère l'id de l'article
          '
          If QuestionPosee = False Then
            If MsgBox("Supprimer le(s) article(s) ?", vbQuestion + vbYesNo, "CONFIRMATION") = vbNo Then
              Exit Sub 'Si NON ne fait rien
            Else
              QuestionPosee = True
            End If 'Si oui ... :
          End If
          '
          SQL = "Delete * From T_Article WHERE [N°Article]=" & Article  ' Supprime l'article sélectionné
          '
          Trouve = True                                                 ' un enregistrement supprimé on modifie la variable
          DoCmd.RunSQL SQL
     Else
 
     End If
 
Next i
'
If Trouve = False Then                                                  ' teste si on a effacé un enregistrement
    MsgBox "Sélectionner une ligne", vbCritical, "Erreur"
End If
 
'
DoCmd.SetWarnings True                                                  ' réactive les messages de confirmation
'
DoCmd.Requery "Liste_Article"                                           'Rafraichit la zone de liste
'
End Sub

Jimbolion

**yieiyiei** · 25/02/2015, 14h52

c'était effectivement plus compliqué que ce que j'imaginais

merci

dans mes objectifs j'envisage de pouvoir dupliquer un article ou soyons fous plusieurs, je me trompe peut-être mais la mécanique sera fort semblable avec une partie pour la duplication différente.

si ça coince, je posterai un autre poste.

sincèrement, merci 1000 fois !!!

C'est Résolu de Résolu

**jimbolion** · 25/02/2015, 15h34

yieiyiei

la manipulation des zones de liste en partie VBA oui, car on arrive pas à récupérer le nombre de lignes sélectionnées avant parcours de la boucle.

pour le reste ce sera plus simple

donc @ bientôt

Suppression d'un selection multiple dans une zone de liste [AC-2003]

VBA Access

Discussions similaires

Partager

Partager