Macro Excel bouton de mise a zero
Résolu/Fermé
Yvance77
Messages postés
290
Date d'inscription
mardi 6 mai 2008
Statut
Membre
Dernière intervention
28 novembre 2021
-
7 mai 2008 à 18:26
Mike-31 Messages postés 18310 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 29 mars 2024 - 27 mai 2013 à 10:29
Mike-31 Messages postés 18310 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 29 mars 2024 - 27 mai 2013 à 10:29
A voir également:
- Bouton remise à zéro excel
- Remise a zero pc - Guide
- Liste déroulante excel - Guide
- Remise à zéro iphone - Guide
- Aller à la ligne excel - Guide
- Formule excel - Guide
18 réponses
Mike-31
Messages postés
18310
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
29 mars 2024
5 073
7 mai 2008 à 20:56
7 mai 2008 à 20:56
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.
Mike-31
Messages postés
18310
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
29 mars 2024
5 073
7 mai 2008 à 23:46
7 mai 2008 à 23:46
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
Mike-31
Messages postés
18310
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
29 mars 2024
5 073
13 mai 2008 à 23:03
13 mai 2008 à 23:03
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.
Yvance77
Messages postés
290
Date d'inscription
mardi 6 mai 2008
Statut
Membre
Dernière intervention
28 novembre 2021
21
13 mai 2008 à 22:05
13 mai 2008 à 22:05
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
badangel4500
Messages postés
1
Date d'inscription
lundi 27 mai 2013
Statut
Membre
Dernière intervention
27 mai 2013
1
27 mai 2013 à 10:16
27 mai 2013 à 10:16
Bonjour à tous,
j'ai le même problème est ce que Mike pourrais m'aider??? merci
j'ai le même problème est ce que Mike pourrais m'aider??? merci
Mike-31
Messages postés
18310
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
29 mars 2024
5 073
27 mai 2013 à 10:29
27 mai 2013 à 10:29
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
Yvance77
Messages postés
290
Date d'inscription
mardi 6 mai 2008
Statut
Membre
Dernière intervention
28 novembre 2021
21
13 mai 2008 à 23:12
13 mai 2008 à 23:12
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
Mike-31
Messages postés
18310
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
29 mars 2024
5 073
14 mai 2008 à 08:46
14 mai 2008 à 08:46
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
Mike-31
Messages postés
18310
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
29 mars 2024
5 073
14 mai 2008 à 17:48
14 mai 2008 à 17:48
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
Mike-31
Messages postés
18310
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
29 mars 2024
5 073
14 mai 2008 à 20:31
14 mai 2008 à 20:31
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.
Yvance77
Messages postés
290
Date d'inscription
mardi 6 mai 2008
Statut
Membre
Dernière intervention
28 novembre 2021
21
15 mai 2008 à 16:55
15 mai 2008 à 16:55
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
Yvance77
Messages postés
290
Date d'inscription
mardi 6 mai 2008
Statut
Membre
Dernière intervention
28 novembre 2021
21
15 mai 2008 à 19:50
15 mai 2008 à 19:50
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
Mike-31
Messages postés
18310
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
29 mars 2024
5 073
15 mai 2008 à 21:15
15 mai 2008 à 21:15
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+
Yvance77
Messages postés
290
Date d'inscription
mardi 6 mai 2008
Statut
Membre
Dernière intervention
28 novembre 2021
21
11 août 2008 à 20:46
11 août 2008 à 20:46
Salut Mke
Désolé suite à accident n'ai pas pu poursuivre le fil de la discute
Merci
Désolé suite à accident n'ai pas pu poursuivre le fil de la discute
Merci
