Discussion :

[sweetty]

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

[Bob78280]

Bonjour,

1ère erreur :
Tu as mis tes 3 lignes en rouge tout à la fin.
Mais tu as un EXIT SUB au dessus qui va s'exécuter s'il n'y a pas d'erreur => pas de nettoyage donc.

2ème erreur : ce code ne marche pas

Code :

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

1
2
 
Worksheets("FACTURE").Range("A12;E12;I12").ClearContents

A remplacer par :

Code :

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

1
2
3
4
 
Worksheets("FACTURE").Range("A12").ClearContents
Worksheets("FACTURE").Range("E12").ClearContents
Worksheets("FACTURE").Range("I12").ClearContents

[sweetty]

Merci pour votre aide.
Effectivement ça marche bien mieux avant EXIT SUB.
Encore merci