Amélioration du code VBA

[Manu62]

Bonjour à tous,

J'utilise ce code vba qui permet de masquer des lignes dans une plage d'impression.

Peux t'on accélérer le code

Sub Masque()
For i = 1 To 54 'Ici tu mets le nombre le ligne
If Range("A" & i) = "" Then ' je test si la cellule A est vide
Rows(i).Select 'Selectionne la ligne
Selection.EntireRow.Hidden = True 'masque la ligne
End If
Next i
End Sub



Cdt

Manu

 

[Lolote83]

Re : Amélioration du code VBA

Salut,
Essaye ça, avec la désactivation du calcul automatique en début de code puis réactivation du mode calcul automatique en fin de code. Ca peut le faire

Sub Masque2()
Application.ScreenUpdating = False 'Permet d'éviter les affichages à l'écran
Application.Calculation = xlManual 'Passe en mode recalcul manuel
'--------
'TON CODE
'--------
For i = 1 To 54 'Ici tu mets le nombre le ligne
If Range("A" & i) = "" Then 'Test si la cellule A est vide
Rows(i).EntireRow.Hidden = True 'Masque la ligne
End If
Next i
'------------
'FIN TON CODE
'------------
Application.Calculation = xlAutomatic 'Reppase en mode recalcul automatique
Application.ScreenUpdating = True 'Permet d'éviter les affichages à l'écran
End Sub

@+ Lolote83

 

[Papou-net]

Re : Amélioration du code VBA

Bonsoir Manu62, Lolote83,

En une ligne:

Sub Masque()
Range("A1:A54").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
End Sub

Bonne journée.

Cordialement.

 

[Manu62]

Re : Amélioration du code VBA

Bjr,

Merci à vous 2

Les 2 solutions me conviennent

bonne fin de journée

manu