Macro Excel bouton de mise a zero

Salut,

tu peux écrire cette macro qui fait référence a des feuiklles et des cellules dans chaque feuille

Sub Macro1()
Sheets("Feuil1").Range ("B4"), .ClearContents
Sheets("Feuil2").Range("D21,C7,D21").ClearContents
Sheets("Feuil3").Range("G17,D2:G2,G17").ClearContents
End Sub

Quand tu auras compris le procéssus, il est possible de simplifier ou plus exactement compacter la formule

A+

________________________________________________________________________

Vous cherchiez de l’aide. Les membres du forum, bénévolement étaient à vos côtés.
Ayez la gentillesse de nous dire si votre problème est résolu. Afin de classer la
Demande.

oui tu as bien compris, c'est tout à fait ça.

la macro tu l'as bien placé dans le visual basic d'excel, tu peus également la renommer mais tu ne changes pas Sub et ()

Pour le bouton macro deux possibilitèes

1/ tout simple dans la barre de dessin tu sélectionnes le rond, ou le carré ou encore un clipart, une image, tu la place sur ta feuille 1 et clic droit dessus et affecter à une macro tu sélectionnes ta macro dans la boite de dialogue qui s'ouvre. quad tu cliqueras sur cet objet la macro s'activera

2/ avec la barre visual basic editor que tu as affiché en faisant affichage/barre d'outils et coché visual basic, tu clique sur boite d'outils contrôle, si tu ne sais pas quel est le bouton promènes de pointeur de la souris et lis les infos bulles
dans la boite d'outils controle qui s'est ouverte sélectionne un bouton de commande, double clic dessus cela va t'ouvrir une page macro avec

Private Sub CommandButton1_Click()

dans cet espace tu saisies le nom de la maro ex macro1

End Sub

si tu veux changer le texte sur le bouton toujours depuis cette feuille macro, sur la droite tu devrai avoir propriétés commandbutton1 et au dessous dans la liste tu trouves Caption et en face CommandButton1 c'est ce qui est sur le bouton, tu remplace ce texte par celui que tu veux voir figurer sur le bouton.

tu fermes les boites de dialogue bisual basic et le tour est joué

A+

si ton problème est résolu ou quand il le sera n'oubies pas de marquer ton statut résolu en haut de ton post Merci

Salut,

Ecris ta macro comme cela ça va tout seul

Sub ZERO()
Sheets("DAILY TILL").Select
Range("B4:B6,B8:B16,C4:C6,C8:C16,C20,A22").ClearContents
Sheets("Reception1").Select
Range("B7:B21,B37,C4,E7:E21,I7:I11,I19:I22").ClearContents
End Sub

A+

________________________________________________________________________

Vous cherchiez de l’aide. Les membres du forum, bénévolement étaient à vos côtés.
Ayez la gentillesse de nous dire si votre problème est résolu. Afin de classer la
Demande.

Salut Mike

Retour aux affaires courantes. Voici le debut de mon projet

Sub ZERO()
Sheet1(DAILY TILL).Range("B4:B6,B8:B16,C4:C6,C8:C16,C20,A22").ClearContents
Sheet2(Reception1).Range("B7:B21,B37,C4,E7:E21,I7:I11,I19:I22").ClearContents

End Sub

Mais des que je veux appliquer ou appuyer sur le bouton j'ai un message digne des Nuls = syntax error

Merci et a bientot

Bonjour à tous,

j'ai le même problème est ce que Mike pourrais m'aider??? merci

Salut,

Oui bien sur mais tu aurais du ouvrir ta propre discussion avec des explications sur ce que tu veux faire pour prétendre une réponse adaptée

pour cette discussion le code placé dans un module visual basic et associé à un bouton était

sur la feuille nommée DAILY TILL il fallait effacer les cellules de B4 à B6, de B8 à B16 etc et également sur la feuille Reception1

Sub ZERO()
Sheets("DAILY TILL").Select
Range("B4:B6,B8:B16,C4:C6,C8:C16,C20,A22").ClearContents
Sheets("Reception1").Select
Range("B7:B21,B37,C4,E7:E21,I7:I11,I19:I22").ClearContents
End Sub

Mike un grand merci pour ta contribution m'eclairant un poil (gros cela dit) :-)

