recoverybis
XLDnaute Nouveau
Bonjour tout le monde,
Encore fois, j’ai besoin de la compétence des initiés en VBA car une partie du code utilisé dans ma macro plante. La première fonction très bien ça consiste à sélectionner la feuille active et toutes les autres à droite sachant que c’est un planning de cantine organisé en semaine donc il contient 52 onglets, très pratique. En revanche, la seconde partie qui dissocie l’ensemble bug alors merci à tous ceux qui pourront se pencher un instant sur mon problème.
Voici les codes
Partie 1 OK
Sub SelectPages()
Dim i As Integer, x As Integer
ReDim TIndex(Worksheets.Count - ActiveSheet.Index)
For i = ActiveSheet.Index To Worksheets.Count
TIndex(x) = i
x = x + 1
Next
Worksheets(TIndex).Select
End Sub
Partie 2 Bug
Sub DeSelectPages()
Worksheets(TIndex).Select Replace:=False
Worksheets(TIndex(0)).Select
End Sub
Encore fois, j’ai besoin de la compétence des initiés en VBA car une partie du code utilisé dans ma macro plante. La première fonction très bien ça consiste à sélectionner la feuille active et toutes les autres à droite sachant que c’est un planning de cantine organisé en semaine donc il contient 52 onglets, très pratique. En revanche, la seconde partie qui dissocie l’ensemble bug alors merci à tous ceux qui pourront se pencher un instant sur mon problème.
Voici les codes
Partie 1 OK
Sub SelectPages()
Dim i As Integer, x As Integer
ReDim TIndex(Worksheets.Count - ActiveSheet.Index)
For i = ActiveSheet.Index To Worksheets.Count
TIndex(x) = i
x = x + 1
Next
Worksheets(TIndex).Select
End Sub
Partie 2 Bug
Sub DeSelectPages()
Worksheets(TIndex).Select Replace:=False
Worksheets(TIndex(0)).Select
End Sub