BOnjour à tous,
Je voudrai vous soumettre la macro ci dessous que j'ai modifié tant bien que mal .
L'objectif est si 2 conditions sont remplies alors j'efface la ligne
J'ai un doute sur la notion for i = range D car dans mes conditions j'ai D et H
cependant la macro tourne sans soucis
Merci de votre aide
temps moyen de traitement sur 35 000 lignes +/- 3 minutes
Sub DelEditeur()
Dim i As Integer
With ThisWorkbook.Sheets("1 Planning")
'Précisez le nom de votre feuille
For i = .Range("D" & .Rows.Count).End(xlUp).Row To 2 Step -1
'je travaille sur la colonne d
'Rows.count permet de retourner le nombre de ligne de la plage range
If .Range("D" & i).Value >= "50" And Range("h" & i).Value >= 0 Then
.Rows(i).Delete
End If
Next i
End With
End Sub
Je voudrai vous soumettre la macro ci dessous que j'ai modifié tant bien que mal .
L'objectif est si 2 conditions sont remplies alors j'efface la ligne
J'ai un doute sur la notion for i = range D car dans mes conditions j'ai D et H
cependant la macro tourne sans soucis
Merci de votre aide
temps moyen de traitement sur 35 000 lignes +/- 3 minutes
Sub DelEditeur()
Dim i As Integer
With ThisWorkbook.Sheets("1 Planning")
'Précisez le nom de votre feuille
For i = .Range("D" & .Rows.Count).End(xlUp).Row To 2 Step -1
'je travaille sur la colonne d
'Rows.count permet de retourner le nombre de ligne de la plage range
If .Range("D" & i).Value >= "50" And Range("h" & i).Value >= 0 Then
.Rows(i).Delete
End If
Next i
End With
End Sub
