Problème code vba
Résolu
pascal3110
Messages postés
139
Statut
Membre
-
pascal3110 Messages postés 139 Statut Membre -
pascal3110 Messages postés 139 Statut Membre -
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
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
A voir également:
- Problème code vba
- Code ascii - Guide
- Code puk bloqué - Guide
- Comment déverrouiller un téléphone quand on a oublié le code - Guide
- Code activation windows 10 - Guide
- Scanner qr code pc - Guide
4 réponses
Bonjour
Ceci
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
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
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
Bonjour
Voila la modife
A+
Maurice
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
