Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2019 Select Case 3 conditions imbriquées avec 2 variables

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion pat66
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
P

pat66

XLDnaute Impliqué
Bonjour le forum,

J'ai du mal rédiger cette macro avec select Case, quelqu'un aurait-il la gentillesse de me donner un coup de main
voici les conditions :

Private Sub Worksheet_Change(ByVal Target As Range)
If ActiveSheet.Range("F30") <> "oxigene" then
Worksheets("Feuil2").Shapes("APC").Visible = false
Worksheets("Feuil2").Shapes("ORF").Visible = false

If ActiveSheet.Range("F30")="oxigene" and ActiveSheet.Range("F31") = "T" then
Worksheets("Feuil2").Shapes("APC").Visible = false
Worksheets("Feuil2").Shapes("ORF").Visible = true

If ActiveSheet.Range("F30")="oxigene" and ActiveSheet.Range("F31") <> "T" then
Worksheets("Feuil2").Shapes("APC").Visible = True
Worksheets("Feuil2").Shapes("ORF").Visible = false
end sub

un grand merci

pat66
 
Trier par date Trier par votes
Bonjour @pat66
Edit Bonjour Job75
Je te propose ceci : (Non testé)

VB: 
Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Range("F30").Value
Case Is = "oxigene"  'Case "oxigene" '<== Les 2 versions devraient fonctionner
    If ActiveSheet.Range("F31") = "T" Then
        Worksheets("Feuil2").Shapes("APC").Visible = False
        Worksheets("Feuil2").Shapes("ORF").Visible = True
    Else
        Worksheets("Feuil2").Shapes("APC").Visible = True
        Worksheets("Feuil2").Shapes("ORF").Visible = False
    End If
Case Else
    Worksheets("Feuil2").Shapes("APC").Visible = False
    Worksheets("Feuil2").Shapes("ORF").Visible = False
End Select
End Sub


Merci de ton retour

@Phil69970
 
Dernière édition:
Vote positif 0 Vote négatif
Bonjour Job75,
bonjour Phil69970

je vous remercie à tous les deux, je vais comparer la vitesse d'exécution de vos solutions,
Phil69970, ci joint ta solution dans le classeur ci joint , mais rien ne se passe ou tout disparait , j'ai du zappé quelque chose 😱

Si F30 = "oxigene" et F31 = "T"
Worksheets("Feuil2").Shapes("APC").Visible = False
Worksheets("Feuil2").Shapes("ORF").Visible = True

Si F30 = "oxigene" et F31 <> "T",
Worksheets("Feuil2").Shapes("APC").Visible = true
Worksheets("Feuil2").Shapes("ORF").Visible = false

Si F30 <> "oxigene" ' peu importe F31
Worksheets("Feuil2").Shapes("APC").Visible = false
Worksheets("Feuil2").Shapes("ORF").Visible = False
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Re

@pat66

Quand je vois cela je me dis qu'il va y avoir un problème
et dans le code "oxigene"

Toutes les conditions sont remplies si je ne m'abuse .....




pat66 à dit:
je vais comparer la vitesse d'exécution de vos solutions,
Cliquez pour agrandir...
Sur 3 lignes je doute que cela soit probant

Sur un grand nombre de ligne les select case sont le plus rapide et pour encore aller plus vite il faudrait savoir quelles valeurs sont le plus souvent rencontrées pour mettre les case dans un autre ordre....

Rappel : Dans le code les "if" sont tous testés les uns après les autres alors que que les select case sont évaluées dans l'ordre ou ils sont et dès que la valeur est ok on ne teste plus les autres select case d’où un gain de temps.

Rappel 2 : le case else est toujours à la fin car c'est uniquement si aucune des autres conditions "case" ne sont trouvé ...

Et je le répète sur 3 lignes cela m'étonnerait que tu vois une différence ....

@Phil69970
 
Dernière édition:
Vote positif 0 Vote négatif
HOuaouuu , milles excuses Phil66970

tout fonctionne à merveille

je reviens vers toi
 
Vote positif 0 Vote négatif
Vote positif 0 Vote négatif
Bonjour à tous
juste en passant
le if <>"oxygene" doit etre separé ou alors le reste du code doit etre dans un else

pour le faire dans un select case comme tu a plusieurs conditions
il faut utiliser un case true/false
ensuite il faut utiliser une règle de priorité de passage des cases sinon ça n'a pas l'effet escompté
car en effet plusieurs case peuvent te donner true ou false

et oui un case sera toujours plus rapide tout simplement parce que quand il a trouver le bon case on sort du select tandis qu'avec un if ou plusieur ou même avec des else , l'execusion lit tout les cases même si il a déjà trouver son "If"

bien que là avec 3 condition on a pas vraiment besoins de chercher gagner du temps

VB: 
Private Sub Worksheet_Change(ByVal Target As Range)
    With Worksheets("Feuil2")
        Select Case True

        Case ActiveSheet.Range("F30") = "oxigene" And ActiveSheet.Range("F31") = "T"
            .Shapes("APC").Visible = False
            .Shapes("ORF").Visible = True

        Case ActiveSheet.Range("F30") = "oxigene" And ActiveSheet.Range("F31") <> "T"
            .Shapes("APC").Visible = True
            .Shapes("ORF").Visible = False

        Case ActiveSheet.Range("F30") <> "oxigene"
            .Shapes("APC").Visible = False
            .Shapes("ORF").Visible = False

        End Select
    End With
End Sub
 
Vote positif 0 Vote négatif
Bonjour.
Plus simple comme ça quand même :
VB: 
Private Sub Worksheet_Change(ByVal Target As Range)
   If Intersect(Me.[F30:F31], Target) Is Nothing Then Exit Sub
   Me.Shapes("APC").Visible = Me.[F30].Value = "oxygène" And Me.[F31].Value = "T"
   Me.Shapes("ORF").Visible = Me.[F30].Value = "oxygène" And Me.[F31].Value <> "T"
   End Sub
 
