Macro Excel bouton de mise a zero
Résolu
Yvance77
Messages postés
335
Statut
Membre
-
Mike-31 Messages postés 19571 Date d'inscription Statut Contributeur Dernière intervention -
Mike-31 Messages postés 19571 Date d'inscription Statut Contributeur Dernière intervention -
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
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
A voir également:
- Bouton remise à zéro excel
- Remise a zero pc - Guide
- Liste déroulante excel - Guide
- Remise a zero chromecast - Guide
- Word et excel gratuit - Guide
- Remise à zéro iphone - Guide
18 réponses
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.
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
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.
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
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
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
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
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
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
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
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+
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
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+
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
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.
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
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
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+
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+
