Remise à zéro

Bonjour

lorsque je clique sur validation, cela génère :

• un mail automatiquement
• l'impression d'un bordereau
• l'enregistrement du fichier au format PDF.

Bonjour,

Tu peux utiliser l'une de ces deux lignes :

Remplace A2 par les cellules que tu veux clear.

Range("A2").ClearContents
Range("A2") = ""

Bonne soirée,

Maxime.

Bonjour,

Essaie ceci :

Option Explicit

Public Sub RAZ()
Dim ws As Worksheet
Dim sString As String
Dim tbl
Dim i As Byte
    Application.ScreenUpdating = False
    Set ws = Worksheets("Demande de transport")
    sString = "D8 E8 B13 B19 E19 G19 J19 B25 B31 E31 G31 A39 J39 A40 J40 A41 J41 A42 J42 D44 H44 L44"
    tbl = Split(sString)
    With ws
    For i = LBound(tbl) To UBound(tbl)
        If .Range(tbl(i)).MergeCells Then
            .Range(tbl(i)).MergeArea.ClearContents
        Else
            .Range(tbl(i)).ClearContents
        End If
    Next i
    .Range("E39:I42").ClearContents
    End With
End Sub

Bonjour et merci pour vos réponse.

Étant vraiment néophyte en VBA, je copie ou vos solutions.

Autre sujet.

Aujourd'hui le système fait que j'imprime le bordereau d'expédition systématiquement (protégeons nos arbres). Je souhaiterais imprimer le bordereau uniquement si le code 23621 est présent en cellule J25

Bonjour,

Je te renvoie ton fichier modifié.

1 - Voir module standard RAZ_dmde_transport pour la 1ère. question

2 - Voir procédure Workbook_BeforePrint dans le module ThisWorkbook, pour la seconde.

Cdlt.

Bonjour, et merci a tous pour votre aide.

Dernière petite demande enfin je pense.

Je souhaiterais qu'il me soit impossible de valider la demande, si la date d'enlèvement est inferieur à la date de la demande tout en respectant le code couleur. Autrement dit, que la date de l'enlèvement soit supérieur ou égale à la date de la demande pour valider

Cdt