Nouvelle feuille avec des boutons?Résolu

Question

Bonjour à tous. :)


Petite question, je ne sais pas si cela est possible, mais je souhaiterais que lorsque l'utilisateur créait une nouvelle feuille (par l'onglet classique d'Excel), un bouton vient s'intégrer automatiquement à cette nouvelle feuille. 

Est-ce possible?

fabiendag · Accepted Answer

tu mets ces lignes à la fin de ton code et normalement ca passe
    '********** Nom de la feuille *********
    Sh.Name = DatePart("d", Date) & "." & DatePart("m", Date) & "." & DatePart("yyyy", Date)



Fabien

fabiendag · Answer

Bonjour,
est-ce que tu connais un peu le vba ou pas du tout ?
tu as dans les évènements du workbook, workbook_newsheet qui est une procédure qui s'exécute quand tu insères une nouvelle feuille.


Fabien

cs_Jack · Answer

Salut

Surement faisable, mais délicat.
En fait, il va falloir surveiller le moment où une nouvelle forme est ajoutée. Là, déjà, pas facile de trouver un évènement associé à cet ajout, donc il faudra surement avoir recours à une procédure scrutée cycliquement qui mémorisera les objets actuellement existants et qui fera la comparaison avec ceux présents au cycle précédent pour déclencher la procédure d'ajout du bouton au cas où ce nouvel objet est une forme.

Si tu arrives à faire ça et à cibler l'objet nouvellement créé (la forme), ajouter un bouton (et son code) est assez simple.
Voir Controls.Add, CodeModule ...

Ajout des références nécessaires :
"Microsoft Visual Basic for Applications Extensibility" pour manipuler les modules de code
"Microsoft Forms 2.0 Object Library" pour pouvoir créer des contrôles dynamiquement

Penser aussi à aller dans les options pour demander de faire confiance à ton projet :
Menu Developpeur + Sécurité des macros (catégorie Code) + cocher la case "Accès approuvé au modèle d'objet du projet VBA"

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on le partage (Socrate)

fabiendag · Answer

bonjour Jack
Bio, j'ai tester la procédure worksheet_newsheet et ca fonctionne. Au moment où je choisis d'ajouter une nouvelle feuille (clique droit sur une feuille, insérer feuille), le bouton se crée automatiquement dans la nouvelle feuille


Fabien

BIOoOAG123 · Answer

Je code un peu oui :)

Ah super de voir autant de réponse après le déjeuné! 
Donc si j'ai bien compris tu utilises :

worksheet_newsheet
(Comment tu l'utilises? il n'y a pas grand chose sur internet..)

Je suppose que tu mets le code dans ThisWorkbook?

fabiendag · Answer

oui tu mets le code dans thisworkbook
tu écris sub workbook_newsheet et tu appuies sur entrée
ensuite tu peux taper ton code à l'intérieur de la procédure

c'est bien workbook_newsheet et pas worksheet_newsheet (je me suis trompé dans mon second message)


Fabien

BIOoOAG123 · Answer

Oki super, merci beaucoup, je teste ça et je te tiens au courant du résultat. :)

BIOoOAG123 · Answer

Alors mon code donne ça, le bouton s'insère bien, mais il y a une erreur 9(l'indice n'appartient pas à la sélection)
(il me dit pas ou elle est par contre...) :(

Sub workbook_newsheet(ByVal Sh As Object)
Dim Obj As Object
Dim Code As String

Sh.Select

'crée le bouton
    Set Obj = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", _
    Link:=False, DisplayAsIcon:=False, Left:=200, Top:=100, Width:=100, Height:=35)
    Obj.Name = "BoutonTest"
'texte du bouton
    ActiveSheet.OLEObjects(1).Object.Caption = "Tester le bouton"

'Le texte de la macro
    Code = "Sub BoutonTest_Click()" & vbCrLf
    Code = Code & "Call Module1.MAJMacro" & vbCrLf
    Code = Code & "End Sub"
'Ajoute la macro en fin de module feuille
    With ActiveWorkbook.VBProject.VBComponents(ActiveSheet.Name).CodeModule
        .insertlines .CountOfLines + 1, Code
    End With
End Sub

Je pense de plus que l'appel de la macro ne marche pas.. Si quelqu'un à une solution? :)

fabiendag · Answer

je comprend pas où il plante ton fichier. En fait j'ai copié ton code et ca fonctionne bien. J'ai une nouvelle feuille avec le bouton dessus. 
J'ai juste une erreur quand je clique sur le bouton qui est normal vu que je n'ai pas ta macro...


Fabien

BIOoOAG123 · Answer

Bon j'ai mis un On error Resume Next qu'il ne m'embete plus, mais du coup je ne peux pas cliquer sur le bouton. Enfin lorsque je clique rien ne se passe.

fabiendag · Answer

tu as essayé d'exécuter ton code en pas a pas ?

Fabien

BIOoOAG123 · Answer

Oui il me dit qu'il ne peux pas passer en mode arret à un moment..
En fait je peux même pas supprimer le bouton, ni changer le texte,c'est comme si il était bloqué?

fabiendag · Answer

justement c'est sur quelle ligne ?


Fabien

ucfoutu · Answer

Bonjour,
1) Le code montré ne peut QUE fonctionner, pour autant qu'existe la procédure MajMacro et qu'elle soit bien dans le Module Module1
2) tu es bloqué car passé en mode erreur/débug, dont il te faut sortir en allant dans le code de la feuille et en l'interrompant par un clic sur le bouton "reinitialiser"

________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.

BIOoOAG123 · Answer

C'est juste après celle là :
Set Obj = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", _
    Link:=False, DisplayAsIcon:=False, Left:=200, Top:=100, Width:=100, Height:=35)

    

