[vba] Suppression de lig suivant val cellule
Résolu/Fermé
tompols
Messages postés
1273
Date d'inscription
jeudi 29 juillet 2004
Statut
Contributeur
Dernière intervention
25 novembre 2013
-
2 mars 2005 à 15:40
tompols Messages postés 1273 Date d'inscription jeudi 29 juillet 2004 Statut Contributeur Dernière intervention 25 novembre 2013 - 2 mars 2005 à 18:59
tompols Messages postés 1273 Date d'inscription jeudi 29 juillet 2004 Statut Contributeur Dernière intervention 25 novembre 2013 - 2 mars 2005 à 18:59
A voir également:
- [vba] Suppression de lig suivant val cellule
- Forcer suppression fichier - Guide
- Excel compter cellule couleur sans vba - Guide
- Aller à la ligne dans une cellule excel - Guide
- Verrouiller cellule excel - Guide
- Excel cellule couleur si condition texte - Guide
1 réponse
tompols
Messages postés
1273
Date d'inscription
jeudi 29 juillet 2004
Statut
Contributeur
Dernière intervention
25 novembre 2013
435
2 mars 2005 à 18:59
2 mars 2005 à 18:59
Ok, Probleme résolu....
Voilà le code si ça peut intéresser qq1 :
Public Sub vev()
Dim laligne As Integer
Dim i As Integer
Dim j As Integer
Application.ScreenUpdating = False
laligne = Range("d65536").End(xlUp).Row
For i = laligne To 1 Step -1
For j = 1 To 4
If Not IsNumeric(Cells(i, j)) Or IsEmpty(Cells(i, j)) Then
Rows(i).delete: Exit For
End If
Next j
Next i
Application.ScreenUpdating = True
End Sub
A+
Voilà le code si ça peut intéresser qq1 :
Public Sub vev()
Dim laligne As Integer
Dim i As Integer
Dim j As Integer
Application.ScreenUpdating = False
laligne = Range("d65536").End(xlUp).Row
For i = laligne To 1 Step -1
For j = 1 To 4
If Not IsNumeric(Cells(i, j)) Or IsEmpty(Cells(i, j)) Then
Rows(i).delete: Exit For
End If
Next j
Next i
Application.ScreenUpdating = True
End Sub
A+