Bonjour,
J'ai un problème lors de l'appel d'une fonction.
La suivante est dans mon module 1 est sert à supprimer le contenu de la cellule active ainsi que les lignes correspondantes dans une autre fenêtre :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
 
Sub Delete(ligcell As Integer, colcell As Integer)
 
    Dim ligdate As Integer
    Dim nom, ampm As String
    Dim dte As Date
 
    ActiveCell.ClearContents
    ligdate = ligcell
    If ActiveSheet.Cells(ligcell, 3).Value = "Matin" Then
        ampm = "Matin"
        nom = ActiveSheet.Cells(ligcell, 2).Value
    End If
    If ActiveSheet.Cells(ligcell, 3).Value = "Après Midi" Then
        ampm = "Après Midi"
        nom = ActiveSheet.Cells(ligcell - 1, 2).Value
    End If
    While ActiveSheet.Cells(ligdate, colcell).NumberFormat <> "d-mmm"
        ligdate = ligdate - 1
    Wend
    dte = ActiveSheet.Cells(ligdate, colcell).Value
 
    Dim i As Integer
    i = 6
    While Historik.Cells(i, 1) <> ""
        If Worksheets("Historik").Cells(i, 1).Value = dte And Worksheets("Historik").Cells(i, 2).Value = ampm And Worksheets("Historik").Cells(i, 5).Value = nom Then
            Worksheets("Historik").Cells(i, 1).EntireRow.Delete
        End If
        i = i + 1
    Wend
 
End Sub
Je l'appelle dans la fonction suivante :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 
    If (ActiveCell.Borders(xlEdgeLeft).LineStyle = xlContinuous And ActiveCell.Borders(xlEdgeRight).LineStyle = xlContinuous And ActiveCell.Interior.Pattern = xlNone) Then
 
        Call Module1.Delete(ActiveCell.Row, ActiveCell.Column)
 
        Form_Eric.UserForm_Initialize
        Form_Eric.Show
 
    End If
 
End Sub
Et j'ai une erreur lors de l'exécution de cette dernière : "Argument non facultatif". Je ne comprends pas cette erreur sachant que j'ai bien mes arguments dans ma fonction. Et si je joue au barbare en écrivant l'intégralité de ma fonction delete dans mon autre fonction, cela fonctionne...
Qu'est ce que je fais de travers ???
Merci de votre aide