ne pas faire apparaitre les lignes avec totale=0

[dubois]

Bonjour,
si tu rajoute des colonnes, il te faudra modifier ce code

Code: Tout sélectionner

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Application.Intersect(Target, Range("d2:f" & _
        [c65000].End(xlUp).Row)) Is Nothing Then
        If Target.Count > 1 Then Exit Sub
        Call MasqueTotZéro
    End If
End Sub

cette partie: Range("d2:f"
Claude

[FRANCKIN]

Bonjour Claude

Je suis vraiment désolé de te solliciter de nouveau. Ta soluce fonctionne super bien, mais le souci c'est que le fichier que je t'ai envoyé, par souci d'allègement à été tronqué. Tout d'abord, après l'onglet base, j'ai 2 onglets (mode opératoire et acceuil) qu'il ne faut pas traiter, et en plus dans les autres onglets il y a une autre colonne avant la colonne A c'est à dire que dans le vrai fichier la colonne A devient B. J'ai essayé de faire des modifs, mais rien ni fait. Es qu'il y a une solution, ou est infaisable.

Merci d'avance pour ton aide

[dubois]

Bonjour à tous,

Pas de problème, remèdes:
1) pour les feuilles à ne pas traiter, tu les places en tête,
si 2 feuilles => 2+ Base = 3
la boucle macro commencera à traiter à partir de la feuille 4
remplacer:

Code: Tout sélectionner

For i = 2 To Worksheets.Count

par:

Code: Tout sélectionner

For i = 4 To Worksheets.Count

---------------------
2) toutes les feuilles doivent avoir le total dans la même colonne
sur mon fichier c'est "N"
arrange-toi pour cela et si tu as le total en colonne "O", remplace la macro par celle-ci:

Code: Tout sélectionner

Sub MasqueTotZéro() 'en partant de la feuille base
Dim i As Byte
Application.ScreenUpdating = False
    For i = 4 To Worksheets.Count
        With Worksheets(i)
            .Activate
            On Error Resume Next
                .ShowAllData
            On Error GoTo 0
            Cells(2, 15) = "=$o4<>0"
            Range("a3:o" & [a65000].End(xlUp).Row) _
            .AdvancedFilter Action:=xlFilterInPlace, _
            CriteriaRange:=Range("o1:o2"), Unique:=False
            Cells(2, 15).ClearContents
        End With
    Next
End Sub

Claude

[FRANCKIN]

Encore merci Claude. Je teste et te tiens au courant

Bonne fin de journée

[dubois]

re,

en relisant, je m'aperçois qu'une erreur s'est glissée dans la macro, je la remet corrigée

Code: Tout sélectionner

Sub MasqueTotZéro() 'en partant de la feuille base
Dim i As Byte
Application.ScreenUpdating = False
    For i = 4 To Worksheets.Count
        With Worksheets(i)
            .Activate
            On Error Resume Next
                .ShowAllData
            On Error GoTo 0
            Cells(2, 15) = "=$o4<>0"
            Range("a3:o" & [b65000].End(xlUp).Row) _
            .AdvancedFilter Action:=xlFilterInPlace, _
            CriteriaRange:=Range("o1:o2"), Unique:=False
            Cells(2, 15).ClearContents
        End With
    Next
End Sub

Bizarre ! l'aperçu ne reflète pas le code original, sur cette ligne: çà rajoute amp; devant [b65000]

Code: Tout sélectionner

Range("a3:o" & [b65000].End(xlUp).Row) _
.AdvancedFilter Action:=xlFilterInPlace, _
CriteriaRange:=Range("o1:o2"), Unique:=False

il faut donc effacer ce amp;
--------------------------
tu en profiteras pour remplacer aussi :

Code: Tout sélectionner

Sub AfficherTout()
Dim i As Byte
    For i = 4 To Worksheets.Count
        With Worksheets(i)
            On Error Resume Next
            .ShowAllData
            On Error GoTo 0
        End With
    Next
End Sub

Je préviens Sébastien
Claude

[Sébastien]

Bonsoir,

Le problème est réglé.

Merci Claude

Cordialement,

[FRANCKIN]

Encore merci Claude

Le résultat obtenu est exactement celui souhaité. Bravo

Cordialement