Rechercher
Se connecter avec
S'enregistrer | Connectez-vous

supprimer les lignes en fonction de la valeur d'une cellule

Dernière réponse : dans Programmation
Partagez

Bonjour a tous !
Je suis en train de mettre en place un système pour du covoiturage un peu dans l'esprit de covoiturage.com mais au sein d'une entreprise. Le but étant que les personnes qui ont une voiture et qui veulent bien amener des gens au travail s'inscrivent. J'ai plusieurs problèmes mais je vais commencé par le plus important.
J'ai une gfeuille ("liste de passagers") sur laquelle tous les passagers sont référencés. J'ai fait une autre feuille intitulée ("recherchepassager"). J'ai une case intitulée CP ("D16"). Le but est de copier la liste de passagers sur la feuille "recherchepassager" puis de supprimer les lignes pour lesquelles le CP (colonne E) ne correspond pas à la case intitulée CP.
Le problème est que mon code ne fonctionne que si je met une valeur précise dans mon code alors que je veux que l'on compare à chaque fois en fonction de la valeur entrée en "D16". ex de ec que j'ai et qui marche: 

  1. Sub recherchepassager()
    

  2. '
    

  3. ' recherchepassager Macro
    

  4.     Sheets("liste des passagers").Select
    

  5.     Range("B2:BS308").Select
    

  6.     Selection.Copy
    

  7.     Sheets("Recherchepassager").Select
    

  8.     Range("B30").Select
    

  9.     ActiveSheet.Paste
    

  10.     Range("B30:I30").Select
    

  11.     Selection.Interior.ColorIndex = 15
    

  12.     Range("E32").Select
    

  13. For i = 34 To 400
    

  14. If ActiveCell.Value > 69100 Or ActiveCell.Value < 69100 Then
    

  15. Selection.EntireRow.Delete
    

  16. Else
    

  17. ActiveCell.Offset(1, 0).Range("A1").Select
    

  18. End If
    

  19. Next i
    

  20. Range("B30").Select
    

  21. End Sub


En gros, à la place de 69100 je veux recherchepassager!"D16" mais visiblement ca ne fonctionne pas et je ne suis même pas sure qu'une telle action soit possible... Après des recherches toutes la journée, je ne trouve rien qui me décoince !!
alors si quelqu'un avait la générosité de m'aider...
Avis à bon entendeur...
Merci d'avance !

Autres pages sur : supprimer lignes fonction valeur cellule

Lassé par la pub ? Créez un compte

Toutes mes excuses ! comme quoi la nuit porte conseil... J'ai trouvé toute seule comme une grande...
j'ai fait :
  1. Sub recherchepassager()
    

  2. '
    

  3. ' recherchepassager Macro
    

  4. ' Macro enregistrée le 17/07/2007 par POULAT
    

  5. '
    

  6.  
  7. '
    

  8.     Sheets("liste des passagers").Select
    

  9.     Range("B2:BS308").Select
    

  10.     Selection.Copy
    

  11.     Sheets("Recherchepassager").Select
    

  12.     Range("B30").Select
    

  13.     ActiveSheet.Paste
    

  14.     Range("B30:I30").Select
    

  15.     Selection.Interior.ColorIndex = 15
    

  16.     Range("E32").Select
    

  17. For i = 34 To 400
    

  18. If ActiveCell.Value > Range("D16").Value Or ActiveCell.Value < Range("D16") Then
    

  19. Selection.EntireRow.Delete
    

  20. Else
    

  21. ActiveCell.Offset(1, 0).Range("A1").Select
    

  22. End If
    

  23. Next i
    

  24. Range("B30").Select
    

  25. reponse = MsgBox("La recherche est terminée. Si le résultat n'est pas satisfaisant : veuillez relancer une recherche avec un critère différent.", vbOKOnly + vbInformation, "Information")
    

  26.  
  27. End Sub

Voila !

Ligne 18 :heink: 
If ActiveCell.Value > Range("D16" ).Value Or ActiveCell.Value < Range("D16" ) Then
En gros :a > b Ou a < b. Tu sais tu peux l'écrire a <> b ;) 

