Ajouter un second critère en VBA

Créer une discussion
Répondre

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
GuillaumA

GuillaumA

XLDnaute Occasionnel
Bonjour à tous,
J'utilise cette macro afin de faire disparaître en feuil2 la ligne dans laquelle la valeur B s'affiche en colonne 15 (Q) lorsque je tape A dans la cellule M19 de la feuil1 et vis et versa.
Je voudrai rajouter le critère 0.
Ex: Lorsque j'affiche A en M19, la ligne de la feuil 2 dans laquelle B ou 0 s'affichent en colonne Q doit disparaître
Lorsque j'affiche B en M19, la ligne de la feuil 2 dans laquelle A ou 0 s'affichent en colonne Q doit disparaître

Comment rajouter "0" dans la fonction Var = ??

Private Sub Worksheet_Change(ByVal Target As Range) 'Modify list according to type (A, B)
If Intersect(Target, Range("M19")) Is Nothing Then Exit Sub
With Sheets("Feuil2")
.Rows.Hidden = False
Select Case Range("M19")
Case "A"
Var = "B"
Case "B"
Var = "A"
Case Else
Var = ""
End Select
For i = 5 To .Cells(Rows.Count, 15).End(xlUp).Row
.Rows(i).Hidden = .Cells(i, 15) = Var
Next i
End With
End Sub
Cliquez pour agrandir...

Cordialement
Guillaume A.
 
Dernière édition:
Trier par date Trier par votes
Re : Ajouter un second critère en VBA

Bonjour GuillaumA,

Lorsque j'affiche A en M19, la ligne de la feuil 2 dans laquelle B ou 0 s'affichent en colonne Q doit disparaître
Lorsque j'affiche B en M19, la ligne de la feuil 2 dans laquelle A ou 0 s'affichent en colonne Q doit disparaître
Cliquez pour agrandir...

Trop fort 😱
L'aspirine est offerte, j'espère 😉

Relis ces 2 phrases et dis-nous franchement si tu trouves ça compréhensible

Allez, un essai quand même :

Code: 
For i = 5 To .Cells(Rows.Count, 15).End(xlUp).Row
.Rows(i).Hidden = (.Cells(i, 15) = Var or .Cells(i, 15) = 0)
Next i

Edit : Bonjour Pierrot 😉
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Ajouter un second critère en VBA

Bonsoir Guillaume,

pas tout compris, peut être ainsi :
Code: 
Select Case Range("M19")
Case "A"[B][COLOR="Red"], 0[/COLOR][/B]
Var = "B"
Case "B"
Var = "A"
Case Else
Var = ""
End Select

bonne soirée
@+

Edition : bonsoir toto
 
Vote positif 0 Vote négatif
Re : Ajouter un second critère en VBA

Oui je sais fin de journée oblige =)

J'ai essayé d'être le plus compréhensible possible, mais je pars tellement loin dans mes mixs de centaines de fonctions imbriqués les une dans les autres et toutes touchés par des macros que moi même je m'y perd...

Merci pour vos rep. Je test ça de suite et j'edit ce post si c'est Ok.

Cordialement,
Guillaume A.
 
Vote positif 0 Vote négatif
Re : Ajouter un second critère en VBA

Et le plus près était.... toto !!!!
Bravo à ce dernier =). Désolé Pierrot, tu restes quand même un repère. Et puis j'avoue que la question était mal expliqué.
Merci à vous deux!

La solution
Private Sub Worksheet_Change(ByVal Target As Range) 'Modify list according to type (A, B)
If Intersect(Target, Range("M19")) Is Nothing Then Exit Sub
With Sheets("Feuil2")
.Rows.Hidden = False
Select Case Range("M19")
Case "A"
Var = "B"
Case "B"
Var = "A"
Case Else
Var = ""
End Select
For i = 5 To .Cells(Rows.Count, 15).End(xlUp).Row
.Rows(i).Hidden = (.Cells(i, 15) = Var Or .Cells(i, 15) = "0")
Next i
End With
End Sub
Cliquez pour agrandir...

@++
Guillaume
 
Vote positif 0 Vote négatif
Re : Ajouter un second critère en VBA

