Erreur de type 13 Incompatibilité de type

Bonjour

J'ai un soucis au niveau de mon excel, tout fonctionnait bien auparavant et mtn, j'ai cette erreur

Function onlydigits(S As String) As String
    Dim retval As String
    Dim i As Integer

    retval = ""

    For i = 1 To Len(S)
        If IsNumeric(Mid(S, i, 1)) Then
            retval = retval + Mid(S, i, 1)
        End If
    Next

    onlydigits = retval
End Function
Private Sub btn_loockup_Click()
    'MsgBox lookuporigin
    'Loockup for the event log and if exist open a new form to input/update the completion date, text
    row_number = 3
    veventid = CLng(onlydigits(txt_actionID.Text))
    'MsgBox "digit only: " & vactionid
    Do
    DoEvents
        row_number = row_number + 1
        item_in_review = Sheets("Event Log").Range("B" & row_number)
        vstatus = Sheets("Event Log").Range("AG" & row_number)
        eventprefix = Sheets("Event Log").Range("A" & row_number)
        If Sheets("Event Log").Range("G" & row_number) = "" Then
            prod_code = Sheets("Event Log").Range("E" & row_number)
        Else
            prod_code = Sheets("Event Log").Range("G" & row_number)
        End If
        If Sheets("Event Log").Range("H" & row_number) = "" Then
            prod_lot = Sheets("Event Log").Range("F" & row_number)
        Else
            prod_lot = Sheets("Event Log").Range("H" & row_number)
        End If
    'Update 11/jul/2017 Using the same lookup for to point to different sub form according if it's an action change, a REB or DRG request
            If lookuporigin = "event" Then
                If item_in_review = veventid And vstatus <> 1 Then
                    'MsgBox "Demande trouvée - " & vactionid & ""
                    'if record found open ActionCompletion form
                    Unload Me
                    Action.Show
                    Exit Sub
                End If
            ElseIf lookuporigin = "REB" Then
                If item_in_review = veventid Then
                    'MsgBox "Demande trouvée REB- " & eventprefix & "-" & veventid & ""
                    'if record found open ActionCompletion form
                    Unload Me
                    REB.Show
                    Exit Sub
                End If
            ElseIf lookuporigin = "DRG" Then
                If item_in_review = veventid Then
                    'MsgBox "Demande trouvée DRG- " & veventid & ""
                    'if record found open ActionCompletion form
                    Unload Me
                    DRG.Show
                    Exit Sub
                End If
            End If
    Loop Until item_in_review = ""
    MsgBox "Event non trouvée ou déjà cloturée!"
    eventprefix = ""
    prod_code = ""
    prod_lot = ""
    Unload Me
End Sub

Private Sub Rebutonly_Click()
            'Update 01/12/2017 add button rebut only
        Unload Me
        REB.Show
        Exit Sub
End Sub

L'erreur se situe au niveau du Action.Show

L'userform se nomme bien comme cela.. par contre les autres userform REB et DRG fonctionne correctement. Je suis bloqué

Merci pour l'aide

Bonjour,

Ton vba est protégé par mot de passe.

Par contre au clic sur le bouton "Actions d'un Event" :

- Si on ne renseigne pas de numéro dans la case ID alors erreur 13 si on tente de cliquer sur rechercher.

-Si l'ID est renseigné alors ... Message box Event non trouvée ou déjà cloturée ! ( ... çà ferait mieux sans le e à cloturée )

pas testé tous les numéros pour en trouver 1 valide.

Faudrait ajouter 2 ou 3 ligne de code pour empêcher l'exécution de ta macro rechercher tant que la textbox ID n'est pas renseignée.

Le mdp est ISO

En fait il faut aller dans l'autre feuille pour voir un E ou D non clôturé mais dans tous les cas quand on rentre un E ou D non clôturé, on a quand meme le msg de type 13 :( Essaie de rentrer soit D-20419 ou 20419

J'ai repris cet excel VBA qui a été codé par une autre personne et qui ne code absolument pas comme moi et qui ne rentre pas autant d'info que moi du coup, j'ai vachement du mal a trouver l'erreur

le bug dans le code se situe à ce niveau la

If lookuporigin = "event" Then
                If item_in_review = veventid And vstatus <> 1 Then
                    'MsgBox "Demande trouvée - " & vactionid & ""
                    'if record found open ActionCompletion form
                    Unload Me
                    Action.Show
                    Exit Sub
                End If

Action.Show qui fait je pense référence à un userform du meme nom