Fonction Or en vba

Résolu/Fermé

hakimr Messages postés 209 Date d'inscription lundi 1 mai 2017 Statut Membre Dernière intervention 15 avril 2024 - Modifié le 16 nov. 2019 à 10:34
hakimr Messages postés 209 Date d'inscription lundi 1 mai 2017 Statut Membre Dernière intervention 15 avril 2024 - 16 nov. 2019 à 11:07

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

A voir également:

Fonction Or en vba
Fonction si et - Guide
Vba ouvrir un fichier excel avec chemin ✓ - Forum VB / VBA
Fonction somme excel - Guide
Fonction moyenne excel - Guide
Incompatibilité de type vba ✓ - Forum Programmation

2 réponses

Réponse 1 / 2

Frenchie83 Messages postés 2240 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 11 août 2023 337
16 nov. 2019 à 10:32

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

yg_be Messages postés 22696 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 17 avril 2024 1 471
16 nov. 2019 à 10:46

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

Réponse 2 / 2

hakimr Messages postés 209 Date d'inscription lundi 1 mai 2017 Statut Membre Dernière intervention 15 avril 2024 4
16 nov. 2019 à 10:34

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

Frenchie83 Messages postés 2240 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 11 août 2023 337
16 nov. 2019 à 10:38

ma proposition ne convient pas?

hakimr Messages postés 209 Date d'inscription lundi 1 mai 2017 Statut Membre Dernière intervention 15 avril 2024 4
16 nov. 2019 à 11:07

Si ça conviend et ça marche bien Mr Frenchie
merci a tous

Discussions similaires

Méthode find dans VBA - Recherche de données sous Excel

"L'indice n'appartient à la sélection" + VBA

no such file or directory

VBA : Range avec références variables..

VBA erreur 1004

Discussions similaires

Newsletters