Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionNumEtape = 0 AfficheFrame
NumEtape =Numetape + 1 AfficheFrame
NumEtape = NumEtape - 1 AfficheFrame
Private Sub AfficheFrame() Dim i as Long If NumEtape <0 then NumEtape = 0 If NumEtape > 5 then NumEtape = 5 ' Suppose 6 étape 0 à 5 For i = 0 to 5 fraEtape(i).Visible = False Next fraEtape(NumEtape).Visible = True End Sub