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
Bonjour,
J'ai besoin d'un peu d'aide.
J'ai beau chercher je ne trouve pas la solution a mon probleme.

voila j'ai un tableau excel dans le quel seulement certaines ligne n'interresse.
du coup j'aimerai avoir une macro qui me permet de supprimer toutes les lignes qui n'ont pas HD_BST dans la premiere colonne.
C'est un tableau qui est generé automatiquement.

merci beaucoup de votre aide


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
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)
1
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
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...
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é...
0