Fonction Or en vba

Résolu
hakimr Messages postés 261 Date d'inscription   Statut Membre Dernière intervention   -  
hakimr Messages postés 261 Date d'inscription   Statut Membre Dernière intervention   -
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

2 réponses

  1.
    Frenchie83 Messages postés 2254 Statut Membre 339
     
    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
    0
    1. yg_be Messages postés 23437 Date d'inscription   Statut Contributeur Dernière intervention   1 588
       
      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
      0
  2. hakimr Messages postés 261 Date d'inscription   Statut Membre Dernière intervention   10
     
    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
    0
    1. Frenchie83 Messages postés 2254 Statut Membre 339
       
      ma proposition ne convient pas?
      0
    2. hakimr Messages postés 261 Date d'inscription   Statut Membre Dernière intervention   10
       
      Si ça conviend et ça marche bien Mr Frenchie
      merci a tous
      0

Discussions similaires

debloquer le code 400 bad request qui s'affiche à google
fath -
DelNC -

1 réponse
no such file or directory
moise02 -
moise02 -

15 réponses
Méthode find dans VBA - Recherche de données sous Excel
baissaoui -
baissaoui -

0 réponse
Message "cette fonction n'est pas disponible actuellement"
daladala -
Lucaslebg -

15 réponses
Différence entre x64 et x86
ragnoti -
pyvyfa -

49 réponses