Suppression d'un selection multiple dans une zone de liste

Version imprimable

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:

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.

25/02/2015, 10h12
jimbolion

yieiyiei,

:aie:

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
25/02/2015, 10h28
yieiyiei

merci jimbolion, c'est effectivement plus court :)

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

Code:

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] ?
25/02/2015, 10h50
jimbolion

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
25/02/2015, 11h14
yieiyiei

1 pièce(s) jointe(s)

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
25/02/2015, 11h18
yieiyiei

1 pièce(s) jointe(s)

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 :lol:

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:

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

25/02/2015, 13h23
yieiyiei
C'est parfait ! :D

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:

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:

Me.Liste_Article.Selected(i)

?

yieiyiei ;)

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

Code:

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

25/02/2015, 13h56
yieiyiei

merci bcp jimbolion
25/02/2015, 14h16
yieiyiei
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:

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.
25/02/2015, 14h19
jimbolion

yieiyiei

la question doit être posée sur chaque article ou simplement si il y a au moins une ligne de sélectionnée ?
25/02/2015, 14h44
yieiyiei

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

yieiyiei,

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

Code:

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

25/02/2015, 14h52
yieiyiei

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 :lol:
25/02/2015, 15h34
jimbolion

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