High-Tech Santé Médecine Droit-Finances

Auto-Entrepreneur

Comment faire ?

Rechercher : dans
Par :

[VB Excel] Suppression de ligne sur critère

Dernière réponse le 11 mai 2009 à 16:52:47 Lalence, le 12 mar 2007 à 17:21:12 
 Signaler ce message aux modérateurs

Bonjour,
Je souhaiterais intégrer une fonction de tri/extraction dans une macro Excel :
. le programme irait tester la valeur d'une cellule
. si cette valeur est différente de celle souhaitée, la ligne est supprimée
Comment pourrai-je faire pour programmer une boucle itérative de la ligne x à la ligne y ?

D'avance un grand merci !

Laz

Configuration: Windows XP
Internet Explorer 6.0

Posez votre question Répondre

1

Kobaya, le 12 mar 2007 à 23:46:43
  • +1

Bonjour lalence,

je te propose non pas une fonction, mais une procédure : 

Public Sub KillLigne(Valeur As String, Colonne As Integer, FirstLine As Long, LastLine As Long)
     ' Valeur      : valeur à comparer au contenu de la cellule
     ' Colonne    : colonne où se trouve la valeur à vérifier
     ' FirstLine  : première ligne à vérifier
     ' LastLine   : dernière ligne à vérifier
   
     Dim lngL As Long
     
     Application.ScreenUpdate = False
     Application.DisplayAlerts = False
     For lngL = LastLine To FirstLine Step -1
          If Cells(lngL, Colonne).Value <> Valeur Then
               Rows(lngL).Delete Shift:=xlShiftUp
          End If
     Next lngL
     Application.DisplayAlerts = True
     Application.ScreenUpdate = True
End Sub

je ne l'ai pas testé, vu que je n'ai plus Excel (je suis passé à OpenOffice), mais ça devrait marcher, et en tout cas, te donner des pistes pour faire la fonction/procédure dont tu as besoin. A+,
Kobaya.

   
Répondre à Kobaya

3

 derout, le 11 mai 2009 à 16:52:47
  • +1

Bonjour Kobaya,

Je désirerai créer une macro relativement similaire qui supprimerait la ligne si celle-ci comporte une cellule dans laquelle il est écrit "mauvais"

Voici mon fichier:

http://cjoint.com/?fngEtEKFMi


Voici comment j'ai addapté la macro que tu as proposé à lalence:

Public Sub KillLigne(Valeur As String, Colonne As Integer, FirstLine As Long, LastLine As Long)
Dim lngL As Long

Application.ScreenUpdate = False
Application.DisplayAlerts = False
For lngL = LastLine To FirstLine Step -1
If Cells(2, 7).Value = mauvais Then
Rows(lngL).Delete Shift:=xlShiftUp
End If
Next lngL
Application.DisplayAlerts = True
Application.ScreenUpdate = True
End Sub

J'ai dû omettre quelque chose car la macro n'est pas reconnue.

Si tu vois où se trouve l'erreur, je te serai reconnaissant de me le préciser.

merci par avance,


Derout

   
Répondre à derout

2

Funkycops, le 31 jan 2008 à 15:15:05

Bonjour,
Je debute (depuis 1h) en VB. mais j'aimerais faire la meme operation mais sur des colonne.
A savoir un total en bas de colonne et si la somme est egale a 0, supprimer la colonne.

Merci par avance

   
Répondre à Funkycops
Posez votre question Répondre
Ils ont besoin de votre aide