Fonction Or en vba
Résolu
hakimr
Messages postés
265
Statut
Membre
-
hakimr Messages postés 265 Statut Membre -
hakimr Messages postés 265 Statut Membre -
Bonjour à tous, Forum,
J'ai une question qui va certainement faire sourire les spécialistes VBA mais je veux avancer voila
j'ai écrit :
comment est ceq'on peu corriger et rendre plus professionnelle
merci d'avance
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
- Or - Guide
- Fonction si et - Guide
- Fonction miroir - Guide
- Fonction moyenne excel - Guide
- Incompatibilité de type vba ✓ - Forum Programmation
2 réponses
Bonjour,
Avec Select case par exemple
Cdlt
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
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
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
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