× Aidez la recherche contre le COVID-19 avec votre ordi ! Rejoignez l'équipe PC Astuces Folding@home
 > Tous les forums > Forum Bureautique
 Macro excel Suppression de ligneSujet résolu
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
nbenhamo
  Posté le 28/09/2011 @ 14:54 
Aller en bas de la page 
Nouvel astucien

Bonjour et d'avance merci

Un ami ma créer une macro pour supprimer des lignes celle ci fonction trés bien si fichier utilisé ne comporte pas de #N/A

Voici pour mieux comprendre un bout de fichier et la macro.

En fait je veux supprimer les lignes qui ont "OUI" en colonne 8. En sachant que le #N/A est issu d'un traitement et je n'ai pas la possibilité de modifier cette information.

Sub test()
Const LigneDebut = 1
Const LigneFin = 1000
Const ColonneClient = 1
Const ColonneNbColis = 8
For I = LigneFin To LigneDebut Step -1
If Cells(I, 8) = "OUI" Then
Rows(I & ":" & I).Delete Shift:=xlUp
End If
Next I
End Sub

1 02/01/1900 3 A 7,00 P 8 OUI 2 03/01/1900 4 A 8,00 P 9 non 3 04/01/1900 5 A 9,00 P 10 non 4 05/01/1900 6 A 10,00 P 11 non 5 06/01/1900 7 A 11,00 P 12 non 6 07/01/1900 8 A 12,00 P 13 non 7 08/01/1900 9 A 13,00 P 14 non 8 09/01/1900 10 A 14,00 P 15 oui 9 10/01/1900 11 A 15,00 P 16 non 10 11/01/1900 12 A 16,00 P 17 non 11 12/01/1900 13 A 17,00 P 18 non 12 13/01/1900 14 A 18,00 P 19 non 13 14/01/1900 15 A 19,00 P 20 non 14 15/01/1900 16 A 20,00 P 21 non 15 16/01/1900 17 A 21,00 P 22 non 16 17/01/1900 18 A 22,00 P 23 oui 17 18/01/1900 19 A 23,00 P 24 non 18 19/01/1900 20 A 24,00 P 25 non 19 20/01/1900 21 A 25,00 P 26 non 20 21/01/1900 22 A 26,00 P 27 non 21 22/01/1900 23 A 27,00 P 28 non 22 23/01/1900 24 A 28,00 P 29 non 23 24/01/1900 25 A 29,00 P 30 non 24 25/01/1900 26 A 30,00 P 31 non 25 26/01/1900 27 A 31,00 P 32 non 26 27/01/1900 28 A 32,00 P 33 non 27 28/01/1900 29 A 33,00 P 34 non 28 29/01/1900 30 A 34,00 P 35 non 29 30/01/1900 31 A 35,00 P 36 non 30 31/01/1900 32 A 36,00 P 37 #N/A 31 01/02/1900 33 A 37,00 P 38 #N/A 32 02/02/1900 34 A 38,00 P 39 #N/A 33 03/02/1900 35 A 39,00 P 40 #N/A
Publicité
pupuce911
 Posté le 28/09/2011 à 15:25 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Nouvelle astucienne

Bonjour,

Je te conseille de rajouter cette ligne qui vérifie d'abord s'il n'y a pas d'erreur dans la cellule. Sans oublier le End If à la fin. Je ne sais pas si c'est la meilleure méthode.

For I = LigneFin To LigneDebut Step -1

If IsError (Cells(I, 8).Value) = False Then

If Cells(I, 8) = "OUI" Then
Rows(I & ":" & I).Delete Shift:=xlUp
End If

End If

Next I

nbenhamo
 Posté le 28/09/2011 à 16:20 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Nouvel astucien

pupuce,

pour ma part ta méthode et la meilleure, je te remercie vivement de ta promptitude et de ton efficacité maintenant la macro fonctionne.

Merci

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour poster des messages. Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !


Les bons plans du moment PC Astuces

Tous les Bons Plans
20,99 €Micro clé USB 3.1 Sandisk Ultra Fit 128 Go à 20,99 €
Valable jusqu'au 18 Juillet

Amazon fait une promotion sur la micro clé USB Sandisk Ultra Fit d'une capacité de 128 Go qui passe à 20,99 €. La minuscule taille de cette clé USB va vous permettre de la laisser brancher en permanence sur votre portable, votre TV ou votre autoradio sans qu'elle dépasse de manière disgracieuse. Sa compatibilité USB 3.1 lui permet d'atteindre des débits jusqu'à 130 Mo/s. 


> Voir l'offre
59,90 €Kit de 16 Go (2 x 8 Go) de mémoire DDR4 Crucial Ballistix Sport LT 3000 MHz à 59,90 €
Valable jusqu'au 17 Juillet

Amazon fait une promotion sur le kit de 16 Go (2x8 Go) de mémoire DDR4 Crucial Ballistix Sport LT 3000 MT/s CL16 qui passe à 59,99 € livré gratuitement.


> Voir l'offre
GratuitJeu PC Lifeless Planet: Premier Edition gratuit
Valable jusqu'au 16 Juillet

Epic Game Store offre actuellement le jeu PC  Lifeless Planet: Premier Edition. À la recherche de vie sur une planète lointaine, un astronaute découvre une ville russe à l'abandon. Il suspecte que sa mission ne soit qu'une supercherie jusqu'à ce qu'une mystérieuse jeune femme ne le sauve d'un phénomène étrange et mortel... PEGI 12. Jeu en anglais sous titré français.


> Voir l'offre

Sujets relatifs
Macro - Insérer une ligne vierge sous Excel 2007
Macro Excel : Sommes dans première ligne libre
Macro excel: position automatique de ligne
Excel 2003 : macro pour supprimer une ligne
VBA excel macro suppression de lignes
excel recuperation d'une info suppression ligne
2 pages par feuille dans macro excel
[VBA+suppression conditionnelle de ligne]
Creation d' une boucle macro dans fichier EXCEL pour impression
Excel 2007, insertion ligne vierge en automatique
Plus de sujets relatifs à Macro excel Suppression de ligne
 > Tous les forums > Forum Bureautique