Bouton remise à zéro

Le 15/10/2019 à 09:48

Bonjour,

J'aimerais rajouter un bouton Reset sur mon fichier pour pouvoir vider mes données directement afin qu'il soit plus pratique d'utilisation.

Merci

51trs.xlsm (33.14 Ko)

Le 15/10/2019 à 12:24

Bonjour

Merci de spécifier dans quelles plages tu veux que ce bouton agisse

Slts

Le 15/10/2019 à 12:43

bonjour

perso je passe par un bouton et je lui attribue le code de type suivant:

Private Sub btnann_Click()

Range("B35").Value = ""

Range("B37").Value = ""

txtsurfpnx = ""

txtnbpnx = ""

txtlargemp = ""

txtlongemp = ""

txtlinrail = ""

Le 15/10/2019 à 13:32

J'aimerais que la remise à zéro se fasse pour les cellules((C5;C36);(D5;D36);(E5;E36);(F5;F36)).

Le 15/10/2019 à 13:38

Bonjour,

Avec ça, ça devrait fonctionner :

Sub RAZ()
    Range("C5:F36").Select
    Selection.ClearContents
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Range("C5").Select
End Sub

Mais j'ai vu que tu avais des "1" dans toutes les cellules, donc là, la macro efface tout, ainsi que les couleurs.

34trs.xlsm (34.98 Ko)

Le 15/10/2019 à 13:47

Nickel Paulox, je te remercie