Arret du Sub après If function

Bonjour à tous !

J'ai fait un petit code VBA pour un logiciel autre qu'Excel qui ne fonctionne pas... Je pense que j'ai du me planter quelque part mais je ne trouve pas ou (probablement parce que je débute en VBA).

En gros, avec un buttonclick sur un UserForm, je vérifie le type de document ouvert sur le logiciel (pièce ou dessin) avant de lancer la fonction. Si ce n'est pas le bon type, je veux arreter le sub, si c'est le bon on continue. Rien de difficile...

Pour reproduire le problème, j'ai fait un excel que je vous joint. Si B1 = 1 je veux écrire ok dans B6, si B1<>1, arret du Sub et mesage.

Si je met sur la vérification de la fonction dans le sub :

• True : le Sub continu même si B1 <>1, le Sub fonctionne si B1=1
• False : le Sub s'arrête si B1<>1, le Sub ne va pas au bout si B1=1

Function verification(valeur As Integer)

    If valeur = 1 Then
        If Range("B2").Value <> 1 Then
        MsgBox "Arret de la fonction 1"
        Exit Function
        End If
    End If

End Function

Private Sub CommandButton1_Click()

    Range("B5").Value = ""

    If verification(1) = True Then Exit Sub
    Range("B5").Value = "Ok"

End Sub

Bonjour,

en espérant que ça puisse aider :

Private Sub CommandButton1_Click()
    If verification(1) Then  'si vrai
        ' actions si vrai
        Range("B5").Value = "Ok"
     Else  'si faux
        'actions si faux
        MsgBox "Arret de la fonction 1"
          exit sub 'éventuellement
    End If
End Sub

Function verification(valeur As Integer) As Boolean
    If valeur = 1 Then
        If Range("B2").Value <> 1 Then      
            verification = False
        Else
            verification = True
        End If
    End If
End Function

ou

Function verification(valeur As Integer) As Boolean
    If valeur = 1 Then  verification = Range("B2").Value = 1
End Function

A+

Super merci !

C'était le "Vérification = True" dans la fonction qui me manquait !

oui et le type de retour de la fonction

Bonne suite