Macro pour effacer lignes

Version imprimable

31/10/2008, 16h05
didjo

Macro pour effacer lignes

Bonjour,

J'ai un tableau excel dans lequel j'ai dans la colonne A des lignes avec des dates et des lignes avec de infos diverses.
Je souhaiterai à partir d'une macro, supprimer toutes les lignes que ne correspondent pas à une date.
Pouvez vous m'aider.
Merci par avance de vos lumières.

Didj

Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Sub MySub() Dim MyGroup As Range Dim MyElement As Range Dim MaBorneDébut as string Dim MaBorneFin as string MaBorneDébut ="$A$1" MaBorneFin ="$A$9" Set MyGroup = Range(MaBorneDébut & ":" & MaBorneFin) For Each MyElement In MyGroup If IsDate(MyElement.Value)=False Then MyElement.EntireRow.Delete Next End Sub
Je me suis beaucoup amusé à le faire...
Les variables MaBorne permettrons de délimiter la recherche au stricte nécessaire. L'utilisation d'une borne "$A:$A" engendre un long temps de traitement.

Code:

NBdeLignes = Application.WorksheetFunction.CountIf(Range("A:A"), "<>")

Le code ci-dessus indiquera le nombre de lignes non vides de la colonne A. Utile pour déterminer au plus juste la borne de fin.

Bonjour

Attention. Quand on supprime des lignes, il faut toujours commencer par le bas, sinon on loupe le test sur la ligne qui suit celle qui est supprimée...
Code:

1 2 3 4 5 6 7 8 9 10 Sub Effacer() Dim MaDate As Date Dim i As Long MaDate = DateSerial(2008, 1, 5) For i = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1 If Cells(i, 1).Value <> MaDate Then Rows(i & ":" & i).Delete Next End Sub

Code:

Cells(Rows.Count, 1).End(xlUp).Row

Comment dire ... Je savais même pas que ça pouvait exister ...
Avant de donner des conseils aux autres, je ferais mieux de continuer à apprendre.

L'alternative que je propose à mon propre code est plus longue à programmer donc moins bonne...

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
    Dim MyGroup As Range
    Dim MyElement As Range
    Dim MaBorneDébut As String
    Dim MaBorneFin As String
    Dim JeContinue As String
 
    JeContinue = "OUI"
 
    MaBorneDébut = "$A$1"
    MaBorneFin = "$A$100"
 
    Set MyGroup = Range(MaBorneDébut & ":" & MaBorneFin)
 
    Do While JeContinue = "OUI"
    For Each MyElement In MyGroup.Rows
        Select Case IsDate(MyElement.Value)
            Case False
                MyElement.EntireRow.Delete
                JeContinue = "OUI"
                Exit For
        Case Else
                JeContinue = "NON"
        End Select
    Next
    Loop

Bref. Dire que j'étais fier de moi ... Je ne suis pas développeur et ça se voit...

06/11/2008, 13h53
didjo

Ca ne fonctionne pas

Pierre,

Ca ne fonctionne pas ! ca m'éfface toutes les lignes sauf la première.

Bonjour didjo,

Moi j'utilise le code suivant pour supprimer des lignes, je pars de la première, c'est ptet une erreur dans certains car mais ça fonctionne pas mal sur mes fichiers :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
 
i = # de ta ligne ou tu veux commencer
 
While (FICHIER.Range("A" & i).Value <> "")
    If Cells(i,  # Collone) <> TA CONDITION DATE Then
        Rows(i).EntireRow.Delete
 
' Donc si la condition est remplis ou pas remplis suivant ce que tu veux tester, tu supprimes la ligne et ça n'incrémente pas " i " de façon à re-tester la même ligne.    
 
 Else
    i = i + 1
 
    End If
Wend
 
'Ici comme la condition n'était pas remplis, on incrémente " i " et la ligne du dessus ne sera pas supprimée.

Voilà ! @+

Citation:

Envoyé par JMPS.VBA

Comment dire ... Je savais même pas que ça pouvait exister ...
Avant de donner des conseils aux autres, je ferais mieux de continuer à apprendre.

Justement, c'est en se penchant sur le cas des autres qu'on apprend le plus. ;)

A tester (j'ai la flemme...):
Code:

1 2 3 4 5 Dim derniere_ligne As Integer, ligne As integer derniere_ligne = Cells(Rows.Count,1).End(xlUp).Row For ligne = derniere_ligne To 1 Step -1 If Cells(ligne,1).Value<>MaDate Then Rows(ligne).Delete xlUp Next