Macro excel
Résolu
Graphick
Messages postés
109
Date d'inscription
Statut
Membre
Dernière intervention
-
Mike-31 Messages postés 18407 Date d'inscription Statut Contributeur Dernière intervention -
Mike-31 Messages postés 18407 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
voila j'ai fait une sorte de petit dessin avec enregistreur de macro.
mon problème est que je veux que quand je coche sur boutonoption1 dans un user form que le dessin apparaisse sur la feuille 2. Présentement jarrive qua le faire apparaitre dans la feuille 1
merci de bien vouloir m'aider. jai essaye avec worksheets ("feuil2").select avant chaque ligne et ca ne fonctionne pas
ActiveSheet.Shapes.AddLine(117#, 232.5, 156#, 232.5).Select
ActiveSheet.Shapes.AddLine(59.25, 293.25, 156#, 293.25).Select
ActiveSheet.Shapes.AddLine(156#, 232.5, 156#, 292.5).Select
Welection.ShapeRange.Flip msoFlipHorizontal
ActiveSheet.Shapes.AddLine(367.5, 240#, 390#, 240#).Select
ActiveSheet.Shapes.AddLine(390#, 240#, 390#, 292.5).Select
ActiveSheet.Shapes.AddLine(312#, 292.5, 390#, 292.5).Select
Selection.ShapeRange.Flip msoFlipHorizontal
End If
voila j'ai fait une sorte de petit dessin avec enregistreur de macro.
mon problème est que je veux que quand je coche sur boutonoption1 dans un user form que le dessin apparaisse sur la feuille 2. Présentement jarrive qua le faire apparaitre dans la feuille 1
merci de bien vouloir m'aider. jai essaye avec worksheets ("feuil2").select avant chaque ligne et ca ne fonctionne pas
ActiveSheet.Shapes.AddLine(117#, 232.5, 156#, 232.5).Select
ActiveSheet.Shapes.AddLine(59.25, 293.25, 156#, 293.25).Select
ActiveSheet.Shapes.AddLine(156#, 232.5, 156#, 292.5).Select
Welection.ShapeRange.Flip msoFlipHorizontal
ActiveSheet.Shapes.AddLine(367.5, 240#, 390#, 240#).Select
ActiveSheet.Shapes.AddLine(390#, 240#, 390#, 292.5).Select
ActiveSheet.Shapes.AddLine(312#, 292.5, 390#, 292.5).Select
Selection.ShapeRange.Flip msoFlipHorizontal
End If
A voir également:
- Macro excel
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Déplacer colonne excel - Guide
- Si ou excel - Guide
29 réponses
C'est pour cela que chez moi tout marchait vu que je n'avais les feuilles et celle que j'ai créée marchait bien.
J'ai revu ton code, pour intégrer l'affichage des feuilles sélectionnées pour l'impression et les remasquer tu dois revoir ton code qui sera plus stable. chaque Checkbox doit être associé à une cellule, ça peut être la cellule sous la checkbox ou même une cellule colorée en vert dans ta feuille, il suffit de mettre la couleur police identique.
Donc pour associer chaque checkbox à une cellule, tu te mets en mode création et double clic sur chekbox cela va t’ouvrir une page code VBA avec la fenêtre des propriétés tu vas trouver dans la liste LinkedCell en face tu saisis la référence de ta cellule exemple A1
Ensuite tu revois ton code pour afficher la feuille concernée, l’imprimer et la remasquer
A la place de faire référence à checkbox1 etc tu fais référence à ta cellule
If Range("A1") = True Then
Sheets("Feuil2").Visible = True
Worksheets("feuil2").PrintOut
Sheets("Feuil2").Visible = False
End If
A+
J'ai revu ton code, pour intégrer l'affichage des feuilles sélectionnées pour l'impression et les remasquer tu dois revoir ton code qui sera plus stable. chaque Checkbox doit être associé à une cellule, ça peut être la cellule sous la checkbox ou même une cellule colorée en vert dans ta feuille, il suffit de mettre la couleur police identique.
Donc pour associer chaque checkbox à une cellule, tu te mets en mode création et double clic sur chekbox cela va t’ouvrir une page code VBA avec la fenêtre des propriétés tu vas trouver dans la liste LinkedCell en face tu saisis la référence de ta cellule exemple A1
Ensuite tu revois ton code pour afficher la feuille concernée, l’imprimer et la remasquer
A la place de faire référence à checkbox1 etc tu fais référence à ta cellule
If Range("A1") = True Then
Sheets("Feuil2").Visible = True
Worksheets("feuil2").PrintOut
Sheets("Feuil2").Visible = False
End If
A+
cest exactement ca que jai fais mais sans associé une cellule voila ce que ca donne
if optionbutton1.value = True Then
Sheets("Feuil2").Visible = True
Worksheets("feuil2").PrintOut
Sheets("Feuil2").Visible = False
End If
et ca fonctionne bien
merci encore d'être tjours aussi patient et présent
if optionbutton1.value = True Then
Sheets("Feuil2").Visible = True
Worksheets("feuil2").PrintOut
Sheets("Feuil2").Visible = False
End If
et ca fonctionne bien
merci encore d'être tjours aussi patient et présent
Salut,
Après impression, je pense que tu remets tes checkbox en false
En associant les cellules, pour terminer ton code juste avant End If, tu pourrais mettre
Range("A1:A10").Value = True
Si tes cellules associées sont A1 à A10 par exemple
A+
Après impression, je pense que tu remets tes checkbox en false
En associant les cellules, pour terminer ton code juste avant End If, tu pourrais mettre
Range("A1:A10").Value = True
Si tes cellules associées sont A1 à A10 par exemple
A+
Salut Mike bon Jeudi
As tu reussi a trouver le temps pour me faire un fichier exemple du premier fichier envoyé???
Bon pour mon 2ieme tout marche à la perfection. Quelle connerie davoir oublié que j'avais masqué mes feuilles.
Bon aller je te dérange pas plus longtemps je vais aller enlever la neige sur la voiture si je veux aller au boulot
A+++
Jeff
As tu reussi a trouver le temps pour me faire un fichier exemple du premier fichier envoyé???
Bon pour mon 2ieme tout marche à la perfection. Quelle connerie davoir oublié que j'avais masqué mes feuilles.
Bon aller je te dérange pas plus longtemps je vais aller enlever la neige sur la voiture si je veux aller au boulot
A+++
Jeff
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Ok j,ai fais comme tu mas dit plus haut mais en creant des module ca vas pas trop grossir mon fichier???
Ok encore merci cest parfais jy vais avec ca.
Derniere question lolll pour le moment
Connais tu la maniere d'ajouter des icone pour personaliser les bouton macro, autre que ceux que la suite office.
Ce que j'aimerais c'est un bouton macro style une fenetre une porte un peu comme les logiciel Architecte emploi.
Encore merci pour tout j'ai plus appris en te lisant que dans tout les bouquins que j'ai lu
Jeff
Derniere question lolll pour le moment
Connais tu la maniere d'ajouter des icone pour personaliser les bouton macro, autre que ceux que la suite office.
Ce que j'aimerais c'est un bouton macro style une fenetre une porte un peu comme les logiciel Architecte emploi.
Encore merci pour tout j'ai plus appris en te lisant que dans tout les bouquins que j'ai lu
Jeff
Il est possible de te créer des boutons personnalisés, j'ai déjà fais cela il y a bien longtemps mais je vais rechercher et te dirai comment faire.
Autrement tu prends une photo, tu l'enregistres avec un logiciel de retouche dimension 32 sur 32 pixels au format .bmp ensuite tu clique sur cette photo et tu change l'extensionpar .ico et ça marche.
Autrement que cheches tu comme style de bouton
A+
Autrement tu prends une photo, tu l'enregistres avec un logiciel de retouche dimension 32 sur 32 pixels au format .bmp ensuite tu clique sur cette photo et tu change l'extensionpar .ico et ça marche.
Autrement que cheches tu comme style de bouton
A+
Cherche un liste sur le net juste des icone comme Fenetre, Porte. Jai creer un macro avec un bouton quand tu clic dessu ca fait apparitre une fenetre que tu peux positionner. Mais j'ai pas trouvé une sorte de fenetre donc jutilise un bouton clic,
Donc voila je sais que je peux en dessiner un mais bon ca fait pas super
jen ai trouvé comme je cherchais mais faut les payer 70$
un peu exageré
A+++++
Si tu trouve fais moi savoir mais bon cest pas une priorité
Donc voila je sais que je peux en dessiner un mais bon ca fait pas super
jen ai trouvé comme je cherchais mais faut les payer 70$
un peu exageré
A+++++
Si tu trouve fais moi savoir mais bon cest pas une priorité
Salut,
Tu cherchais des boutons personnalisés, sur le net tu en as des centaines libre de droit, saisis bouton GIF animé
Pour t'amuser récupères le fichier avec le lien ci dessous
https://www.cjoint.com/?mbpMA1C4x2
A+
Tu cherchais des boutons personnalisés, sur le net tu en as des centaines libre de droit, saisis bouton GIF animé
Pour t'amuser récupères le fichier avec le lien ci dessous
https://www.cjoint.com/?mbpMA1C4x2
A+