Besoin d'un conseil pour une boucle
Cailloux50
Messages postés
79
Date d'inscription
Statut
Membre
Dernière intervention
-
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention -
Bonjour dans mon code si dessous j'aimerais que la variable j ne prenne comme valeur 1, 3, 5, 7.
Sub macro4()
Dim i As Long
Dim j As Long
Sheets("Feuil1").Select
For j = 1 To 2
valD1 = Range("D1").Value
ActiveSheet.PivotTables("Tableau croisé dynamique" & j).PivotFields("Mois"). _
CurrentPage = "(All)"
With ActiveSheet.PivotTables("Tableau croisé dynamique" & j).PivotFields("Mois")
'on le met tous à false sauf le premier
For i = 2 To .PivotItems.Count - 1
.PivotItems(.PivotItems(i).Name).Visible = False
Next i
'on remet à true le nombre voulu
For i = 2 To valD1
If i <= .PivotItems.Count - 1 Then
.PivotItems(i).Visible = True
End If
Next i
End With
Next j
End Sub
A voir également:
- Besoin d'un conseil pour une boucle
- Boucle excel sans macro - Forum Excel
- Mon pc s'allume et s'éteint en boucle ✓ - Forum Matériel & Système
- Vlc lire en boucle ✓ - Forum Lecteurs et supports vidéo
- Mise à disposition de boucle locale dédiée ✓ - Forum Freebox
- Xiaomi s'éteint tout seul et se rallume en boucle - Forum Xiaomi
