Menu
Posez votre question Signaler

Fonction Or en vba [Résolu]

Messages postés
105
Date d'inscription
lundi 1 mai 2017
Statut
Membre
Dernière intervention
24 novembre 2019
 -
VB / VBA Posez votre question Signaler
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
Afficher la suite 

2 réponses

Signaler Commenter la réponse de Frenchie83
Messages postés
2025
Date d'inscription
lundi 6 mai 2013
Statut
Membre
Dernière intervention
24 novembre 2019
 238
0
Merci
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
Signaler Commenter la réponse de yg_be
yg_be
Messages postés
9050
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
5 décembre 2019
 464 -
bonjour, ou ainsi: 
dim vu as boolean
 Select Case [C7].Value
        Case Is = 3, 5, 8, 11
            vu = True
        Case Else
            vu= False
    End Select
 ActiveSheet.Shapes("image 58").Visible = vu
 ActiveSheet.Shapes("image 55").Visible = vu
Commenter la réponse de Frenchie83
Signaler Commenter la réponse de hakimr
Messages postés
105
Date d'inscription
lundi 1 mai 2017
Statut
Membre
Dernière intervention
24 novembre 2019
0
Merci
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
Signaler Commenter la réponse de Frenchie83
Frenchie83
Messages postés
2025
Date d'inscription
lundi 6 mai 2013
Statut
Membre
Dernière intervention
24 novembre 2019
 238 -
ma proposition ne convient pas?
Signaler Commenter la réponse de hakimr
hakimr
Messages postés
105
Date d'inscription
lundi 1 mai 2017
Statut
Membre
Dernière intervention
24 novembre 2019
 -
Si ça conviend et ça marche bien Mr Frenchie
merci a tous
Commenter la réponse de hakimr
Répondre Posez votre question