Invalid argument VBA error

AU secours J'ai passé deux jours à écrire un code pour un userform et tout d'un coup ... je ne comprens pas pourquoi j'ai un code d'erreur RUn time error ' -2147024809 Invalid Argument. qui apparaît quand je fais mon Form.show ...

je ne vois vraiment pas ou est l'erreur. comment puis je retrouver mon code qui marchait il y a une heure. MERCI :'(

Private Sub Bouton_Ajout_Click()

    Worksheets("Données Pipeline").Cells(range("AL25").Value + 1, 2).Value = Me.Cbox_DPME.Value

    If Me.DTPicker_Conclu.Visible = True Then
        Worksheets("Données Pipeline").Cells(range("AL25").Value + 1, 28).Value = Me.DTPicker_Conclu.Value
    Else
        Worksheets("Données Pipeline").Cells(range("AL25").Value + 1, 28).Value = ""

    End If
    If Me.DTPicker_NConclu.Visible = True Then
         Worksheets("Données Pipeline").Cells(range("AL25").Value + 1, 30).Value = Me.DTPicker_NConclu.Value
    Else
        Worksheets("Données Pipeline").Cells(range("AL25").Value + 1, 30).Value = ""
    End If

' modif volume
'    If Me.txt_CDCPModif.Visible = True Then
 '       Worksheets("Données Pipeline").Cells(range("AL25").Value + 1, 17).Value = Me.txt_CDCPModif.Value
'    End If

 '   If Me.Txt_CPAModif.Visible = True Then
 '       Worksheets("Données Pipeline").Cells(range("AL25").Value + 1, 18).Value = Me.Txt_CPAModif.Value
 '   End If

 '   If Me.Txt_FMUTModif.Visible = True Then
 '       Worksheets("Données Pipeline").Cells(range("AL25").Value + 1, 19).Value = Me.Txt_FMUTModif.Value
 '   End If

 '   If Me.txt_LCRModif.Visible = True Then
 '       Worksheets("Données Pipeline").Cells(range("AL25").Value + 1, 21).Value = Me.txt_LCRModif.Value
 '   End If

 '   If Me.Txt_MCRModif.Visible = True Then
 '       Worksheets("Données Pipeline").Cells(range("AL25").Value + 1, 22).Value = Me.Txt_MCRModif.Value
'    End If

 '   If Me.Txt_PATModif.Visible = True Then
 '       Worksheets("Données Pipeline").Cells(range("AL25").Value + 1, 18).Value = Me.Txt_PATModif.Value
 '   End If

 '   If Me.Txt_PHModif.Visible = True Then
 '       Worksheets("Données Pipeline").Cells(range("AL25").Value + 1, 18).Value = Me.Txt_PHModif.Value
 '   End If

  'conforme

    Dim myvar As String

    myvar = ""

    For i = 0 To Me.Lbox_conclu.ListCount - 1

    If Me.Lbox_conclu.Selected(i) Then
        If myvar = "" Then
            myvar = Me.Lbox_conclu.List(i, 0)

        Else

            myvar = myvar & "; " & Me.Lbox_conclu.List(i)

        End If
    End If

Next i

    If myvar = "" Then
        Worksheets("Données Pipeline").Cells(range("AL25").Value + 1, 27) = myvar
    Else
        Worksheets("Données Pipeline").Cells(range("AL25").Value + 1, 27) = myvar & "; "
    End If

'non conforme

    myvar = ""

    For i = 0 To Me.Lbox_nonconclu.ListCount - 1

    If Me.Lbox_nonconclu.Selected(i) Then
        If myvar = "" Then
            myvar = Me.Lbox_nonconclu.List(i, 0)

        Else

            myvar = myvar & "; " & Me.Lbox_nonconclu.List(i)

        End If
    End If

Next i

    If myvar = "" Then
        Worksheets("Données Pipeline").Cells(range("AL25").Value + 1, 29) = myvar
    Else
        Worksheets("Données Pipeline").Cells(range("AL25").Value + 1, 29) = myvar & "; "
    End If

End Sub

Private Sub Bouton_Annuler_Click()

    Unload Me

End Sub

Private Sub bouton_conclu_Click()

    Me.Lbox_conclu.Visible = True

End Sub

Private Sub bouton_conclu_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

    Me.Lbox_conclu.Visible = False

End Sub

Private Sub bouton_nonconclu_Click()

    Me.Lbox_nonconclu.Visible = True

End Sub

Private Sub bouton_nonconclu_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

    Me.Lbox_nonconclu.Visible = False

End Sub

Private Sub bouton_réinitialiser_Click()

    'reset
   ' Me.txt_DPM_Modif.Value = ""
    'Me.Txt_ClientModif.Value -""

    'For i = 0 To Me.Lbox_conclu.ListCount - 1
     '   Me.Lbox_conclu.Selected(i) = False
    'Next
    'For i = 0 To Me.Lbox_nonconclu.ListCount - 1
     '   Me.Lbox_nonconclu.Selected(i) = False
    'Next

  '  Modification.Hide

'    ID.Show

End Sub

Private Sub Lbox_conclu_Change()

For i = 0 To Me.Lbox_conclu.ListCount - 1

    If Me.Lbox_conclu.Selected(i) = True Then
        Lbl_DateModifConclu.Visible = True
        DTPicker_Conclu.Visible = True
        DTPicker_Conclu.Refresh
        DTPicker_Conclu = Worksheets("Données Pipeline").range("AM23").Value
    End If
        Next i

Dim range As range

Me.Lbox_nonconclu.Clear

    For i = 0 To Me.Lbox_conclu.ListCount - 1
     If Not Me.Lbox_conclu.Selected(i) Then
      Me.Lbox_nonconclu.AddItem Me.Lbox_conclu.List(i)

    End If
    Next i

'Volume automatique marche pas

    'Dim x As Long
   ' x = searchstring("CDCP - Certificats de Dépôts / Placements", Me.Lbox_conclu.List)
   '     If Me.Lbox_conclu.Selected(x) Then
    '        Me.Txt_CDCP.Visible = True And Me.Lbl_CDCP.Visible = True
     '   End If

End Sub

Private Function searchstring(mysearch As String, mylist As Variant) As Long

  '  Dim itm As Variant, idx As Long: idx = 0
   '
    '    If IsArray(mylist) Then

      '      For Each itm In mylist
       '         If mysearch = itm Then
        '            searchstring = idx: Exit Function
         '       End If
          '  idx = idx + 1
      '  Next
       ' searchstring = -1
    End If

End Function

Private Sub Lbox_nonconclu_Change()

For i = 0 To Me.Lbox_nonconclu.ListCount - 1

    If Me.Lbox_nonconclu.Selected(i) = True Then
        Lbl_DatemodifNonconclus.Visible = True
        DTPicker_NConclu.Visible = True
        DTPicker_NConclu.Refresh
        DTPicker_NConclu = Worksheets("Données Pipeline").range("AM23").Value
    End If
        Next i

  '  For i = 0 To Me.Lbox_nonconclu.ListCount - 1

       ' If Me.Lbox_nonconclu.Selected(i) = True Then

      '  End If

  '  Next i

End Sub

Private Sub UserForm_Initialize()

'Champs remplis automatiquement

        Me.txt_DPM_Modif.Value = Worksheets("Données Pipeline").Cells(range("AL25").Value + 1, 2).Value
        Me.Txt_ClientModif.Value = Worksheets("Données Pipeline").Cells(range("AL25").Value + 1, 3).Value
        Me.Txt_FCCModif.Value = Worksheets("Données Pipeline").Cells(range("AL25").Value + 1, 4).Value
        Me.Txt_RaisonModif.Value = Worksheets("Données Pipeline").Cells(range("AL25").Value + 1, 6).Value
        Me.Txt_InitieModif.Value = Worksheets("Données Pipeline").Cells(range("AL25").Value + 1, 7).Value
        Me.Txt_DateModif.Value = Worksheets("Données Pipeline").Cells(range("AL25").Value + 1, 8).Value
        Me.Txt_DateMinModif.Value = Worksheets("Données Pipeline").Cells(range("AL25").Value + 1, 26).Value
        Me.Txt_CDCP.Value = Worksheets("Données Pipeline").Cells(range("AL25").Value + 1, 17).Value
        Me.Txt_CPA.Value = Worksheets("Données Pipeline").Cells(range("AL25").Value + 1, 18).Value
        Me.Txt_FMUT = Worksheets("Données Pipeline").Cells(range("AL25").Value + 1, 19).Value
        Me.Txt_LCR.Value = Worksheets("Données Pipeline").Cells(range("AL25").Value + 1, 21).Value
        Me.Txt_MCR.Value = Worksheets("Données Pipeline").Cells(range("AL25").Value + 1, 22).Value
        Me.txt_PAT.Value = Worksheets("Données Pipeline").Cells(range("AL25").Value + 1, 23).Value
        Me.txt_PH.Value = Worksheets("Données Pipeline").Cells(range("AL25").Value + 1, 24).Value

'Cbox DPME

     Set DPME = Worksheets("Listes déroulantes").range("D7:D11")

         For Each cell In DPME
              Me.Cbox_DPME.AddItem cell.Value
         Next cell

'Pipeline automatique

    Dim pipeline As range
    Dim itemtarget As Long

    Set pipeline = Worksheets("Données Pipeline").Cells(range("AL25").Value + 1, 16)

    If pipeline <> Empty Then
        Me.Lbox_pipeline.List = Split(pipeline, "; ")
        Me.Lbox_conclu.List = Split(pipeline, "; ")
        Me.Lbox_nonconclu.List = Split(pipeline, "; ")
    End If

   itemtarget = Lbox_pipeline.ListCount And Lbox_conclu.ListCount
   Me.Lbox_pipeline.RemoveItem itemtarget - 1
   Me.Lbox_conclu.RemoveItem itemtarget - 1
   Me.Lbox_nonconclu.RemoveItem itemtarget - 1

   If Me.DTPicker_Conclu.Visible = True Then
     DTPicker_Conclu = Worksheets("Données Pipeline").range("AM23").Value
    End If
    If Me.DTPicker_NConclu.Visible = True Then
        DTPicker_NConclu = Worksheets("Données Pipeline").range("AM23").Value
    End If

End Sub

Bonjour

le End If de la function

et / ou

es tu certain de désactiver cette function ?

Private Function searchstring(mysearch As String, mylist As Variant) As Long

  '  Dim itm As Variant, idx As Long: idx = 0
  '
   '    If IsArray(mylist) Then

      '      For Each itm In mylist
      '         If mysearch = itm Then
       '            searchstring = idx: Exit Function
        '       End If
         '  idx = idx + 1
     '  Next
      ' searchstring = -1
   End If

End Function

crdlt,

André

Bonjour,

met un Stop au début de ton UserForm_Initialize() et fait en pas à pas pour trouver la ligne en erreur.

eric

Rechercher des sujets similaires à "invalid argument vba error"