Fonction si dans une macro

Bonjour,
Et pourquoi ne pas donner un numéro de facture en mentionnant en plus le numéro du devis !

Salutations.
Le Pingou

Bonjour,
Un brin chinois votre affaire, est-il possible d'avoir votre code, en utilisant le fichier exemple de l'autre jour ?

Voici le lien du document : https://www.cjoint.com/?3CrwGAjja2O

je vous copie ci-joint le code :
Sub VERIF_NUM_DEV()

Dim NumDev As Integer

NumDev = InputBox("Quel est le numéro du devis à facturer ?")
Range("m10").Value = NumDev

Sheets("Facture - Client").Range("m11").FormulaLocal = "=RECHERCHEV(m10;Tableau16;1;0)"

If Range("m10").Value = Range("m11") Then
MsgBox ("Ce devis a déjà été facturé ! ")
Range("M10").Select
Selection.ClearContents

Else
Range("m10").Value = NumDev

End If
End Sub

Cela fonctionne très bien lorsque le devis a déjà été transformé mais lorsque ce n'est pas le cas la macro ne va pas jusqu'à la fin car il y a une erreur que je n'arrive pas à régler.

Bonjour,
Merci pour l'information, à première vue je pense qu'il faut modifier votre code, je dois tester avec votre fichier, patience.

Bonjour,
Essayez avec ce code :

Sub VERIF_NUM_DEV()
Dim NumDev As Integer
NumDev = InputBox("Quel est le numéro du devis à facturer ?")
Range("m10").Value = NumDev
Sheets("Facture - Client").Range("m11").FormulaLocal = "=RECHERCHEV(m10;Tableau16;1;0)"
If WorksheetFunction.IsNA(Range("m11")) Then
    MsgBox ("ce devis n'existe pas")
    Range("M11").ClearContents
    Exit Sub
ElseIf Range("m10").Value = Range("m11") Then
    MsgBox ("Ce devis a déjà été facturé ! ")
    Range("M10").Select
    Selection.ClearContents
Else
    Range("m10").Value = NumDev
End If
End Sub

Salutations.
Le Pingou