Discussion :

[didjo]

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

[JMPS.VBA]

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

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

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.

[Pierre Fauconnier]

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 :

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

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

[JMPS.VBA]

Code :

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

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 :

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
    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...

[decondelite]

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 :

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

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

[didjo]

Pierre,

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

[nono le golfeur]

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 :

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
 
 
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à ! @+