Re bonjour,
J'ai modifié ma macro pour qu'elle valide une seconde condition.

Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, Range("M19")) Is Nothing Then Exit Sub
With Sheets("Feuil2")
.Rows.Hidden = False
Select Case Range("M19")
Case "A"
Var = "B"
Case "B"
Var = "A"
End Select
For i = 5 To .Cells(Rows.Count, 15).End(xlUp).Row
.Rows(i).Hidden = (.Cells(i, 15) = Var Or .Cells(i, 15) = "0")
Next i
End With

'Ici manque une transition... Mais laquelle ? (petit a petit je m'améliore mais j'ai toujours des lacunes de base...)

If Intersect(Target, Range("M21")) Is Nothing Then Exit Sub
With Sheets("Feuil2")
.Rows.Hidden = False
Select Case Range("M21")
Case "F"
Var = ("G" Or "P" Or "I" Or "C")
Case "G"
Var = ("F" Or "P" Or "I" Or "C")
Case "P"
Var = ("G" Or "F" Or "I" Or "C")
Case "I"
Var = ("G" Or "P" Or "F" Or "C")
Case "C"
Var = ("G" Or "P" Or "I" Or "F")
End Select
For i = 5 To .Cells(Rows.Count, 14).End(xlUp).Row
.Rows(i).Hidden = (.Cells(i, 14) = Var Or .Cells(i, 14) = "0")
Next i
End With
End Sub
Cliquez pour agrandir...

Mon problème est que la première partie s'active normalement, mais pas la seconde. Comment faire pour qu'elle s'active?

Bon réveil à tous!

Cordialement,
Guillaume A.
 
Vote positif 0 Vote négatif
Re : Ajouter un second critère en VBA

🙂 Bonjour GuillaumA, Pierrot, tototiti2008,
Essai :
Code: 
[COLOR=blue]Private Sub[/COLOR] Worksheet_Change([COLOR=blue]ByVal[/COLOR] Target [COLOR=blue]As[/COLOR] Range)
[COLOR=blue]If Not[/COLOR] Intersect(Target, Range("M19")) [COLOR=blue]Is Nothing Then[/COLOR]
    [COLOR=blue]With[/COLOR] Sheets("Feuil2")
        .Rows.Hidden = [COLOR=blue]False[/COLOR]
        [COLOR=blue]Select Case[/COLOR] Range("M19")
            [COLOR=blue]Case[/COLOR] "A"
                Var = "B"
            [COLOR=blue]Case[/COLOR] "B"
                Var = "A"
        [COLOR=blue]End Select[/COLOR]
        [COLOR=blue]For[/COLOR] i = 5 [COLOR=blue]To[/COLOR] .Cells(Rows.Count, 15).End(xlUp).Row
            .Rows(i).Hidden = (.Cells(i, 15) = Var [COLOR=blue]Or[/COLOR] .Cells(i, 15) = "0")
        [COLOR=blue]Next[/COLOR] i
    [COLOR=blue]End With[/COLOR]
[COLOR=blue]End If[/COLOR]
[COLOR=blue]If Not[/COLOR] Intersect(Target, Range("M21")) [COLOR=blue]Is Nothing Then[/COLOR]
    [COLOR=blue]With[/COLOR] Sheets("Feuil2")
        .Rows.Hidden = [COLOR=blue]False[/COLOR]
        [COLOR=blue]Select Case[/COLOR] Range("M21")
            [COLOR=blue]Case[/COLOR] "F"
                Var = ("G" [COLOR=blue]Or[/COLOR] "P" [COLOR=blue]Or[/COLOR] "I" [COLOR=blue]Or[/COLOR] "C")
            [COLOR=blue]Case[/COLOR] "G"
                Var = ("F" [COLOR=blue]Or[/COLOR] "P" [COLOR=blue]Or[/COLOR] "I" [COLOR=blue]Or[/COLOR] "C")
            [COLOR=blue]Case[/COLOR] "P"
                Var = ("G" [COLOR=blue]Or[/COLOR] "F" [COLOR=blue]Or[/COLOR] "I" [COLOR=blue]Or[/COLOR] "C")
            [COLOR=blue]Case[/COLOR] "I"
                Var = ("G" [COLOR=blue]Or[/COLOR] "P" [COLOR=blue]Or[/COLOR] "F" [COLOR=blue]Or[/COLOR] "C")
            [COLOR=blue]Case[/COLOR] "C"
                Var = ("G" [COLOR=blue]Or[/COLOR] "P" [COLOR=blue]Or[/COLOR] "I" [COLOR=blue]Or[/COLOR] "F")
        [COLOR=blue]End Select[/COLOR]
        [COLOR=blue]For[/COLOR] i = 5 [COLOR=blue]To[/COLOR] .Cells(Rows.Count, 14).End(xlUp).Row
            .Rows(i).Hidden = (.Cells(i, 14) = Var [COLOR=blue]Or[/COLOR] .Cells(i, 14) = "0")
        [COLOR=blue]Next[/COLOR] i
    [COLOR=blue]End With[/COLOR]
