Bonjour,

J'aimerai insérer sur mon bouton VALIDER (dont le code est le suivant), un morceau de code pour supprimer certaines cellules de mon tableau (mais pas la mise en forme), après avoir validé l'enregistrement afin de pouvoir ressaisir par la suite sans effacer manuellement.
J'ai essayé les 3 dernières lignes en rouge......mais ça ne marche pas. J'ai oublié quelque chose mais......
Merci pour votre aide

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
33
34
35
36
37
38
39
40
41
42
 Sub VALIDER()

    Dim Titres(), Dic As New Dictionary, C As Long, TFact(), L As Long, TRés(), item
    Titres = Feuil4.[A2:AA2].Value    
    TFact = Feuil1.[A12:J44].Value

    ReDim TRés(1 To 1, 1 To UBound(Titres, 2))
    TRés(1, 1) = TFact(1, 3)   
    TRés(1, 2) = TFact(1, 1)   
    TRés(1, 3) = TFact(1, 5)   
    TRés(1, 4) = NomClient(TFact(1, 5))   
    TRés(1, 5) = TFact(31, 10)   
    TRés(1, 6) = TFact(29, 10)   
    TRés(1, 7) = TFact(30, 5)   
    TRés(1, 8) = TFact(31, 5)    
    TRés(1, 9) = TFact(32, 5)   
    TRés(1, 10) = TFact(33, 5)   
    For C = 11 To 27   
        For L = 4 To 28   
            If TFact(L, 2) = Titres(1, C) Then
                TRés(1, C) = TRés(1, C) + TFact(L, 10)
            End If
        Next
    Next C
    
    Feuil4.Cells(&H100000, 1).End(xlUp).Offset(1).Resize(, 27).Value = TRés 

    Dim N
    On Error GoTo NuméroUn 
    N = Right(Range("C12").Value, 5)
    Range("C12").Value = "" & Year(Date) & "/" & "VE" & "/" & Format(N + 1, "00000")
    MsgBox "Facture " & Range("C12").Value & " archivée avec succès."
    Exit Sub
NuméroUn:
    Range("C12").Value = "" & Year(Date) & "/" & "VE" & "/" & Format(1, "00000")
    Resume Next
    
    Worksheets("FACTURE").Range("A15:E39").ClearContents
    Worksheets("FACTURE").Range("G15:G39").ClearContents
    Worksheets("FACTURE").Range("A12;E12;I12").ClearContents

End Sub