Macro Excel bouton de mise a zeroRésolu/Fermé

Question

Bonjour,


Voila je suis a la recherche d'une aide pour la creation d'une macro sous excel permettant la mise a zero de diverses cellules dans diverses feuilles de calcul (10 en tout)

Ces cellules ne sont pas forcement continues ou contigues en plus.

Le souhait donc, est qu'en cliquant sur ce bouton; cela revienne comme par magie a zero, car il y a une actualisation quotidienne de ce classeur.

L'aide souhaitee sera d'autant bienvenue car je ne suis pas un windows user, cela est pour mon taf.

Dernier point je suis sous clavier british aussi desole pour les fautes.

Cordialement

Mike-31 · Accepted Answer

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.

Yvance77 · Answer

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-31 · Answer

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

Yvance77 · Answer

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

Yvance77 · Answer

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

Mike-31 · Answer

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.

Yvance77 · Answer

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

Mike-31 · Answer

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+

Yvance77 · Answer

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

Mike-31 · Answer

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+

Yvance77 · Answer

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

Mike-31 · Answer

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.

Yvance77 · Answer

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

Yvance77 · Answer

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

Mike-31 · Answer

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+

Yvance77 · Answer

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

badangel4500 · Answer

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

Mike-31 · Answer

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

Macro Excel bouton de mise a zero

18 réponses

Newsletters