Private Sub OK_Click() Dim LigF As Long, sCode As String
' Mémoriser le code
sCode = Me.NumCC
' vérifier que le code a été saisi
If sCode = "" Then
MsgBox "Il faut saisir un code"
Exit Sub
End If
' Si oui, rechercher si n'existe pas déjà
With Sheets("CC")
On Error Resume Next ' Evite le message d'erreur
LigF = 0 ' Mettre à zéro le numéro de ligne trouvé
' Chercher si la valeur existe en revoyant le numéro de ligne trouvé
LigF = .Range("B:B").Find(What:=sCode, LookIn:=xlValues, LookAt:=xlPart, _
SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Row
On Error GoTo 0 ' Remettre les messages d'erreur
End With
' Si le numéro de ligne est différend de zéro = trouvé
If LigF <> 0 Then
MsgBox "Il semblerait que ce centre de coût existe déjà. Merci de vérifier votre saisie."
Exit Sub
End If
End Sub