Amélioration du code VBA

Manu62 · 5 Août 2014

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 · 5 Août 2014

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 · 5 Août 2014

Re : Amélioration du code VBA

Bonsoir Manu62, Lolote83,

En une ligne:

Code:

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

Bonne journée.

Cordialement.

Manu62 · 5 Août 2014

Re : Amélioration du code VBA

Bjr,

Merci à vous 2

Les 2 solutions me conviennent

bonne fin de journée

manu

Amélioration du code VBA

Manu62

XLDnaute Impliqué

Lolote83

XLDnaute Barbatruc

Papou-net

XLDnaute Barbatruc

Manu62

XLDnaute Impliqué

Discussions similaires

Amélioration du code VBA

Manu62

XLDnaute Impliqué

Lolote83

XLDnaute Barbatruc

Papou-net

XLDnaute Barbatruc

Manu62

XLDnaute Impliqué

Discussions similaires

Privacy & Transparency

Privacy & Transparency