problème code vba Résolu

Question

Bonjour,
voilà j'ai ce code, mais je ne sais pas comment le modifier pour qu'il fonctionne indépendamment sur toutes les feuilles du même classeur.
pouvez-vous m'aider
merci 

Sub supprimelignes()
Dim Ligne As Integer
    Application.ScreenUpdating = False
    With ThisWorkbook.Worksheets("FICHOT")
        For Ligne = 40 To 13 Step -1
            If .Range("B" & Ligne).Value = 0 Then
                .Rows(Ligne).Hidden = True
            Else
                .Rows(Ligne).Hidden = False
            End If
        Next Ligne
    End With
End Sub
Sub AfficherLignes()
    Worksheets("FICHOT").Rows("13:40").Hidden = False
End Sub

Configuration: Windows 7 / Mozilla 11.0

Frenchie83 · Answer

Bonjour
Ceci
Sub supprimelignes()
    Dim Ligne As Integer
    Application.ScreenUpdating = False
    NbFeuil = Sheets.Count
    For i = 1 To NbFeuil
        For Ligne = 40 To 13 Step -1
            If Sheets(i).Range("B" & Ligne).Value = 0 Then
                Sheets(i).Rows(Ligne).Hidden = True
            Else
                Sheets(i).Rows(Ligne).Hidden = False
            End If
        Next Ligne
    Next
End SubCdlt

diablo13800 · Answer

Bonjour,

Fais avec la boucle qui permet de faire sur chaque "Sheet"

Sub supprimelignes() 
Dim Ligne As Integer 
Application.ScreenUpdating = False 
Dim ws As Worksheet 
For Each ws In ActiveWorkbook.Worksheets 
For Ligne = 40 To 13 Step -1 
If ws.Range("B" & Ligne).Value = 0 Then 
ws.Rows(Ligne).Hidden = True 
Else 
ws.Rows(Ligne).Hidden = False 
End If 
Next Ligne 
End With 
End Sub 


Sub AfficherLignes() 
Dim ws As Worksheet 
For Each ws In ActiveWorkbook.Worksheets 
ws.Rows("13:40").Hidden = False
Next 
End Sub

Maurice · Answer

Bonjour

Voila la modife

Sub SupprimerLignes()
Dim Ligne As Long
   Application.ScreenUpdating = False
       For Ligne = 40 To 13 Step -1
           If Range("B" & Ligne).Value = 0 Then
               Rows(Ligne).Hidden = True
           Else
               Rows(Ligne).Hidden = False
           End If
       Next
End Sub

Sub AfficherLignes()
   Cells.EntireRow.Hidden = False
   Range("A1").Select
End Sub

A+
Maurice

pascal3110 · Answer

bonjour
merci à tous 
c'est rapide et très sympa

Problème code vba

4 réponses

Discussions similaires

Newsletters