Problème as if Len

bonjour a tous

Besoin d'aide

IF Len ne fonctionne pas je ne sais pas pourquoi SVP help

Private Sub BtWorker_Click()

    If Len(Me.CBCompany) = "" Then
    Me.LblError = "Choice Company"
    Me.CBCompany.SetFocus
    ElseIf Len(Me.Txt_Nom) = "" Then
    Me.LblError = "Enter a last name"
    Me.Txt_Nom.SetFocus
    ElseIf Len(Me.Txt_Prenom) = "" Then
    Me.LblError = "Enter a Name"
    Me.Txt_Prenom.SetFocus
    ElseIf Len(Me.TXT_NID) = "" Then
    Me.LblError = "Enter ID number"

    Else
        Dim a As Range
        Set a = Comp.Range("ListComp").Find(CBCompany.Value)
            Sheets("Comp").Activate
                Select Case a
                    Case "ATALIAN"
                        Range("B10").Select
                    Case "VEOLIA"
                        Range("H10").Select
                    Case "BRUNONIELS"
                        Range("N10").Select
                    Case "SIPWELL"
                        Range("T10").Select
                    Case "OTHERS"
                        Range("Z10").Select
                End Select
            Selection.End(xlDown).Select
            Selection.Offset(1, 0).Select
            ActiveCell = ActiveCell.Offset(-1, 0).Value + 1
            ActiveCell.Offset(0, 1).Value = Txt_Nom & " " & Txt_Prenom
            ActiveCell.Offset(0, 2).Value = Txt_Nom
            ActiveCell.Offset(0, 3).Value = Txt_Prenom
            ActiveCell.Offset(0, 4).Value = TXT_NID
        If CBCompany = "OTHERS" Then
        ActiveCell.Offset(0, 5).Value = TxtNameOTher
        Range("AG10").Select
        Selection.End(xlDown).Select
        Selection.Offset(1, 0).Select
        ActiveCell = ActiveCell.Offset(-1, 0).Value + 1
        ActiveCell.Offset(0, 1).Value = Txt_Nom & " " & Txt_Prenom
        ActiveCell.Offset(0, 2).Value = TXT_NID
        End If
    End If
    Sheets("Report").Activate
    Unload Me
End Sub

Hello,

Renvoie un Long contenant le nombre de caractères d’une chaîne ou le nombre d’octets requis pour stocker une variable.

Ci-dessus la doc de microsoft.

Donc c'est soit :

If Len(Me.CBCompan) > 0 then 

ou soit :

If Me.CBCompany = "" Then

Oki je test ça demain

ca marche toujours pas

j'ai mal car sur un autre userforme ca marche

la seul différence c'est qu'il n y as pas de select case dans le else

en touchant au code et en enlevants les lignes blanches ca remarches non mais la blagues