faire une boucle sous vba avec condition

bonjour,
je ne suis pas spécialiste en VBA mais j'ai absolument besoin de créer un langage qui permettra de résoudre mon pb.

j'ai une liste de banques . chaque banque devrait avoir des variables pour les années 2002,2003,2004,2005 et 2006. Si une banque a des données manquantes relatives au moins à une des années, alors toutes les lignes relatives à cette banques sont supprimés.

Finalement, je ne veux conserver dans ma base que les banques qui présentent des données sur toutes les années 2002 jusqu'au 2006.
ci joint le fichier pour que ca soit plus clair.

et merci d'avance

Bonjour,

Petites lignes rapides pour lancer le sujet

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub test() For ligne = 1 To Range("a1").End(xlDown).row For colonne = 4 To Range("a1").End(xltoRight).Column If Cells(ligne, colonne) = 0 Then Rows(ligne).Delete Exit For End If Next colonne Next ligne End Sub

---

Bonjour,

Voici un code qui fonctionne. Il y a probablement plus académique, mais il tourne.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

Sub del_bank()   Lr = Cells(Cells.Rows.Count, 1).End(xlUp).Row     For I = Lr To 2 Step -1   a = 0 Cells(I, 1).Select Do While ActiveCell.Value = ActiveCell.Offset(-1, 0).Value a = a + 1 ActiveCell.Offset(-1, 0).Select Loop   If WorksheetFunction.CountIf(Range(Cells(I, 4), Cells(I - a, 10)), 0) > 0 Then   Range(Rows(I), Rows(I - a)).Delete   I = I - a   End If   Next I     End Sub

---

PS: je te rejoins ton ficher avec la macro

Re,

Juste une info : il me semble que le code précédent efface les lignes contenant un nombre nul (sauf erreur de ma part) ?

J'avais compris qu'il fallait créer un code dans lequel TOUTES les lignes de la banque, si une des lignes de cette banque contient une valeur nulle, doivent être supprimées. Ce que fais mon code.

Donc, choisissez celui qui vous convient :)

oui tu as raison si une banque à une valeur à 0 on doit tout supprimer.

j'ai mal lu ^^

Bonjour,

Une autre approche avec utilisation d'un dictionnaire et en considérant que l'on trouvera 1 ligne par année.
On supprime les ID que l'on trouve moins de 5 fois

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

Dim i As Long Dim Dic As Object Dim Sh As Worksheet Dim dicItem     Set Sh = Worksheets("Feuil1") Set Dic = CreateObject("Scripting.Dictionary")   'Ajoute les ID dans le dictionnaire For i = 2 To Sh.Range("A" & Rows.Count).End(xlUp).Row If Not Dic.Exists(Sh.Range("A" & i).Value) Then Dic.Add Sh.Range("A" & i).Value, Application.WorksheetFunction.CountIf(Sh.Range("A:A"), Sh.Range("A" & i).Value) End If Next i   'Traitement des Id For Each dicItem In Dic.Keys If Dic(dicItem) < 5 Then For i = Sh.Range("A" & Rows.Count).End(xlUp).Row To 1 Step -1 If Sh.Range("A" & i).Value = dicItem Then Sh.Rows(i).Delete Next i End If Next

---

L'approche avec utilisation d'un dictionnaire a bien fonctionné, merci bien jérome et merci pour tous les intervenants pour votre réactivité et réponses assez précises.
juste une remarque, je me suis peut étre mal exprimée, l'objectif n'était pas de supprimer les lignes relatives aux banques qui affichaient la valeur 0. Mais plutot les banques qui ne disposent pas des infos sur toutes les années (2002 jusqu'à 2006).

en tout cas, je vous remercie tous et trés bonne continuation,

le code a marché pour le fichier que je vous ai envoyé mais non, sur mon fichier de base :( on m'affiche l'erreur "l'indice n'appartient pas à la sélection". Pourriez vous me voir ca s'il vous plait?
Je n'arrivais pas à joindre mon fichier de base, c'est trés volumineux mais , à titre d'information, il comporte 9190 id de banques.


Merciiiiiii

Quelle ligne génère l'erreur

on m'affiche
erreur d'exécution '9': l'indice n'appartient pas à la sélection.

sinon comment pourrais je identifier la ligne qui génére cette erreur?


thx

juste pour vous annoncer que ça marché à merveille. C'était pb d'innattention de ma part. (sheet1 au lieu de feuil1):)

thank you very much:)