[COLOR=blue]End If[/COLOR]
[COLOR=blue]End Sub[/COLOR]
Cordialement
 
Vote positif 0 Vote négatif
Re : Ajouter un second critère en VBA

Re
Il doit te manquer un End With.
Le vrai problème est dans le econde partie de ta macro.
On ne peut pas déclarer un variable avec
Code: 
Var = ("G" Or "P" Or "I" Or "C")
Que veux tu faire exactement ?
Cordialement
 
Vote positif 0 Vote négatif
Re : Ajouter un second critère en VBA

Re,

Efgé à dit:
Re
Il doit te manquer un End With.
Le vrai problème est dans le econde partie de ta macro.
On ne peut pas déclarer un variable avec
Code: 
Var = ("G" Or "P" Or "I" Or "C")
Que veux tu faire exactement ?
Cordialement
Cliquez pour agrandir...

Je veux pour
Case "F"
Var = ("G" Or "P" Or "I" Or "C")
Cliquez pour agrandir...
Que lorsque je valide F dans la case M21, les lignes de la colonne 14 avec les valeur G, P, I et C disparaissent.
Je sais que cela marche lorsque Var = une seule condition (ex: "G") mais je ne sais pas si cela marche avec plusieurs conditions.
J'essaie de faire comme cela pour réduire au mieux la taille de la macro.
Existe t'il une solution?

PS: J'ai tous mes End With (tout du moins à mes yeux)
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Ajouter un second critère en VBA

Re
Essai ceci:
Code: 
[COLOR=blue]Private Sub[/COLOR] Worksheet_Change([COLOR=blue]ByVal[/COLOR] Target [COLOR=blue]As[/COLOR] Range)
[COLOR=blue]If Not[/COLOR] Intersect(Target, Range("M19")) [COLOR=blue]Is Nothing Then[/COLOR]
    [COLOR=blue]With[/COLOR] Sheets("Feuil2")
        .Rows.Hidden = [COLOR=blue]False[/COLOR]
        [COLOR=blue]Select Case[/COLOR] Range("M19")
            [COLOR=blue]Case[/COLOR] "A"
                Var = "B"
            [COLOR=blue]Case[/COLOR] "B"
                Var = "A"
        [COLOR=blue]End Select[/COLOR]
        [COLOR=blue]For[/COLOR] i = 5 [COLOR=blue]To[/COLOR] .Cells(Rows.Count, 15).End(xlUp).Row
            .Rows(i).Hidden = (.Cells(i, 15) = Var [COLOR=blue]Or[/COLOR] .Cells(i, 15) = "0")
        [COLOR=blue]Next[/COLOR] i
    [COLOR=blue]End With[/COLOR]
[COLOR=blue]End If[/COLOR]
[COLOR=blue]If Not[/COLOR] Intersect(Target, Range("M21")) [COLOR=blue]Is Nothing Then[/COLOR]
    [COLOR=blue]With[/COLOR] Sheets("Feuil2")
        .Rows.Hidden = [COLOR=blue]False[/COLOR]
        [COLOR=blue]Select Case[/COLOR] Range("M21")
            [COLOR=blue]Case[/COLOR] "F"
               Var = "G,P,I,C,0,"
            [COLOR=blue]Case[/COLOR] "G"
                Var = "F,P,I,C,0,"
            [COLOR=blue]Case[/COLOR] "P"
                Var = "G,F,I,C,0,"
            [COLOR=blue]Case[/COLOR] "I"
                Var = "G,P,F,C,0,"
            [COLOR=blue]Case[/COLOR] "C"
                Var = "G,P,I,F,0,"
        [COLOR=blue]End Select[/COLOR]
        [COLOR=blue]For[/COLOR] i = 5 [COLOR=blue]To[/COLOR] .Cells(Rows.Count, 14).End(xlUp).Row
            [COLOR=blue]If[/COLOR] InStr(Var, .Cells(i, 14) & ",") <> 0 [COLOR=blue]And[/COLOR] .Cells(i, 14) <> "" [COLOR=blue]Then[/COLOR]
                .Rows(i).Hidden = [COLOR=blue]True[/COLOR]
            [COLOR=blue]End If[/COLOR]
        [COLOR=blue]Next[/COLOR] i
    [COLOR=blue]End With[/COLOR]
