VBA de reset des valeurs

Bonjour ! :) J'ai une petite question. J'aimerais dans mon fichier Excel rajouter un bouton qui permet de réinitialiser les valeurs voulues pour faire redevenir la page à son état d'origine. Donc j'aurais aimé savoir si c'est possible svp et comment faire. Il y a déjà un VBA pour créer un historique, mais j'aimerais qu'il y ait 2 boutons et pas un seul pour 2 macros. En gros 1 bouton validation (déjà fonctionnel) et 1 bouton reset qui remettra à zéro les valeurs des cellules choisies.

Merci d'avance pour votre temps et pour votre aide.

Ps: je joins le fichier cible.

44reset-valeur.xlsm (30.39 Ko)

Salut Adrien,

Ce bête code devrais faire l'affaire ?

Sub RaZ()
Range("B1,E3,C8,C10,C20,C28,C29") = ""
End Sub

A+

Egalement,

Si je peut me permettre je te conseil de remplacer la boucle Do/Loop qui risque de faire une boucle infini par cette ligne de code:

li = Cells(Rows.Count, 1).End(xlUp).Row + 1

Elle simule le raccourci ctrl+ flèche du haut en partant du bas de la page, donc renvoi la dernière ligne non vide du tableau !

A+

Super ! Merci bcp !

Rechercher des sujets similaires à "vba reset valeurs"