Simplifier mon code vba

[Ilino]

Bonjour Form
mon souci de jour est le suivant
je souhaite un code plus simple et rapide

Private Sub Worksheet_selectionChange(ByVal Target As Range) ' afficher / masquer les lignes selon le nombre de tableau principal
Rows("17:36").Hidden = True
For i = 17 To 36 Step 2
  If Cells(i, "AG") = 1 Then Rows(i & ":" & i + 1).Hidden = False
Next
End Sub

GRAZIE

 

[Pierrot93]

Re : Simplifier mon code vba

Bonjour,

rajoute peut être un :

Application.ScreenUpdating = False

bon après midi
@+

 

[job75]

Re : Simplifier mon code vba

Bonjour Ilino, salut Pierrot,

Voir le fichier joint et l'utilisation du filtre avancé :

Private Sub Worksheet_selectionChange(ByVal Target As Range)
[AH17] = "=OR(AG17=1,OFFSET(AG17,-1,)=1)" 'critère
[AG16:AG37].AdvancedFilter xlFilterInPlace, [AH16:AH17]
[AH17] = ""
End Sub

Sub RAZ() 'bouton
On Error Resume Next
Me.ShowAllData
End Sub

Edit : j'ajoute une couleur de police blanche à la cellule AH17 (zone de critère).

A+

 

[job75]

Re : Simplifier mon code vba

Bonjour Ilino, le forum,

Il vaut mieux utiliser le double-clic :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
[AH17] = IIf([AH17] = "", "=OR(AG17=1,OFFSET(AG17,-1,)=1)", "") 'critère
[AG16:AG37].AdvancedFilter xlFilterInPlace, [AH16:AH17]
End Sub

Fichier (2).

A+

 

[Ilino]

Re : Simplifier mon code vba

Bonjour a tous
sorry pour le retard
et merci PIERROT and Job pour les propositions
A+
B.W