Precision : Sheets("Feuil1") Feuil1 a changer par le nom de ma feuille je suppose ?

D2:G2 = dans le cas ou j'ai de cellules qui se suivent

("B4") = cas d'une cellule isolee

ClearContents = Fonction permet de nettoyer le bouzin

Ensuite comment mettre en relation cela avec un bouton que je desire mettre sur la premiere page du classeur et que je nommerai zero

Merci encore

Mike t'es une benediction :-)

Tes explications sont claires et je passerai ce samedi a la pratique, la je fais relache 48 h. Je te tiens au courant et les autres par la meme occase car cela peut servir a bien des personnes.

Cordialement Mike

Ok Mike bon je sens que ca va pas etre du gateau, aussi merci pour ta patience.

Maintenant j'ai comme message d'erreur: Run time error"438" "Objet doesn't this property or method" quand le clique sur l'icone.

Et je suis invite a faire un debug

Pour info voici le texte de la macro modifie:

Sub ZERO()
Sheet1("DAILY TILL").Select
Range("B4:B6,B8:B16,C4:C6,C8:C16,C20,A22").ClearContents
Sheet2("Reception1").Select
Range("B7:B21,B37,C4,E7:E21,I7:I11,I19:I22").ClearContents
End Sub

POINT IMPORTANT :

La partie "Sheet1("DAILY TILL").Select" est surlignee en jaune ???

Merci pour ta rapide reaction Mike

A peluche

Salut,

si ton fichier ne contient pas de données confidentielle mais le en pièce jointe avec cette adresse que je vois

https://www.cjoint.com/

A+

Merci encore Mike.

Je connaissais pas en plus le coup de cjoint. Super pratique.

https://www.cjoint.com/?foqjX2Mruv

A te lire prochainement

Cordialement

Yvance77

Salut,

c'est normal tes feuilles sont protègèes.

Je t'écris un code incluant la déprotection avec l'effacement prévu et la reprotection de tes feuilles, et je te renvoies tout ça

A+

Un grand merci Mike.

Fallait le savoir pour le coup de la protection

Je mettrais quoiqu'il en soit le resultat ici afin que cela puisse profiter au plus grand nombre

Cordialement

Yvance77

Salut,

tu peux récupérer ton fichier à ce lien. Dans le code macro dans chaque ligne, après une apostrophe tu as les explications de la macro.
Le code du bouton est sur le code de la feuille DAILY pour y accéder, clic droit sur l'onglet de la feuille et visualiser le code.

https://www.cjoint.com/?fouDx5Qcte

A+
__________________________________________________________________

Besoin d’aide. Auprès du forum, des bénévoles prennent le temps de décrypter vos explications parfois confuses, et proposent leur connaissance.
Solution trouvée, ayez la courtoisie de porter votre statut résolu. Afin que votre problème soit classé, et serve de référence pour d’autres cas similaires.

Mike,

UN GRAND GRAND MERCI.

J'ai des questions complementaires a te poser je le ferais plus tard, je suis dans le jus.

Mais merci encore sache le, ton aide fut precieuse.

Respect

Yvance77

Re Mike,

Precision stp

1) Je n'arrive pas bien a svoir comment tu as cree le bouton sur la premier page et le lien avec la macro

2 ) Supprimer une vielle macro comment faire aussi.

Merci pour ces ultimes precisions, ensuite je reviendrais avec le travail que tu as fait pour le faire partage.

Cordialement

Salut,

pour le bouton il y as plusieurs astuces

tu peux ouvrir la barre à outils contrôle tu choisis ton bouton et double clic pour ouvrir l'accès à son code VBA, dans lequel tu copis les titres de tes macros.
tu peux également dessiner ton bouton à partir de ta barre de dessin avec un rond ou un rectangle ou même une photo que tu inséres ou encore un bouton que tu exportes et clic droit dessus affecter une macro.

Pour supprimer une macro, du affiche la barre visual basic, sur cette barre au centre clic sur l'icone visual basic editor ce qui t'ouvre la page de l'éditeur. affichage/explorateur de projet, tu dois trouver Modules et au dessous Module1, Modules2 etc... les codes macros sont la dedans.

N'oublie pas de porter ton statut résolu quand tu aurai fini cette discution

A+

Salut Mke

Désolé suite à accident n'ai pas pu poursuivre le fil de la discute

Merci