[XL-2007] Macro page suivante si condition

Bonjour, voici une possibilité. Il faudra évidemment créer un bouton sur chaque feuille et leur affecter la macro. Si tu as beaucoup de feuilles, je trouve ça un peu fastidieux, dans ce cas je te suggère d'ajouter un bouton sur le ruban,
comme ça même si tu ajoutes des feuilles par la suite, tu ne dois pas te préoccuper d'ajouter un bouton.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
Sub BoutonSuivant()
    'Déclarer les variables
    Dim FeuilleActuelle As Worksheet
    Dim FeuilleSuivante As Worksheet
    Dim CellulesAVerifier As Range
    Dim Cellule As Range
    Dim CellulesNonVides As Integer
 
    'Affecter les variables
    Set FeuilleActuelle = ActiveSheet
    Set CellulesAVerifier = FeuilleActuelle.Range("A1,B1,C1,D1") ' à adapter
 
    'Compter le nombre de cellules non vides
    CellulesNonVides = 0
    For Each Cellule In CellulesAVerifier
        If Cellule <> "" Then
            CellulesNonVides = CellulesNonVides + 1
        End If
    Next Cellule
 
    'Vérifier si le nombre de cellules non vides est égal à 4
    If CellulesNonVides = 4 Then
        'Trouver la feuille suivante non masquée
        Do
            Set FeuilleSuivante = FeuilleActuelle.Next
 
            If FeuilleSuivante Is Nothing Then
                'Si on arrive à la dernière feuille, revenir à la première
                Set FeuilleSuivante = Worksheets(1)
                Exit Do
            ElseIf FeuilleSuivante.Visible = xlSheetHidden Or FeuilleSuivante.Visible = xlSheetVeryHidden Then
                ' Si on arrive à une feuille masquée, on passe à la suivante
                Set FeuilleSuivante = FeuilleSuivante.Next
                Exit Do
            End If
 
        Loop
        'Activer la feuille suivante
        FeuilleSuivante.Activate
    Else
        'Afficher un message pour remplir les cellules
        MsgBox "Veuillez remplir les cellules A1, B1, C1 et D1 avant de passer à la page suivante.", vbInformation, "Attention"
    End If
 
End Sub