Discussion :

[ons1402]

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

[redstoff]

Bonjour,

Petites lignes rapides pour lancer le sujet

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[bifconsult]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[redstoff]

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

j'ai mal lu ^^

[jfontaine]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ons1402]

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

[jfontaine]

Quelle ligne génère l'erreur

[ons1402]

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

[ons1402]

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