Macro suppresion de lignes sous condition
Fermé
arcasavoir
-
14 mai 2013 à 19:22
Mike-31 Messages postés 18188 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 13 mars 2023 - 14 mai 2013 à 20:27
Mike-31 Messages postés 18188 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 13 mars 2023 - 14 mai 2013 à 20:27
A voir également:
- Macro suppresion de lignes sous condition
- Macro logiciel - Télécharger - Organisation
- Colorer cellule excel sous condition - Guide
- Macro recorder - Télécharger - Confidentialité
- Macro Recorder - Télécharger - Divers Utilitaires
- Macro word - Guide
2 réponses
f894009
Messages postés
16905
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
20 mars 2023
1 680
14 mai 2013 à 19:55
14 mai 2013 à 19:55
Bonjour,
Adaptez le nom de feuille et la colonne, code a mettre dans un module
Bonne suite
Adaptez le nom de feuille et la colonne, code a mettre dans un module
Sub test()
With Worksheets("feuil1")
'ligne derniere cellule non vide feuille1,colonne A
derlig = .Range("A" & Rows.Count).End(xlUp).Row
For x = derlig To 1 Step -1
'test en majuscule pour eviter difference d'ecriture
If UCase(.Range("A" & x)) = "HOMME" Then
'supprime les lignes
'Rows(x).Delete
'efface le contenu des lignes
Rows(x).Clear
End If
Next x
End With
End Sub
Bonne suite
Mike-31
Messages postés
18188
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
13 mars 2023
5 040
Modifié par Mike-31 le 14/05/2013 à 20:28
Modifié par Mike-31 le 14/05/2013 à 20:28
Salut,
tu ne donnes pas trop d'explications sur la structure de ton projet, en supposant que la colonne à traiter est la colonne B et commence en B2 et les lignes à supprimer contiennent en colonne B le mot homme
Option Explicit
Sub test()
Dim I As Integer
Application.ScreenUpdating = False
For I = Range("B" & Rows.Count).End(xlUp).Row To 2 Step -1
If Range("B" & I).Value Like "homme" Then Rows(I).Delete
Next I
Application.ScreenUpdating = True
End Sub
A+
Mike-31
Une période d'échec est un moment rêvé pour semer les graines du savoir.
tu ne donnes pas trop d'explications sur la structure de ton projet, en supposant que la colonne à traiter est la colonne B et commence en B2 et les lignes à supprimer contiennent en colonne B le mot homme
Option Explicit
Sub test()
Dim I As Integer
Application.ScreenUpdating = False
For I = Range("B" & Rows.Count).End(xlUp).Row To 2 Step -1
If Range("B" & I).Value Like "homme" Then Rows(I).Delete
Next I
Application.ScreenUpdating = True
End Sub
A+
Mike-31
Une période d'échec est un moment rêvé pour semer les graines du savoir.