XL 2019 Select Case 3 conditions imbriquées avec 2 variables

patricktoulon à dit:

Bonjour à tous
juste en passant
le if <>"oxygene" doit etre separé ou alors le reste du code doit etre dans un else

pour le faire dans un select case comme tu a plusieurs conditions
il faut utiliser un case true/false
ensuite il faut utiliser une règle de priorité de passage des cases sinon ça n'a pas l'effet escompté
car en effet plusieurs case peuvent te donner true ou false

et oui un case sera toujours plus rapide tout simplement parce que quand il a trouver le bon case on sort du select tandis qu'avec un if ou plusieur ou même avec des else , l'execusion lit tout les cases même si il a déjà trouver son "If"

bien que là avec 3 condition on a pas vraiment besoins de chercher gagner du temps

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
    With Worksheets("Feuil2")
        Select Case True

        Case ActiveSheet.Range("F30") = "oxigene" And ActiveSheet.Range("F31") = "T"
            .Shapes("APC").Visible = False
            .Shapes("ORF").Visible = True

        Case ActiveSheet.Range("F30") = "oxigene" And ActiveSheet.Range("F31") <> "T"
            .Shapes("APC").Visible = True
            .Shapes("ORF").Visible = False

        Case ActiveSheet.Range("F30") <> "oxigene"
            .Shapes("APC").Visible = False
            .Shapes("ORF").Visible = False

        End Select
    End With
End Sub

Cliquez pour agrandir...