[COLOR=blue]End If[/COLOR]
[COLOR=blue]End Sub[/COLOR]
Cordialement
 
Vote positif 0 Vote négatif
Re : Ajouter un second critère en VBA

Re Efgé,

J'avais oublié un End If.
Besoin de manger et tout de suite les choses sont plus claires! 🙂
Ta formulation marche parfaitement.

Un énorme merci à toi!

Ci-joint ton classeur avec un peu plus de lisibilité et une minuscule correction dans le code (tu avais oublié une virgule après le premier 0), histoire de faire partager les bonnes choses.

@++
Guillaume A.
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
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

J
  • Question Question
XL 2021 Etiquette d'un Userform - bizarreries des propriétés modifiées par VBA
Réponses
6
Affichages
201
patricktoulon
patricktoulon
L
  • Résolu(e)
Microsoft 365 Erreur d'exécution 1004 : la méthode select de la classe Worksheet a échoué
Réponses
7
Affichages
261
LaurentVasseur
L
N
  • Question Question
XL 2010 fichier généré par IA ne fonctionne pas ( RESOLU )
2
Réponses
16
Affichages
888
n_turf
N
S
  • Résolu(e)
XL 2021 enregistrer xltm en xlsm avec chemin automatiquement
2
Réponses
27
Affichages
589
TooFatBoy
TooFatBoy
A
  • Question Question
XL 2010 Filtrer un Combobox en VBA excel
2 3
Réponses
43
Affichages
3 K
Dranreb
Dranreb
U
  • Question Question
Autres [RÉSOLU] macro à modifier
Réponses
1
Affichages
617
un internaute
U
piga25
  • Résolu(e)
XL 2016 En VBA, Automatiser la réponse en fonction de l'état d'une cellule.
Réponses
7
Affichages
870
piga25
piga25
A
  • Résolu(e)
XL 2019 Remplacer un mot et ajouter une couleur
Réponses
7
Affichages
610
Attila451
A
pascal21
  • Question Question
XL 2016 intégrer une macro sur les nouvelles feuilles crées
Réponses
6
Affichages
228
pascal21
pascal21
anthoYS
  • Résolu(e)
XL 2019 Adapter ce code, et améliorer le tableau avec graphique à l'année à y insérer ?
Réponses
4
Affichages
479
sylvanu
sylvanu
anthoYS
  • Résolu(e)
XL 2019 Insérer un commentaire prêt à saisir de B à X sans limite... (excepté en ligne 1 ; taille de commentaire Ok déjà voir code VB en B*)
Réponses
7
Affichages
263
Nicolas JACQUIN
Nicolas JACQUIN
N
  • Question Question
Microsoft 365 gestion de kilometrage
Réponses
4
Affichages
476
nabilexcel2007
N
G
  • Question Question
Autres excel vba cellule aléatoires non vides
Réponses
3
Affichages
193
danielco
D
A
  • Question Question
XL 2019 Copie d'une valeur dans la cellule à côté d'une valeur trouvé
Réponses
1
Affichages
583
sylvanu
sylvanu
U
  • Question Question
Autres [RÉSOLU] Compléter macro pour Suppr cellules
Réponses
7
Affichages
455
un internaute
U
U
  • Question Question
Autres [RÉSOLU] Compléter la macro mais comment et où?
Réponses
2
Affichages
740
un internaute
U
J
  • Question Question
Microsoft 365 Probléme VBA
Réponses
8
Affichages
587
jalaba
J
S
  • Résolu(e)
Microsoft 365 Déclenchement macro en série suite à cellule fusionnées
Réponses
3
Affichages
534
spike29
S
L
  • Question Question
Microsoft 365 Erreur automation 440 sur code VBA
Réponses
1
Affichages
396
job75
job75
Eric 888
  • Question Question
Microsoft 365 Excel VBA: manipuler des fichiers partagés via Teams / Sharepoint
Réponses
2
Affichages
121
Eric 888
Eric 888
Retour