Discussion :

[bigboss60]

Bonjour,

Je suis coincé dans ma macro, j'ai placé un filtre pour pouvoir masqué certaine ligne et je voudrais transférer seulement les données qui sont dans mes lignes visible. Donc pour être tranquille je voudrais directement supprimer ces lignes masqué. Je n'ai pas trouver la commande sur le net. Si quelqu'un peut m'aider merci.

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
'Extraction des collaborateurs'
    Sheets("Data Grpe").Select
    Columns("D:D").Select
    Selection.Copy
    Sheets.Add After:=Sheets(Sheets.Count)
    Columns("A:A").Select
    ActiveSheet.Paste
    ActiveSheet.Name = "Liste de noms"
    Dim Plage As Range, Cell As Range
    Set Plage = Range("A2:A" & Split(ActiveSheet.UsedRange.Address, "$")(4))
    Plage.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
        Plage, Unique:=True
    Set Plage = Plage.SpecialCells(xlCellTypeVisible)
    Selection.EntireRow.Hidden = False
 
 
'Ajout des collaborateurs dans la table "Temps TLM" '
Dim E As Integer
Dim F As Integer
E = 3
Do While Cells(E, 1) <> ""
    Cells(E, 1).Select
    Selection.Copy
E = E + 1
    Sheets("Temps TLM").Select
F = 11
        Do While Cells(3, F) <> ""
            F = F + 1
        Loop
    Cells(3, F).Select
    ActiveSheet.Paste
    Sheets("Liste de noms").Select
Loop

[pgz]

Bonjour.

Pour supprimer une ligne

Code :

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

maFeuille.Rows(numLigne).Delete

Bonne journée,

PGZ

[bigboss60]

Je sais comment retirer une ligne quand on connait son numéro de ligne mais je voudrais qu'il me supprime les lignes qui sont masqué. Comme vous voyez dans ma macro juste au dessu, j'ai placé un filtre qui me masque les lignes dont je n'ai pas besoin mais je voudrais plutôt supprimer les lignes que les masqué ou sinon les masqué et rajouter la ligne qui va je pense passer par une fonction " si la ligne est masqué supprimer"

Merci

[neupont]

Salut,
Voici 2 façons d'identifier des cellules masquées ou filtrées :

Code :

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

1
2
3
4
 
For Each c In Range("A1").CurrentRegion.SpecialCells(xlCellTypeVisible)
   ...traitement
Next

Ou

Code :

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

1
2
 
If Rows(Cells(i,j).Row).Hidden = False Then…

A adapter...

Edit : ces codes signalent plutôt les lignes non masquées, le mieux est sans doute d'utiliser la dernière proposition en remplaçant False par True.

[wilfried_42]

Bonjour à tous

Le plus rapide est de copier les lignes visible dans une autres feuille
Supprimer la feuille et renommer la nouvelle feuille avec l'ancien nom

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Supp_masque()
     Dim w1 As Worksheet, w2 As Worksheet
     Dim mem_name As String
     mem_name = ActiveSheet.Name
     Set w1 = ActiveSheet
     Set w2 = Worksheets.Add(before:=w1)
     w1.Range("A1").CurrentRegion.Cells.SpecialCells(xlCellTypeVisible).Copy Destination:=w2.Range("A1")
     Application.DisplayAlerts = False
     w1.Delete
     Application.DisplayAlerts = True
     w2.Name = mem_name
     w2.Select
End Sub