Bonjour,
Pour une petite association j’édite la liste des membres sous forme d’un fichier Excel ; certains membres demandent à ne pas figurer dans ce fichier.
Sur la première feuille du classeur (Feuil1), les coordonnées de chaque membre sont sur une ligne et la première cellule de la ligne contient le numéro du membre.
Sur la seconde feuille du classeur (Feuil2), j’ai pensé placer les numéros des membres à retirer et faire un test pour supprimer les lignes correspondantes de la feuille1. J’ai essayé pour un numéro, en mettant en B5 le n° à retirer, ça marche bien ; voilà le code :
Sheets("Feuil1").Select
nblignes = Cells.SpecialCells(xlCellTypeLastCell).Row
For N = nblignes To 2 Step -1
If Range("A" & N).Value = Sheets("Feuil2").Range("B5").Value Then
Rows(N).Select
Selection.Delete Shift:=xlUp
End If
Next
Mais le nombre de numéros à retirer peut varier ; comment entrer les numéros à retirer sur la feuille2 et les tester automatiquement quel que soit leur nombre ?
Merci de votre aide
Pour une petite association j’édite la liste des membres sous forme d’un fichier Excel ; certains membres demandent à ne pas figurer dans ce fichier.
Sur la première feuille du classeur (Feuil1), les coordonnées de chaque membre sont sur une ligne et la première cellule de la ligne contient le numéro du membre.
Sur la seconde feuille du classeur (Feuil2), j’ai pensé placer les numéros des membres à retirer et faire un test pour supprimer les lignes correspondantes de la feuille1. J’ai essayé pour un numéro, en mettant en B5 le n° à retirer, ça marche bien ; voilà le code :
Sheets("Feuil1").Select
nblignes = Cells.SpecialCells(xlCellTypeLastCell).Row
For N = nblignes To 2 Step -1
If Range("A" & N).Value = Sheets("Feuil2").Range("B5").Value Then
Rows(N).Select
Selection.Delete Shift:=xlUp
End If
Next
Mais le nombre de numéros à retirer peut varier ; comment entrer les numéros à retirer sur la feuille2 et les tester automatiquement quel que soit leur nombre ?
Merci de votre aide