fonction Or en vba Résolu

Question

Bonjour à tous, Forum,

J'ai une question qui va certainement faire sourire les spécialistes VBA mais je veux avancer voila
j'ai écrit :
If [C7].Value = 3 Or [C7].Value = 5 Or [C7].Value = 8 Or [C7].Value = 11 Then
ActiveSheet.Shapes("image 58").Visible = True And ActiveSheet.Shapes("image 55").Visible = True
Else
ActiveSheet.Shapes("image 58").Visible = False And ActiveSheet.Shapes("image 55").Visible = False
End If
comment est ceq'on peu corriger et rendre plus professionnelle
merci d'avance

Frenchie83 · Answer

Bonjour,

Avec Select case par exemple
    Select Case [C7].Value
        Case Is = 3, 5, 8, 11
            ActiveSheet.Shapes("image 58").Visible = True
            ActiveSheet.Shapes("image 55").Visible = True
        Case Else
            ActiveSheet.Shapes("image 58").Visible = False
            ActiveSheet.Shapes("image 55").Visible = False
    End Select


Cdlt

hakimr · Answer

Bonjour a tous
le m'explique encore
jai deux images nommées image 58 et image 55 dans une feuliie excell
je veux écrire si (ou(c7=(3;5;8;11);image 58 et image 55 seront visible;ne seront pas visible)
comment est ce que je peu traduire en vba ou bien ya t'il une autre solution sans vba
merci pour votre attention

Fonction Or en vba

2 réponses

Discussions similaires

Newsletters