Bouton de commande VBA

Bonjour,

J'aimerai mettre en en place un bouton qui me permettrai d'afficher la seconde page si celle-ci est remplie correctement.

Je m'explique sur cet Excel je possède des machines que je vérifie tous les jours afin de mettre les conformités et les non conformités. (Image)

si une non conformité est présente une case doit être remplie afin d'expliquer sa non conformité mais souvent celle-ci est oublié. J'aimerai alors mettre en place un bouton qui empêcherai de passer à la page suivante si cette case n'est pas remplie lorsqu'ils y a des Non conformités.

Je suis nulle en terme d'Excel.

Pouvez vous m'aider ?

Bonne journée à vous

Bonjour Emedr

Peux-tu joindre un petit fichier à titre d'exemple ?...

Perso, je ne peux pas travailler dans le "vide" ...

Merci

Oh désolé, voici un exemple en pièce jointe

Merci à vous de m'aider

Salut Emedr,

Salut Patty,

une idée, peut-être, avec Workbook_SheetDeactivate ?

Encoder "NC" inscrit d'office la date dans le tableau d'explications.

La macro vérifie que l'explication se trouve en place pour accepter le changement de feuille : pas besoin de bouton !

Il y a encore beaucoup de taf' avant de finaliser, évidemment !

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
'
With Sh
    sSHeet = ActiveSheet.Name
    If Target = "NC" Then
        iRow = .Range("C" & Rows.Count).End(xlUp).Row + 1
        .Range("C" & iRow).Value = Date
    End If
End With
'
End Sub

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
'
With Sh
    iRow = .Range("C" & Rows.Count).End(xlUp).Row
    If .Range("C" & iRow).Value <> "" And .Range("G" & iRow).Value = "" Then
        MsgBox "Erreur dans " & sSHeet
        Worksheets(sSHeet).Activate
    End If
End With
'
End Sub

A+