Macro pour supprimer lignes dont une case = 01/01/9999 00:00:00
Résolu/Fermé
jubilofrog
Messages postés
6
Date d'inscription
mercredi 18 septembre 2013
Statut
Membre
Dernière intervention
20 février 2014
-
18 sept. 2013 à 10:42
jubilofrog - 19 sept. 2013 à 12:21
jubilofrog - 19 sept. 2013 à 12:21
A voir également:
- Macro pour supprimer lignes dont une case = 01/01/9999 00:00:00
- Supprimer une page word - Guide
- Supprimer compte instagram - Guide
- Macro word - Guide
- Aller à la ligne dans une case excel - Guide
- Supprimer edge - Guide
4 réponses
eriiic
Messages postés
24570
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
23 avril 2024
7 214
18 sept. 2013 à 11:23
18 sept. 2013 à 11:23
Bonjour,
et pourquoi pas les supprimer en les filtrant plus simplement ?
eric
et pourquoi pas les supprimer en les filtrant plus simplement ?
eric
Bonjour
Oui ou avec une macro
Sub EffaceLigne()
DebLig = 2
FinLig = Range("A" & Rows.Count).End(xlUp).Row
For L = FinLig To DebLig Step -1
Vdate = Range("H" & L).Value2
If Vdate = 2958101 Then
Rows(L).Delete
End If
Next
End Sub
A+
Maurice
Oui ou avec une macro
Sub EffaceLigne()
DebLig = 2
FinLig = Range("A" & Rows.Count).End(xlUp).Row
For L = FinLig To DebLig Step -1
Vdate = Range("H" & L).Value2
If Vdate = 2958101 Then
Rows(L).Delete
End If
Next
End Sub
A+
Maurice
Bonjour
mettre ton model sur
http://www.cjoint.com
et tu donne le lien
A+
Maurice
mettre ton model sur
http://www.cjoint.com
et tu donne le lien
A+
Maurice
Bonjour
Voila la modif
Sub SupLigne()
FinLig = Range("A" & Rows.Count).End(xlUp).Row
DebLig = 1
For L = FinLig To DebLig Step -1
If Range("G" & L).Value = "01/01/9999 00:00:00" Then
Rows(L).Delete
End If
Next
End Sub
A+
Maurice
Voila la modif
Sub SupLigne()
FinLig = Range("A" & Rows.Count).End(xlUp).Row
DebLig = 1
For L = FinLig To DebLig Step -1
If Range("G" & L).Value = "01/01/9999 00:00:00" Then
Rows(L).Delete
End If
Next
End Sub
A+
Maurice
18 sept. 2013 à 12:21
Merci pour ta solution