[RESOLU] Ne pas executer un code si MSG Box

[maninwhite]

Bonjour à toute et à tous

Mon problème est le suivant

Lorsqu'une MSG Box apparait, j'aimerait que la suite du code ne soit pas executée

Ci dessous le code :

Private Sub CommandButton_sauvegarder_quitter_Click()

'Vérification de la réalisation du BOS, croisement Nom, prénom avec date

    If TextBox_service_associe = "Administration" Then

    Sheets("Administration").Select

    With Sheets("Administration")
        With .Cells(.Range("A:A").Find(TextBox_date).Row, .Range("1:1").Find(TextBox_nom_prenom).Column)
            If .Value = "" Then .Value = "X" Else MsgBox "Votre BOS a déjà été rempli pour cette semaine"
        End With
    End With
End If


Sheets("BOS_administration").Select
Range("B3") = ComboBox_comportement_ok_admin1
Range("B4") = ComboBox_comportement_ok_admin2

End Sub

Le but serait de ne pas exécuter le code

Sheets("BOS_administration").Select
Range("B3") = ComboBox_comportement_ok_admin1
Range("B4") = ComboBox_comportement_ok_admin2

si la MSG Box apparait

Merci😉

 

[kjin]

Re : Ne pas executer un code si MSG Box

Bonjour,

Private Sub CommandButton_sauvegarder_quitter_Click()
'Vérification de la réalisation du BOS, croisement Nom, prénom avec date
If TextBox_service_associe = "Administration" Then
    With Sheets("Administration")
        Set L = .Range("A:A").Find(CDate(TextBox_date))
        Set C = .Range("1:1").Find(TextBox_nom_prenom)
        If Not L Is Nothing And Not C Is Nothing Then
            With .Cells(L.Row, C.Column)
                If .Value = "" Then
                    .Value = "X"
                Else
                    MsgBox "Votre BOS a déjà été rempli pour cette semaine"
                    Exit Sub
                End If
            End With
        Else
            Exit Sub
        End If
    End With
End If
Sheets("BOS_administration").Select
Range("B3") = ComboBox_comportement_ok_admin1
Range("B4") = ComboBox_comportement_ok_admin2
End Sub

A+
kjin

 

[maninwhite]

Re : Ne pas executer un code si MSG Box

Merci à vous 2.

kjin, merci pour ton code, mais j'ai plutôt utilisé celui de masterdico afin d'éviter de trop modifier mon code.

Encore merci😛

 

[maninwhite]

Re : Ne pas executer un code si MSG Box

J'ai crié victoire trop vite Masterdico.

Malheureusement cela ne fonctionne aps j'ai une erreur avec le End if

Peu $etre que je place mal le code.

Pourrais tu l'écrire entièrement dans mon code du début à la fin?

Peu être me suis mal exprimé aussi.

Ce que je veux c'est que lorsque la cellule est remplie avec X je passe à la suite du code et que lorsque la cellule est déjà remplie avec X j'affiche un message d'erreur et que la suite du code ne puisse pas s'éxecuter...

 

[kjin]

Re : Ne pas executer un code si MSG Box

Re,

kjin, merci pour ton code, mais j'ai plutôt utilisé celui de masterdico afin d'éviter de trop modifier mon code.

Je ne l'ai pas modifié, mais juste complété pour gérer les erreurs et supprimer le "select" inutile....
Maintenamnt, si tu préfères

Private Sub CommandButton_sauvegarder_quitter_Click()

'Vérification de la réalisation du BOS, croisement Nom, prénom avec date
    
    If TextBox_service_associe = "Administration" Then

    Sheets("Administration").Select

    With Sheets("Administration")
        With .Cells(.Range("A:A").Find(TextBox_date).Row, .Range("1:1").Find(TextBox_nom_prenom).Column)
            If .Value = "" Then .Value = "X" Else: MsgBox "Votre BOS a déjà été rempli pour cette semaine"[COLOR="Blue"][B]: Exit Sub[/B][/COLOR]
        End With
    End With
End If


Sheets("BOS_administration").Select
Range("B3") = ComboBox_comportement_ok_admin1
Range("B4") = ComboBox_comportement_ok_admin2

End Sub

...tu vois je n'ai pas bougé un seul mot, juste fais le petit rajout !
A+
kjin

 

[maninwhite]

Re : Ne pas executer un code si MSG Box

Trop bon kjin 😛😛

Un simple petite : Exit sub et le tour est joué.😱

Un très grand merci.

 

[maninwhite]

Re : Ne pas executer un code si MSG Box

Effectivement, je l'ai comprs en relisant attentivement le code.

Merci à vous deux.