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

Microsoft 365 plusieurs conditions dans "for each"

Créer une discussion

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
A

Alain 7633

XLDnaute Nouveau
Bonjour,

je cherche à afficher dans un TCD un liste de 5 choix.
Je commence par donner un valeur à mes variables :
--------------
Dim monPivIt As Object, Mavariable
Mavariable1 = ThisWorkbook.Sheets("p11").Range("c4").Value
Mavariable2 = ThisWorkbook.Sheets("p11").Range("c5").Value
Mavariable3 = ThisWorkbook.Sheets("p11").Range("c6").Value
Mavariable4 = ThisWorkbook.Sheets("p11").Range("c7").Value
Mavariable5 = ThisWorkbook.Sheets("p11").Range("c8").Value
--------------

puis j'affiche tous les choix :
--------------
With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("magasin")
For Each monPivIt In .PivotItems
monPivIt.Visible = True
Next
On Error Resume Next
--------------

jusque là tout va bien,
ensuite je veux tout décocher sauf mes 5 variables,
lorsque je ne mets qu'une variable ça fonctionne :
--------------
For Each monPivIt In .PivotItems
If monPivIt.Name <> Mavariable1 Then monPivIt.Visible = False
Next
--------------
lorsque j'essaie d'en mettre plusieurs, ça ne fonctionne plus,
j'ai essayé plusieurs syntaxes :
--------------
If (monPivIt.Name <> Mavariable1) Or (monPivIt.Name <> Mavariable2) Then monPivIt.Visible = False
If (monPivIt.Name <> Mavariable1 Or Mavariable2) Then monPivIt.Visible = False
--------------

Merci d'avance !
 
Solution
Dranreb
Bonjour.
Il faut des And, pas des Or. Réfléchissez: dès qu'il y a plus d'une condition l'expression est forcément toujours fausse puisque si l'une est vraie, forcément l'autre est fausse.
En plus ça peut s'écrire plus simplement dans une seule boucle :
VB: 
mmonPivIt.Visible = monPivIt.Name = Mavariable1 Or monPivIt.Name = Mavariable2
Trier par date Trier par votes
Bonjour.
Il faut des And, pas des Or. Réfléchissez: dès qu'il y a plus d'une condition l'expression est forcément toujours fausse puisque si l'une est vraie, forcément l'autre est fausse.
En plus ça peut s'écrire plus simplement dans une seule boucle :
VB: 
mmonPivIt.Visible = monPivIt.Name = Mavariable1 Or monPivIt.Name = Mavariable2
 
Vote positif 0 Vote négatif
Solution
Bonjour @Dranreb,
Merci,
ça fonctionne ainsi :
-------------------
Sub test()
Dim monPivIt As Object, Mavariable
Mavariable1 = ThisWorkbook.Sheets("p11").Range("c4").Value
Mavariable2 = ThisWorkbook.Sheets("p11").Range("c5").Value
Mavariable3 = ThisWorkbook.Sheets("p11").Range("c6").Value
Mavariable4 = ThisWorkbook.Sheets("p11").Range("c7").Value
Mavariable5 = ThisWorkbook.Sheets("p11").Range("c8").Value
'Application.ScreenUpdating = False
With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("magasin")

For Each monPivIt In .PivotItems
monPivIt.Visible = True
Next
On Error Resume Next
For Each monPivIt In .PivotItems
If (monPivIt.Name <> Mavariable1) And (monPivIt.Name <> Mavariable2) And (monPivIt.Name <> Mavariable3) And (monPivIt.Name <> Mavariable4) And (monPivIt.Name <> Mavariable5) Then monPivIt.Visible = False
Next
End With
'Application.ScreenUpdating = True
End Sub
-------------------

Merci pour la proposition d'un seule boucle : ça fonctionne 🙂
 
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

  • Résolu(e)
XL 2021 Exécuter une macro sur plusieurs feuilles
Réponses
9
Affichages
387
micie1509
G
  • Résolu(e)
XL 2016 Pb de tri et sous totaux
2
Réponses
27
Affichages
334
Gestionnaire_rh
G
  • Question Question
XL 2010 Comment lire array dans item dictionnaire
2 3
Réponses
33
Affichages
2 K
cathodique
G
  • Question Question
Microsoft 365 Export données
Réponses
4
Affichages
503
GClaire
G
  • Question Question
XL 2016 annulation ou désactivation de macro
2
Réponses
25
Affichages
345
job75
T
  • Résolu(e)
XL 2019 Filtrer certains champs au démarrage avec vba
2
Réponses
15
Affichages
176
telemarrk
T
C
  • Question Question
XL 2016 accès feuilles masquées par bouton
2
Réponses
26
Affichages
471
vgendron
M
  • Question Question
XL 2013 MACRO VBA pour imprimer tous les bulletins d'un établissement scolaire
Réponses
4
Affichages
305
MBEPID
M
F
  • Résolu(e)
Microsoft 365 Evènement worksheet_change
Réponses
2
Affichages
67
Francky79
F
S
  • Question Question
XL 2016 Pilotage TCD via Textbox dynamique
2
Réponses
22
Affichages
831
goube
S
  • Résolu(e)
Microsoft 365 Déclenchement macro en série suite à cellule fusionnées
Réponses
3
Affichages
43
spike29
S
G
  • Résolu(e)
XL 2019 macro pour masquer puis afficher colonnes a la demande
Réponses
4
Affichages
165
Phil69970
T
  • Résolu(e)
XL 2016 macro et feuille protégé
2
Réponses
18
Affichages
736
laurent950
J
  • Résolu(e)
XL 2021 insertion d'image provenant d'unecellule dans un userform
2
Réponses
22
Affichages
269
vgendron
I
  • Résolu(e)
Microsoft 365 Copier-coller dans une plage avec des cellules masquées
Réponses
6
Affichages
215
sylvanu
  • Question Question
Microsoft 365 Méthode Evaluate pour se dispenser d'une boucle imbriquée
Réponses
14
Affichages
396
patricktoulon
A
  • Question Question
VBA qui fonctionnait avant, mais ne fonctionne plus avec le 64 bits
Réponses
2
Affichages
219
patricktoulon
  • Question Question
XL 2013 Réduire un code
Réponses
0
Affichages
538
chaelie2015
S
  • Question Question
Microsoft 365 VBA pour copier une une des données d'une ligne à une autre
Réponses
3
Affichages
669
salma_hayek
S
A
  • Question Question
insertion d'une ligne automatique dans un tableau excel.
Réponses
1
Affichages
335
sylvanu
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…