[vba] Suppression de lig suivant val cellule
Résolu
tompols
Messages postés
1273
Date d'inscription
Statut
Contributeur
Dernière intervention
-
tompols Messages postés 1273 Date d'inscription Statut Contributeur Dernière intervention -
tompols Messages postés 1273 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
Je suis en train de créer une macro et j'ai le pb suivant :
- J'importe un fichier txt
- Je le remet en forme (jusque là pas de pb)
- je souhaite que lorsque qu'excel rencontre une valeur non numérique ou nulle dans une cellule des colonnes A à D, il supprime la ligne correspondante (les cellules sont en format texte et certaines sont fusionnées) => là, je bloque....
Voilà ce que j'ai apres premiere mise en forme (qqes explemples de lignes):
1300 130 780
1300 130 B
1300 130 330
1300 130 410
1300 130 411 11.484,00
1300 130 411 937,25
1300 130 411 -766,39
Co Account Number Balance
60.000,00
Current
Dans cet exemple, je souhaiterais que les 4 premieres et 3 dernieres lignes soit supprimées....
Merci de votre aide,
Tom
Je suis en train de créer une macro et j'ai le pb suivant :
- J'importe un fichier txt
- Je le remet en forme (jusque là pas de pb)
- je souhaite que lorsque qu'excel rencontre une valeur non numérique ou nulle dans une cellule des colonnes A à D, il supprime la ligne correspondante (les cellules sont en format texte et certaines sont fusionnées) => là, je bloque....
Voilà ce que j'ai apres premiere mise en forme (qqes explemples de lignes):
1300 130 780
1300 130 B
1300 130 330
1300 130 410
1300 130 411 11.484,00
1300 130 411 937,25
1300 130 411 -766,39
Co Account Number Balance
60.000,00
Current
Dans cet exemple, je souhaiterais que les 4 premieres et 3 dernieres lignes soit supprimées....
Merci de votre aide,
Tom
A voir également:
- [vba] Suppression de lig suivant val cellule
- Forcer suppression fichier - Guide
- Excel compter cellule couleur sans vba - Guide
- Excel cellule couleur si condition texte - Guide
- Suivi de modification word - Guide
- Proteger cellule excel - Guide
1 réponse
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+
