MACRO Suppression de données

Version imprimable

06/01/2017, 23h13
Perlouchette

MACRO Suppression de données

Bonjour,

Je ne maitrise pas la création de macros, même si je réussi plutôt bien à comprendre le fonctionnement des macros qui ont été déjà créées et je bloque sur un cas.

Je souhaite créer une macro qui permettrait qu'elle interroge en colonne A d'une feuille 1 une liste de numéros. Si elle ne détecte pas le numéro en colonne A de la feuille 2 alors elle supprime les lignes complètes des numéros non retrouvés dans la feuille 1, si le numéro est trouvé, on conserve la ligne.

J'espère avoir été assez explicite afin que vous puissiez m'apporter votre aide sans devoir joindre de fichier.

Cordialement
07/01/2017, 00h27
Philippe Tulliez
Bonjour,
Autrement dit, il s'agit de supprimer des lignes suivant condition.
La condition étant de matcher des numéros se trouvant dans une liste (ici en colonne A). Sujet fréquemment traité sur ce forum.

Une des solutions est l'utilisation du filtre avancé d'excel (en VBA la méthode AdvancedFilter) avec un critère calculé.
1. Si l'on souhaite supprimer toutes les lignes dont la référence se trouvant en colonne A de la feuille [Base_1] n'est pas présente dans la colonne A de la feuille nommée [Base_2]
  
  Code:
  
  =ESTNA(EQUIV(Base_1!A2;Base_2!$A$2:$A$29;0))
2. Si l'on souhaite supprimer toutes les lignes dont la référence se trouvant en colonne A de la feuille [Base_2] n'est pas présente dans la colonne A de la feuille nommée [Base_1]
  
  Code:
  
  =NON(ESTNA(EQUIV(Base_1!A2;Base_2!$A$2:$A$29;0)))
Les étapes à suivre
1. Sélectionner la plage de données de la feuille nommée [Base_1]
2. Faire un filtre sur place
3. Supprimer toutes les lignes visibles à l'exception de la première ligne de titre
4. Supprimer le filtre pour afficher les lignes non supprimée
L'enregistreur de macro est une excellente solution pour commencer.

A lire éventuellement Les filtres avancés ou élaborés dans Excel

Petite macro...

Bonjour,

à tenter...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub SuppLignes()
  Dim lNumL As Long
  Dim oCellF2 As Range
  Worksheets("F1").Activate
  For lNumL = Range("Base_1").Rows.Count + Range("Base_1").Range("A1").Row To Range("Base_1").Range("A1").Row Step -1
    For Each oCellF2 In Worksheets("F2").Range("Liste_Num_A_Supprimer")
      If Cells(lNumL, 1) = oCellF2 Then
        Range("A" & lNumL).EntireRow.Delete
      End If
 
    Next
  Next
End Sub

http://garbe.joel.free.fr