Ligne 21 :ouch: 
ActiveCell.Offset(1, 0).Range("A1" ).Select
Keskesékesa ? Pourquoi ce Range(A1) ?

Ligne 8 à 15 : Je hais les Select/Selection/ActiveTruc & autres Copy/Paste/CutCopyMode. (Oui, je sais, c'est l'enregistreur qui te l'a fait)

Ce morceau de code, revu et corrigé (à bien étudier, si tu veux)
  1. Sheets("liste des passagers").("B2:BS308").Copy Destination:=Sheets("Recherchepassager").Range("B30")    
  2. Sheets("Recherchepassager" ).Range("B30:I30" ).Interior.ColorIndex = 15
Et oui, c'est tout ;) 

------------------------

Ligne 17 à 23. Supprimer des lignes dans un tableau. (dans Excel en particulier, mais pour tout tableau en général et en tout langage)
Soit le tableau suivant :
1. AAAA
2. BBBB
3. CCCC
L'algorithme suivant est faux : 
  1. Pour i de 1 à 3
  2.     Si condition Alors Supprimer Ligne i
En effet, supposons que la condition nous fasse vouloir supprimer les lignes AAAA et BBBB.
Déroulons le code:
i=1. La condition est vrai. Supprimons la ligne 1 :
1. BBBB
2. CCCC

i=2. Et hop, première erreur, on vient de rater la ligne des BBBB !. Pour CCCC la condition n'est pas remplie.
i=3. Et hop, encore une erreur, il n'y a plus de ligne 3. Erreur ! (Pas d'erreur sous excel, le tableau fait toujours 65536 lignes)

La solution : Partir du bas du tableau et remonter
  1. Pour i de 3 à 1
  2.     Si condition Alors Supprimer Ligne i


Traduit en VB :
  1. For i = 400 To 34 Step -1
  2.     If Range("E" & i).Value <> Range("D16" ).Value Then Rows(i).Delete
  3. Next i


------------------------

Proposition finale.
Tu peux te l'approprier complètement juste en comprenant tout ce code :) 

  1. Sub recherchepassager()
  2.     ' (c) aud1885 (+ un peu de PPC)
  3.  
  4.     Sheets("liste des passagers").("B2:BS308").Copy Destination:=Sheets("Recherchepassager").Range("B30").    
  5.     Sheets("Recherchepassager").Range("B30:I30").Interior.ColorIndex = 15
  6.  
  7.     For i = 400 To 34
  8.         If Sheets("Recherchepassager").Range("E" & i).Value <> Sheets("Recherchepassager").Range("D16").Value Then Rows(i).Delete        
  9.     Next i
  10.  
  11.     reponse = MsgBox("La recherche est terminée. Si le résultat n'est pas satisfaisant, " & _
  12.                      "veuillez relancer une recherche avec un critère différent.", _
  13.                      vbOKOnly + vbInformation, "Information")
  14. End Sub

Bonjour ! Déja merci pour tes réponses !!
tu m'as dit de faire ca pour mon filtrage des lignes
Traduit en VB :


  1. For i = 400 To 34 Step -1
    

  2.     If Range("E" & i).Value <> Range("D16" ).Value Then Rows(i).Delete
    

  3. Next i


Maintenant je veux ajouter un filtrage dans cette même macro pour filtrer mes colonnes en fonction de la valeur de E17. (cest pour filtrer selon la date qui est en en tête des colonnes) Si je fais ca ca ne marche pas ... Sais tu où se trouve l'erreur?

  1. For n = k To bv
    

  2.     If Range("33" & n).Value <> Range("E17").Value Then Columns(n).Delete
    

  3. Next n

Salut aud1885,

A mon avis c'est ton test qui est faux. Vu que tu parcours les colonnes il est plus difficile d'utiliser Range.

Si on prends ton test dans un cas concret, par exemple n = 3 ca donne 
  1. If Range("333").value

Donc tu devrais voir l'erreur, dans ce cas précis je te conseille de jeter un coup d'oeil à Cells.
Lassé par la pub ? Créez un compte
 
Posez votre question