Suppression ligne si critère

[Cyril]

Bonjour,

Je cherche à supprimer des lignes entières si dans la colonne A j'a iun nombre. J'ai essayé plusieurs formule qui ne fonctionne pas. Je précise que ma colonne est le résultat d'un tableau croisé dynamique.
ça ressemble à ça
Somme 4154
Somme 1478
5689
1457
4523
Somme 4587
....

Je voudrais supprimer les lignes ou il y a 'Somme ...'

Merci d'avance

 

[Cyril]

Voilà ce que j'ai essayé et qui ne marche pas :

Private Sub EnleverLignes()
Dim D As Range, C As Range, MonCritère As String
MonCritère = 'FAUX'
On Error Resume Next
For Each C In Worksheets('TCD').Columns(1). _
SpecialCells(xlCellTypeConstants, xlTextValues)
If C.Value = MonCritère Then
If Not D Is Nothing Then
Set D = Union(D, C)
Else
Set D = C
End If
End If
Next
D.EntireRow.Delete
Set D = Nothing: C = Nothing
End Sub




ou autrement :


Dim Cell As Range

For Each Cell In Range('A1:A1000')
If Cell.Value = “FAUX” Then
Cell.EntireRow.Delete
End If
Next Cell

 

[Cyril]

Help c'est pour le boulot ! HELP !!!!!!!

 

[Cyril]

Personne ne peut m'aider je vois...

 

[lE0nard]

Bonjour Cyril, le Forum,

Pourquoi ne pas passer par un filtre automatique sur la colonne a, personnaliser,fonction contient et indiquer total.
Cela te permettrait de ne faire apparaître que les ligne contenant total dans le texte de la colonne a et de pouvoir les supprimer plus facilement.
Dans l'urgence cela pourrait peut être t'aider.
Cordialement,