Aide à l'optimisation de son code VBA

Version imprimable

Bonjour,

Je suis tout à fait novice en VBA donc je recherche à droite et à gauche des moyens de m'en sortir.
J'ai donc réalisé un excel extrêmement lourd et j'aimerais l'optimiser pour pas que cela soit inutilisable.

Je vous met une partie de code ci dessous qui lorsque qu'on choisi un valeur dans une liste déroulante affiche et masque plusieurs ligne selon le cas.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
 Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub '<-- si plusieurs cellules sont sélectionnées on quitte la procédure sinon ça bug
If Target.Address = "$G$9" Then '<-- vérification que la modification se passe dans la cellule G9
    Select Case Target.Value
        Case "Logements": Rows("24:28").Hidden = True
        Case "EHPAD": Rows("17:22").Hidden = True
        Case "Hopital": Rows("17:22").Hidden = True
        Case "Hotel*": Rows("17:22").Hidden = True
        Case "Hotel**": Rows("17:22").Hidden = True
        Case "Hotel***": Rows("17:22").Hidden = True
        Case "Gymnase": Rows("17:22").Hidden = True
        Case "Commerce": Rows("17:22").Hidden = True
        Case "Piscine": Rows("17:22").Hidden = True
        Case "Etablissement scolaire": Rows("17:22").Hidden = True
        Case "Restaurant": Rows("17:22").Hidden = True
    End Select
 
    Select Case Target.Value
 
        Case "EHPAD": Rows("26:27").Hidden = True
        Case "Hotel*": Rows("26:27").Hidden = True
        Case "Hopital": Rows("26:27").Hidden = True
        Case "Hotel**": Rows("26:27").Hidden = True
        Case "Hotel***": Rows("26:27").Hidden = True
        Case "Gymnase": Rows("26:27").Hidden = True
        Case "Commerce": Rows("26:27").Hidden = True
        Case "Piscine": Rows("26:27").Hidden = True
        Case "Restaurant": Rows("26:27").Hidden = True
    End Select
 
    Select Case Target.Value
        Case "Logements": Rows("17:22").Hidden = False
        Case "EHPAD": Rows("23:25").Hidden = False
        Case "Hotel*": Rows("23:25").Hidden = False
        Case "Hopital": Rows("23:25").Hidden = False
        Case "Hotel**": Rows("23:25").Hidden = False
        Case "Hotel***": Rows("23:25").Hidden = False
        Case "Gymnase": Rows("23:25").Hidden = False
        Case "Commerce": Rows("23:25").Hidden = False
        Case "Piscine": Rows("23:25").Hidden = False
        Case "Etablissement scolaire": Rows("23:27").Hidden = False
        Case "Restaurant": Rows("23:25").Hidden = False
    End Select
 
End If
End Sub

Je pense qu'il y a beaucoup mieux que ce code, voir peut être même pas besoin de passer par une macro. Avez vous des idées pour optimiser ceci ?

Merci d'avance pour votre aide ! :D

07/06/2018, 18h49
Jean-Philippe André

Salut,

ca ressemble plutôt à un filtre ton histoire...
Pourquoi ne pas ajouter une colonne (invisible si necessaire) dans laquelle tu stockes ta valeur, et tu fais simplement une mise à jour de filtre sur la modification de ta cellule ?

bonsoir

Code:

1
2
3
4
5
6
7
8
9
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim T:
    If Target.Count > 1 Then Exit Sub    '<-- si plusieurs cellules sont sélectionnées on quitte la procédure sinon ça bug
    If Target.Address = "$G$9" Then    '<-- vérification que la modification se passe dans la cellule G9
        T = Target.Text
        crit = T = "EHPAD" Or T = "Hopital" Or T Like "Hotel*" Or T = "Gymnase" Or T = "Commerce" Or T = "Piscine" Or T = "Etablissement scolaire" Or T = "Restaurant"
        If crit Then Rows("17:22").Hidden = True Else Rows("24:28").Hidden = IIf(T = "Logements", True, False)
    End If
End Sub

08/06/2018, 09h19
Flann

Bonjour,

Merci pour vos réponses !
Je vais regarder de mon côté pour l'utilisation de filtres au cas où cela serait plus rapide car je ne maitrise pas du tout ce point d'excel.

Je viens de tester le code aussi et il masque bien les lignes en fonction de la valeur de la case G9, Cependant il ne fait pas réapparaitre les autres lorsque je change la case.
J'imagine que c'est le même style de code mais à l'inverse avec les lignes que je veux faire apparaitre ?

re
si c'es t" logements" 24:18 cachée et 17:22 visible
si c'est tout les autre "17:22" cahée et "24:28" visible
si c'est aucun d'entre eux tout est visible

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim T:
    If Target.Count > 1 Then Exit Sub    '<-- si plusieurs cellules sont sélectionnées on quitte la procédure sinon ça bug
    If Target.Address = "$G$9" Then    '<-- vérification que la modification se passe dans la cellule G9
        T = Target.Text
        crit = T = "EHPAD" Or T = "Hopital" Or T Like "Hotel*" Or T = "Gymnase" Or T = "Commerce" Or T = "Piscine" _
               Or T = "Etablissement scolaire" Or T = "Restaurant"
        If crit = True Then
             Rows("17:22").Hidden = True: Rows("24:28").Hidden = False
        ElseIf Target.Text = "Logements" Then
            Rows("24:28").Hidden = True: Rows("17:22").Hidden = False
        Else
        Rows("24:28").Hidden = False: Rows("17:22").Hidden = False
        End If
    End If
End Sub

;)

on pourrais grouper le like et le jouer a l'envers aussi

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim T:
    If Target.Count > 1 Then Exit Sub    '<-- si plusieurs cellules sont sélectionnées on quitte la procédure sinon ça bug
    If Target.Address = "$G$9" Then    '<-- vérification que la modification se passe dans la cellule G9
        T = Target.Text
        crit = "EHPAD Hopital Hotel Gymnase Commerce Piscine Etablissement scolaire Restaurant" Like "*" & T & "*"
        If crit = True Then
             Rows("17:22").Hidden = True: Rows("24:28").Hidden = False
        ElseIf Target.Text = "Logements" Then
            Rows("24:28").Hidden = True: Rows("17:22").Hidden = False
        Else
        Rows("24:28").Hidden = False: Rows("17:22").Hidden = False
        End If
    End If
End Sub

dans cette version 2 (like a l'envers) pour etre plus categorique
remplacer ceci:

Code:

crit = "EHPAD Hopital Hotel Gymnase Commerce Piscine Etablissement scolaire Restaurant" Like "*" & T & "*"

par cela

Code:

crit = " EHPAD Hopital Hotel Gymnase Commerce Piscine Etablissement scolaire Restaurant " Like "* " & T & " *"

edit:
autant pour moi il y a un soucis avec "hotel***"
donc pour la version 2

Code:

crit = " EHPAD Hopital Gymnase Commerce Piscine Etablissement scolaire Restaurant " Like "* " & T & " *" Or T Like "Hotel*"

cette fois ci j arrette
;)

08/06/2018, 09h49
Flann

Parfait c'est ce que j'avais pensé et à quelque chose près écrit à l'instant !

Merci beaucoup ! C'est beaucoup plus joli comme ça ! :)