Fonction si vba excel

Résolu
sonyz' Messages postés 3 Statut Membre -  
Polux31 Messages postés 7219 Statut Membre -
Bonjour,

je suis en train de créer une macro sur excel mais je suis novice en la matière. j'ai réussi à programmer une partie de la macro mais là j'ai un souci...

j'ai un tableau excel contenant des numéros de cptes en colonne A, plage (A2:A400), les premières cellules sont celles dont le numero de compte est inferieur à 611000, j'ai besoin de les supprimer.
Mais les plages sont variables c'est à dire que je peux avoir la plage (A2:A200) pr le mois de sept et la plage (A2:A260) pr le mois qui suit.

j'ai utilisé la fonction if comme suit

if range ("a2").value<611000 then
Rows("2").Select
Selection.Delete Shift:=xlUp
end if

mais en exécutant la macro, elle ne supprime qu'une fois la ligne 2, les reste des lignes ne sont pas supprimées.
comment faire pr programmer de manière à ce que la macro vérifie à chaque fois la cellule A2 et supprime la ligne si valeur A2<611000

merci de m'aider.
Configuration: Windows XP Internet Explorer 6.0

2 réponses

  1. Polux31 Messages postés 7219 Statut Membre 1 204
     
    Bonjour,

    Peut être en faisant comme ça:

    Dim lig As Long
    
    lig = 2
    While Range("A" & lig).Value <> ""
       If Range("A" & lig).Value < 611000 then
           Rows(lig).Delete
           lig = lig - 1
       End If
    lig = lig + 1
    Wend


    ;o)
    0
    1. sonyz' Messages postés 3 Statut Membre
       
      Ohhhh, merci beaucoup, ça marche très bien!!!!!

      :-)))
      0
  2. Polux31 Messages postés 7219 Statut Membre 1 204
     
    De rien,

    Merci de mettre en "résolu".

    Bonne continuation
    0