Discussion :

[Joris.F]

Bonjour,

Je souhaite faire des suppressions.

Si une cellule dans une colonne sélectionnée (de B6 à XLDown) contient les caractères "05" alors je veux supprimer les lignes de ces cellules. J'ai écris ça pour le moment:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub Suppression_Alarmes()
 
Dim i As Integer
 
 
For i = Range("B6").End(xlDown) To 1 Step -1
 
If .Value Like "*05" Then .EntireRow.Delete
Next i
 
End Sub

Merci pour votre aide,

joris

[joe.levrai]

Bonjour,

et quel est le problème ? A part le joker "*" manquant derrière 05 (et un potentiel problème avec les formats) ainsi qu'une structure With mal montée (pas de bloc d'ouverture et de fermeture), rien ne transparait.

[BENNASR]

bonjour
essayer ça :

Code :

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

1
2
3
4
5
6
7
8
Sub EntireRow()
 
 For i = Range("B" & Rows.Count).End(xlUp).Row To 6 Step -1
           If Cells(i, 2) Like "*5*" Then
           Cells(i, 1).EntireRow.Delete
           End If
       Next i
    End Sub

[Joris.F]

Bonjour à tous les deux!

Merci pour vos réponses, joe.levrai j'avais une erreur de dépassement de "capacité" et BENNASR. ce que tu m'as donné ne fonctionnait pas non. J'ai fait qq recherches depuis et j'ai modifié ma macro. J'ai écrit:

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
Sub Tri_Supprime()
 
    Dim Cell As Range
    Dim x As Long
 
 
 
            For x = 12 To 50000
 
                If Minute(Cells(x, 2)) = 5 Then    'ici je cherchais à supprimer les lignes des cellules où l'heure de création de fichier est xxh05min
                Cells(x, 2).EntireRow.Delete        ' donc j'ai utilisé la fonction Minute ;)
                End If
            Next x
 
End Sub