Recherche v, vba suppression de ligne
linoa
-
lermite222 Messages postés 8724 Date d'inscription Statut Contributeur Dernière intervention -
lermite222 Messages postés 8724 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
Je suis débutante en VBA, et je voudrais réaliser une macro qui recherche dans ma colonne G les cellule contenant erreur et qui me supprime les lignes.
je vous remercie de vos réponses
Linoa
Je suis débutante en VBA, et je voudrais réaliser une macro qui recherche dans ma colonne G les cellule contenant erreur et qui me supprime les lignes.
je vous remercie de vos réponses
Linoa
A voir également:
- Recherche v, vba suppression de ligne
- Forcer suppression fichier - Guide
- Partage de photos en ligne - Guide
- Recherche automatique des chaînes ne fonctionne pas - Guide
- Hyper-v download - Télécharger - Divers Utilitaires
- Mètre en ligne - Guide
2 réponses
Bonjour,
Voici le code
Dim i, j As Integer
i = ActiveSheet.UsedRange.Rows.Count
For j = 2 To i
If Range("g" & j) = "erreur" Then
Rows(j & ":" & j).Select
Selection.Delete Shift:=xlUp
End If
Next j
End Sub
Pub supprimée Modération CCM
Voici le code
Dim i, j As Integer
i = ActiveSheet.UsedRange.Rows.Count
For j = 2 To i
If Range("g" & j) = "erreur" Then
Rows(j & ":" & j).Select
Selection.Delete Shift:=xlUp
End If
Next j
End Sub
Pub supprimée Modération CCM
Bonjour,
Attention.. Si Erreur est le résultat d'une formule tu ne pourras pas détecter "Erreur"
Faudrait plutôt faire...
A+
Attention.. Si Erreur est le résultat d'une formule tu ne pourras pas détecter "Erreur"
Faudrait plutôt faire...
Sub TesteColG()
Dim Lig As Long, DerLig As Long
DerLig = Range("G65535").End(xlUp).Row
For Lig = DerLig To 1 Step -1
If IsError(Cells(Lig, "G")) Then
Rows(Lig).Delete
End If
Next Lig
End Sub
A+