[Résolu] VBA Long dans la suppression

[greg63]

Salut à tous,

Aprés des recherches, j'ai trouvé un code VBA pour masquer des lignes et je l'ai adapté à mon document.
Lorsque je clique sur la suppression des lignes ce dernier s'active (normal) mais il est vraiment long à s'exécuter, et me fait planter parfois le document.

Le code est le suivant

Sub MasquerLignesVide()

    
    For i = 250 To 7 Step -1
    
        If Application.WorksheetFunction.CountBlank(Range(Cells(i, 1), Cells(i, 5))) = 5 Then
           Rows(i).EntireRow.Hidden = True
        End If
        
    Next i

End Sub

Je vous laisse en copie le document si quelqu'un peut me dépatouiller car se serait le top d'accélérer l'éxécution de ce dernier

 

[Dull]

Re : VBA Long dans la suppression

Salut greg63, Le Forum

Tout est relatif 🙂moins d'une seconde me parait raisonnable

Essaye de placer un Application.SreenUpdating = False en début de Procédure
et le Remettre à True en Fin de Procédure

Sub MasquerLignesVide()
 With Application
    .ScreenUpdating = False
    .Calculation = xlCalculationManual
 End With
 For i = 250 To 7 Step -1
        If Application.WorksheetFunction.CountBlank(Range(Cells(i, 1), Cells(i, 5))) = 5 Then
           Rows(i).EntireRow.Hidden = True
        End If
    Next i
 With Application
    .Calculation = xlCalculationAutomatic
    .ScreenUpdating = True
 End With
End Sub

Bonne Journée

 

[greg63]

Re : VBA Long dans la suppression

Merci enormément

C'est vraiment le top. Pile poil ce que je voulais

 

[Staple1600]

Re : VBA Long dans la suppression

Bonjour à tous_______________________________EDITION: Salut Efgé


Pour le fun, pour la diversité "solutionnelle", pour ne pas boucler et pour le plaisir de croiser Dull 😉
Code vba:
Sub MasqueDemasqueLignesVides()
'Macro deux en un :
'on la lance une première fois; les lignes sont masquées
'on la lance une seconde fois: les lignes sont réaffichées
Application.ScreenUpdating = False
With Range("F8:F250")
.ClearContents
.FormulaR1C1 = "=IF(COUNTBLANK(RC[-5]:RC[-1])=5,""$"","""")"
.Value = .Value
.SpecialCells(2, 2).Rows.Hidden = _
Not .SpecialCells(2, 2).Rows.Hidden
.Clear
End With
Application.ScreenUpdating = True
End Sub

 

[greg63]

Re : VBA Long dans la suppression

bravo les gars c'est le top.

Vous auriez pas une macro qui pourrait faire ma lessive ou mon ménage par hasard😱

 

[Efgé]

Re : VBA Long dans la suppression

Bonjour greg63, Salut Dull 🙂 Salut Staple 🙂
[😀]
Pour la lessive :

Sub Lessive()
Dim Fringue As Variant, Lessive As Variant, Machine As Variant
Dim MAchineBlack As Variant, MAchineWhite As Variant, MAchineColor As Variant
For Each Fringue In BacALinge
    Select Case Fringue.Color
        Case Is = Black
            ReDim Preserve MAchineBlack(1 To UBound(MAchineBlack, 1) + 1)
            MAchineBlack(UBound(MAchineBlack)) = Fringue.Name
        Case Is = White
            ReDim Preserve MAchineWhite(1 To UBound(MAchineWhite, 1) + 1)
            MAchineWhite(UBound(MAchineWhite)) = Fringue.Name
        Case Else
            ReDim Preserve MAchineColor(1 To UBound(MAchineColor, 1) + 1)
            MAchineColor(UBound(MAchineColor)) = Fringue.Name
    End Select
    Lessive = Fringue.Color
Next Fringue

For Each Machine In Machines
    Do
        Machine
    Loop
Next Machine
End Sub

Cordialement [/😀]

 

[greg63]

Re : [archiver] VBA Long dans la suppression

Merci à tous pour l'aide