[VBA-E]suppression ligne d'après lisbox multicritère

Version imprimable

07/09/2006, 12h57
clairefranclieu

[VBA-E]suppression ligne d'après lisbox multicritère

Bonjour,

Grâce à vous j'ai réussi à faire ma zone de liste multicritère mais je n'arrive pas à supprimer les lignes dans mon tableau xcel lorsque j'ai sélectionné 1 ou + personne dans ma listbox.

merci bcp
claire
07/09/2006, 13h47
marsupilami34
Pour supprimer une ligne de ta feuille excel, le code est le suivant
Code:

1 2 3 Rows(i).select Selection.delete Shift:=xlUp
Il te faut donc balyer talistbox et ta feuille excel parallèlement
07/09/2006, 13h50
AlainTech

Citation:

Envoyé par clairefranclieu

je n'arrive pas à supprimer les lignes dans mon tableau xcel lorsque j'ai sélectionné 1 ou + personne dans ma listbox.

Oui...

Et alors?

Si tu n'y arrives pas c'est, peut-être, qu'il est temps d'étudier un peu le langage que tu veux utiliser.

Tu vas devoir faire une boucle et une recherche (peut-être par une boucle) dans cette boucle.
07/09/2006, 13h51
AlainTech
Citation:
Envoyé par marsupilami34

Code:

1 2 3 Rows(i).select Selection.delete Shift:=xlUp
Essaye d'éviter les Select:
Code:

1 2 Rows(i).delete Shift:=xlUp

voici le code que j'ai fais et qui ne marche pas, erreur "indice n'appartient pas à sélection" pour ligne en gras:
mais je crois que je me suis perdu dans un truc trop compliqué!désolée de ne pas l'avoir mis au début.

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
Private Sub supsalsorti_Click()
Dim rowrange As Range
rowcnt = 0
For r = 0 To salsorti.ListCount - 1
If salsorti.Selected(r) Then
    rowcnt = rowcnt + 1
    If rowcnt = 1 Then
    Set rowrange = ActiveSheet.Rows(r + 1)
   rowrange.Copy
   Worksheets("sortie").Select
   Range("a1").Select
   ActiveSheet.Paste
 For i = 0 To 50
While (Worksheets("salarie").Cells(i, 1).Value = Worksheets("sortie").Range("a1").Value)
If Worksheets("salarie").Cells(i, 1).Value = rowrange Then
Rows(i).Delete
End If
i = i + 1
Wend
Next
    Else
    Set rowrange = Union(rowrange, ActiveSheet.Rows(r + 1))
  rowrange.Copy
   Worksheets("sortie").Select
   Range("a1").Select
   ActiveSheet.Paste
 For i = 0 To 50
While (Worksheets("salarie").Cells(i, 1).Value = Worksheets("sortie").Range("a1").Value)
If Worksheets("salarie").Cells(i, 1).Value = rowrange Then
Rows(i).Delete
End If
i = i + 1
Wend
Next
    End If
End If
Next r
'If Not rowrange Is Nothing Then rowrange.Select
'Unload Me
End Sub

07/09/2006, 14h55
AlainTech
Citation:
Envoyé par clairefranclieu

Code:

1 2 For i = 0 To 50 While (Worksheets("salarie").Cells(i, 1).Value = Worksheets("sortie").Range("a1").Value)
Il n'existe pas de Row 0!

Edit --> Je pense que ça génère une autre erreur (1004?)
Es-tu certaine de l'orthographe des feuilles "salarie" et "sortie".
Par exemple, un espace ou un accent parasite.
07/09/2006, 15h57
clairefranclieu

j'ai testé et j'ai erreur 1004 si i=0 mais si je mets i=1, alors il copie bien une ligne mais celle du dessus.

Et même si ça "marche", il n'y a aucune ligne supprimée.

Effectivement, j'avais des erreurs dans mes noms de feuilles:oops:
07/09/2006, 16h08
clairefranclieu

j'ai trouvé pour la suppression de ligne, il y avait une confusion dans la sélection des feuilles!
11/09/2006, 14h03
AlainTech

Euh...
C'est résolu, alors???

Si oui, un petit clic pour éviter un grand choc :roll: :mouarf:
11/09/2006, 16h24
clairefranclieu

Désolée mais je suis partie sur un autre problème. Seul le problème de la supression de ligne est résolu mais j'ai tjs:

"erreur 1004 si i=0 mais si je mets i=1, alors il copie bien une ligne mais celle du dessus."

Je reviens dessus dès que jepeux pour expliquer mieux le problème, merci.
claire
11/09/2006, 22h38
SfJ5Rpw8

Citation:

Envoyé par clairefranclieu

Désolée mais je suis partie sur un autre problème. Seul le problème de la supression de ligne est résolu mais j'ai tjs:

"erreur 1004 si i=0 mais si je mets i=1, alors il copie bien une ligne mais celle du dessus."

Je reviens dessus dès que jepeux pour expliquer mieux le problème, merci.
claire

ben dans Cells (i,... le i est le numéro de ligne et va de 1 à 65536 d'ou si i = 0 .. erreur..