Pb de macro sous excel
Fermé
neric29
-
29 janv. 2011 à 18:46
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 15 mars 2023 - 29 janv. 2011 à 18:59
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 15 mars 2023 - 29 janv. 2011 à 18:59
A voir également:
- Pb de macro sous excel
- Liste déroulante excel - Guide
- Formule excel - Guide
- Déplacer une colonne excel - Guide
- Convertir chiffre en lettre excel sans macro ✓ - Forum Excel
- Aller à la ligne excel - Guide
2 réponses
Patrice33740
Messages postés
8556
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
2 mars 2023
1 762
29 janv. 2011 à 18:53
29 janv. 2011 à 18:53
Bonjour
Si le "tableau" ne contient pas de lignes vides, simple filtre devrait suffire.
Trier et Filtre / Filtrer
Puis sur le titre de la 1ère colonne :
Filtre textuel / Contient
Sélectionner toutes les ligne filtrées et les supprimer.
Enlever le filtre (Trier et Filtre / décocher Filtrer)
Si le "tableau" ne contient pas de lignes vides, simple filtre devrait suffire.
Trier et Filtre / Filtrer
Puis sur le titre de la 1ère colonne :
Filtre textuel / Contient
Sélectionner toutes les ligne filtrées et les supprimer.
Enlever le filtre (Trier et Filtre / décocher Filtrer)
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
15 mars 2023
2 712
29 janv. 2011 à 18:59
29 janv. 2011 à 18:59
Bonjour,
Tout d'abord, cette macro comportant un .delete, je vous recommande fortement et très vivement de la tester sur une copie de votre fichier. Ne venez pas vous plaindre que tout est effacé, j'ai tout perdu...
Code à insérer dans un module standard.
Je me répète, mais testez d'abord sur une copie. Le contenu de la cellule colonne A doit être rigoureusement HD_BST pour ne pas être effacé...
Tout d'abord, cette macro comportant un .delete, je vous recommande fortement et très vivement de la tester sur une copie de votre fichier. Ne venez pas vous plaindre que tout est effacé, j'ai tout perdu...
Sub Efface()
Dim Ligne As Long, DernLigne As Long
DernLigne = Range("A65536").End(xlUp).Row
For Ligne = DernLigne To 2 Step - 1
If Cells(Ligne, 1).Value <> "HD_BST" Then
Cells(Ligne, 1).EntireRow.Delete
End If
Next Ligne
End Sub
Code à insérer dans un module standard.
Je me répète, mais testez d'abord sur une copie. Le contenu de la cellule colonne A doit être rigoureusement HD_BST pour ne pas être effacé...