Discussion :

[flo1411]

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

[Ashireon]

Hello

Change le nom de ta fonction car delete est un mot réservé au langage.
Du coup il se peut qu'il se plante appelle le Effacer par exemple.

[flo1411]

Bonjour,
J'ai suivi ton conseil mais ça n'a rien changé...
Une autre idée à me proposer ???

[gFZT82]

Bonjour,

C'est quoi cette variable Historik ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

While Historik.Cells(i, 1) <> ""

Cordialement.

[nibledispo]

bonjour Flo1411,

Je débute en VBA et ne peux pour l'heure apporter de réponse à ton problème.

Par contre, je me demande si ton code répond parfaitement à ton besoin.

En effet, si deux lignes qui se suivent appellent un effacement, que se passe t-il pour la seconde ?

Imaginons que ces deux lignes en question soient 8 et 9.

Avec I = 8, cette ligne sera bien effacée et ce faisant la ligne 9 deviendra 8.
Dans le même temps I passera à 9 et la ligne 9 devenue 8 ne sera pas effacée.

Me trompe-je ?

cordialement,