Ca serait bizarre que ce soit cette ligne qui la suit qui bug 
Obj.Name = "BoutonTest"

fabiendag · Answer

je comprend pas pourquoi il ne fonctionne pas ton code honnêtement. Tu nous montres bien tout et pas juste une partie de ton code ?


Fabien

BIOoOAG123 · Answer

1) Oui c'est bien le cas pour la macro et elle est bien dans module1
2) J'ai fais ce que tu as dit toujours aucun changement

BIOoOAG123 · Answer

Oui oui c'est mon code exacte

ucfoutu · Answer

Bon... (et un salut à fabiendag) : bien que inutile, je viens de faire les frais d'un test de ce code sur un classeur === >>>  fonctionne sans faille  . 
Voilà.


________________________
Réponse exacte ?  => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.

BIOoOAG123 · Answer

Oui j'ai fais le test aussi, donc si ça vient pas du code ça vient forcément d'excel! ^^ Mais ou et pourquoi? lol dur dur la question.

cs_MPi · Answer

Bonjour,

J'imagine que si "BoutonTest" existe déjà la macro ne pourra pas le créer encore une fois, d'où l'erreur.

Il te faudrait le supprimer auparavant
Activesheet.Shapes("Bouton Test").delete


MPi²
Pour ceux qui programment sous Office, n'oubliez pas qu'il existe un forum dédié à ces applications VBA....... ICI

ucfoutu · Answer

Bonjour, MPi.
Même pas, car pas créé dans un module bas, mais sur la feuille ajoutée. 
Non. Son problème est très vraisemblablement dans ses options de sécurité. 


________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.

Utilisateur anonyme · Answer

Bonjour,

Je n'ai pas tout lu mais quand tu joues avec la bibliothèque Extensibility tu dois cocher la case "Faire confiance au projet VisualBasic.

BIOoOAG123 · Answer

J'ai déjà tout de ok niveau sécurité, j'ai mis,
Activer toute les marco (normal.)
Et aussi coché Accés approuvé au modèle d'objet de projet VBA.
(sur 2010)

Il y t-il une autre option à cocher?

fabiendag · Answer

Bonjour a tous,
tu as cocher les cases faire confiance au projet Visual Basic et faire confiance à tous les modèles et compléments installés ?


Fabien

fabiendag · Answer

coché ^^


Fabien

BIOoOAG123 · Answer

Bon j'ai créé un nouveau classeur et ça fonctionne; vraiment bizarre, je vois que ça comme solution toute façon... J'espère que ça va pas me le refaire :(

BIOoOAG123 · Answer

faire confiance au projet Visual Basic et 
faire confiance à tous les modèles et compléments installés 
ne sont pas dispo sur excel 2010 ou du moins impossible de les trouver, les seules options de sécurité sont celles que j'ai coché.

fabiendag · Answer

si c'est pas le même nom : dans Fichiers/Option/Centre de Gestion de la confidentialité/Paramètres du centre de gestion de confidentialité/Paramètres des macros, cocher la case « Accès approuvé au modèle d'objet du projet VBA ».


Fabien

fabiendag · Answer

ah pardon, tu l'as déjà fait oups j'avais zappé un de tes messages... j'en avais de trop ce matin en arrivant lol


Fabien

BIOoOAG123 · Answer

hallelujah!! J'ai trouvé d'ou ça vient! 


En fait ça vient du fait que je change le nom de la feuille, avec le nom de base donc feuilleX ça fonctionne mais vu que je change le nom de la feuille pour la date du jour (via un Sh.Name = DatePart("d", Date)... etc. avant je le faisait à la main, voila pourquoi je ne l'avais pas remarqué) ça ne marche plus. Comment je fais? 


Voici le code :



Sub workbook_newsheet(ByVal Sh As Object)
Dim Obj As Object
Dim Code As String

Sh.Select

    On Error Resume Next
    '*********** Mise en forme ************
    Rows(1).RowHeight = 42
    Rows(2).RowHeight = 35
    
    '********** Nom de la feuille *********
    Sh.Name = DatePart("d", Date) & "." & DatePart("m", Date) & "." & DatePart("yyyy", Date)
    
    '*********** crée le bouton ***********
    Set Obj = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", _
    Link:=False, DisplayAsIcon:=False, Left:=5, Top:=5, Width:=150, Height:=35)
    Obj.Name = "BoutonTest"
    '********** texte du bouton ***********
    ActiveSheet.OLEObjects(1).Object.Caption = "Calcul Marge"
    
    '********* Le texte de la macro *******
    Code = "Sub BoutonTest_Click()" & vbCrLf
    Code = Code & "Call Module1.MAJMacro" & vbCrLf
    Code = Code & "End Sub"
    
    '* Ajoute la macro en fin de module feuille *
    With ActiveWorkbook.VBProject.VBComponents(ActiveSheet.Name).CodeModule
    .insertlines .CountOfLines + 1, Code
    End With
End Sub

BIOoOAG123 · Answer

Super ça fonctionne merci beaucoup! :) Merci à tous de m'avoir aidé!

BIOoOAG123 · Answer

Pour ceux que ça intéresse ce code plante parfois (il ne copie pas le code (Sub x call ... end sub) dans la nouvelle feuille), pour y remédier il faut remplacer ActiveSheet.Name par ActiveSheet.CodeName

With ActiveWorkbook.VBProject.VBComponents(ActiveSheet.Name).CodeModule
        .insertlines .CountOfLines + 1, Code
    End With

Voili Voilou  J'espere que ça pourra vous sera utile!

Nouvelle feuille avec des boutons?

33 réponses

Votre réponse

Discussions similaires