Fonction si vba excel

Résolu/Fermé
sonyz' Messages postés 3 Date d'inscription mercredi 11 novembre 2009 Statut Membre Dernière intervention 12 novembre 2009 - 12 nov. 2009 à 10:26
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 - 12 nov. 2009 à 15:06
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.
A voir également:

2 réponses

Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
12 nov. 2009 à 10:35
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
sonyz' Messages postés 3 Date d'inscription mercredi 11 novembre 2009 Statut Membre Dernière intervention 12 novembre 2009
12 nov. 2009 à 12:27
Ohhhh, merci beaucoup, ça marche très bien!!!!!

:-)))
0
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
12 nov. 2009 à 15:06
De rien,

Merci de mettre en "résolu".

Bonne continuation
0