Besoin d'un conseil pour une boucle

Fermé
Cailloux50 Messages postés 79 Date d'inscription jeudi 13 septembre 2018 Statut Membre Dernière intervention 10 août 2020 - 5 nov. 2018 à 12:11
f894009 Messages postés 17241 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 février 2025 - 5 nov. 2018 à 12:17
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

1 réponse

f894009 Messages postés 17241 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 février 2025 1 713
5 nov. 2018 à 12:17
Bonjour,
    fin = 15
     For j = 1 To fin Step 2
    Next j
0