Mise à 0 via boutton

Bonjour,

Je voulais savoir si il est possible de remettre toutes les cases en bleu à 0 en cliquant sur le bouton "nouvelle simulation".

Merci pour votre aide !

Cordialement

bonjour,

Sub RAZ()
    Range("D11,D18,D21,D23:D24,G11:G12,D27:D35").ClearContents
End Sub

A+

Bonsoir,

Une proposition :

Sub RAZ()
Dim Cel As Range
For Each Cel In Sheets("Calcul de Rentabilité").Range("D11,D18,D21,D23:D24,D27:D35,G11:G13")
    Cel.Value = 0
Next Cel
End Sub

edit : salut Galopin01 !

Top ! merci beaucoup pour votre aide !

thibaut59530 a écrit :

Top ! merci beaucoup pour votre aide !