Invalid argument VBA error
o
AU secours
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
Andre13Membre impliqué
- Messages
- 2'415
- Excel
- 2019
- Inscrit
- 13/07/2017
- Emploi
- Formateur, animateur,tech.informatique
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