Excel - Une macro pour supprimer une ligne sous condition

Les macros peuvent être utilisées pour diverses opérations sur des feuilles de calcul Excel, telles que la suppression de lignes satisfaisant une condition donnée. Bien que cela ne soit pas nécessaire, certaines connaissances des concepts de programmation et des boucles for peuvent s'avérer utiles pour écrire une macro dans Excel. Les macros dans Excel permettant de supprimer des lignes répondant à certaines conditions peuvent être écrites de toutes pièces ou développées à partir d'un code de macros librement disponible. Les macros sont une fonctionnalité très utile et peuvent être utilisées pour effectuer des manipulations de données sur des feuilles de calcul Excel avec un grand nombre d'enregistrements. Les macros dans Excel automatisent le processus, ce qui rend la tâche rapide et sans erreur.

Problème

J'ai besoin d'une macro pour supprimer des lignes lorsqu'aucune des cellules de la ligne ne contient l'un des deux nombres " 103526 " ou " 103527 "

Le nombre de lignes est variable (max 150) et le nombre de colonnes également (max 100).

Toute aide est appréciée.

Solution

Votre condition est déroutante pour moi. Je le reformule.

Si une ligne contient 103526 ou 102527 ou les deux, ne supprimez pas.

Si aucun des deux nombres n'est dans une rangée, supprimez.

Maintenant que vous supprimez les lignes, conservez une copie des données de sheet1 à sheet2 afin de pouvoir les copier en cas de problème.

Les données sont dans les feuilles 1, essayez cette macro:

 Sub test () Dim j As Entier, k As Integer Dim r As Range, cfind6 As Range, cfind7 As Range Feuilles ("sheet1"). Activer sur erreur Reprendre suivant j = Cells (Rows.Count, "A"). End (xlUp) .Row Pour k = j To 1 Étape -1 Définissez cfind6 = Rows (k) .Cells.Find (what: = 103526, lookat: = xlWhole) Définissez cfind7 = Rows (k) .Cells.Find (what: = 103527, lookat: = xlWhole) Si cfind6 n’est rien et cfind7 n’est alors rien Rows (k) .Supprimer suivant