Vote positif 0 Vote négatif
re,

bonjour patricktoulon,
bonjour Dranreb,

pensez vous que l'on puisse ajouter une alternative de la façon suivante à F30, du genre :

pour patricktoulon
Case ActiveSheet.Range("F30") = "oxigene" or ActiveSheet.Range("F30") = "airliquide" And ActiveSheet.Range("F31") = "T"

ou pour Dranreb
Me.Shapes("APC").Visible = Me.[F30].Value = "oxygène" or Me.[F30].Value = "airliquide" And Me.[F31].Value = "T"

Dranreb, ta macro ne précises pas que les shapes sont sur la feuil2 et non sur la feuille active, c'est normal ?



merci d'avance
 
Dernière édition:
Vote positif 0 Vote négatif
Re
bonjout pat66
oui tu l'a fait
perso je suis un vieux de la vielle en terme de discipline c'est comme pour les maths je parenthèse les paragraphe d'operande
Enrichi (BBcode): 
Case (ActiveSheet.Range("F30") = "oxigene" or ActiveSheet.Range("F30") = "airliquide" )And ActiveSheet.Range("F31") = "T"
 
Vote positif 0 Vote négatif
re,

ok merci

j'ai modifié en ajoutant les parenthèses comme tu me le conseille
Case (ActiveSheet.Range("F30") = "oxigene" or ActiveSheet.Range("F30") = "airliquide" )And ActiveSheet.Range("F31") = "T"

mais j'ai le message suivant lorsque F30 <> de "oxigene" or de "airliquide"
erreur execution 13, incompatibité de type
et ensuite la macro ne fonctionne plus lorsque je modifies F30 ou F31

alors je viens de tester en ajoutant la gestion d'erreur bien connue
On Error Resume Next
With Worksheets("Feuil2")
----------
End Select
End With
On Error GoTo 0

Ca a l'air de fonctionner ! sinon je suivrais les conseils de Job75
 
Dernière édition:
Vote positif 0 Vote négatif
Le plus simple c'est comme ceci :
VB: 
Private Sub Worksheet_Change(ByVal Target As Range)
Sheets("Feuil2").Shapes("APC").Visible = LCase(Range("F30")) = "oxigene" And Range("F31") <> "T"
Sheets("Feuil2").Shapes("ORF").Visible = LCase(Range("F30")) = "oxigene" And Range("F31") = "T"
End Sub
à condition que "oxigene" soit bien l'orthographe utilisée.
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

P
  • Résolu(e)
Microsoft 365 Plusieurs conditions avec Sub Worksheet_Activate() ou Change
Réponses
10
Affichages
477
pat66
P
P
  • Résolu(e)
XL 2019 Worksheet_Change(ByVal Target As Range), 3 alternatives
2
Réponses
18
Affichages
1 K
pat66
P
P
  • Résolu(e)
XL 2019 Améliorer voire accélérer une Macro
Réponses
6
Affichages
556
patricktoulon
P
  • Résolu(e)
XL 2019 Plusieurs conditions avec Sub Worksheet_Change (ByVal Target As Range)
2
Réponses
18
Affichages
1 K
pat66
P
L
  • Question Question
XL 2021 Comment utiliser la colonne d'une adresse en Private Sub - svp ?
Réponses
3
Affichages
460
vgendron
J
  • Résolu(e)
Autres Pb d'affichage d'un objet
Réponses
2
Affichages
465
JPaul78
J
D
  • Question Question
XL 2021 VBA - Erreur 1004 aléatoire - Image/Logo
Réponses
10
Affichages
681
crocrocro
C
P
  • Résolu(e)
XL 2019 Conditions dans Worksheet_Change(ByVal Target As Range)
Réponses
4
Affichages
498
pat66
P
P
  • Résolu(e)
XL 2019 Optimiser une macro
Réponses
12
Affichages
628
pat66
P
  • Question Question
XL 2021 Exportation feuille msgbox yes no avec module Thisworkbook
2
Réponses
21
Affichages
1 K
Nicolas JACQUIN
M
  • Question Question
XL 2016 Aide code VBA
Réponses
7
Affichages
680
medsoft313
M
P
  • Question Question
XL 2019 Verrouiller plusieurs cellules avec condition
Réponses
3
Affichages
934
fanch55
Y
  • Question Question
XL 2019 Copie des données des différentes lignes sur une base de données
Réponses
10
Affichages
1 K
YANNISE
Y
U
  • Résolu(e)
Autres Mettre en couleur ligne avec VBA car MFC occupées (Excel 2003)
2
Réponses
15
Affichages
2 K
un internaute
U
U
  • Question Question
Autres [RESOLU] Application.ScreenUpdating = False
Réponses
4
Affichages
1 K
un internaute
U
B
  • Question Question
Microsoft 365 VBA Compter 2 lignes après la fin d'un tableau dont on a le nom
Réponses
2
Affichages
881
bluesky12000
B
T
  • Question Question
XL 2019 afficher/masquer lignes avec case d'option (contrôle de formulaire)
Réponses
1
Affichages
1 K
Tioneb_h
T
T
  • Question Question
XL 2016 Problème de conditions
Réponses
1
Affichages
990
nat54
M
  • Question Question
XL 2016 Envoi courriel copier/coller avec mise en forme (corps couuriel)
Réponses
2
Affichages
1 K
MONTREAL2020
M
P
  • Question Question
XL 2019 Sub Worksheet_Change(ByVal Target As Range) ne selectionne pas la cellule
Réponses
2
Affichages
762
pat66
P
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…