Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Problème d'ajout de code pour des boutons dynamiques

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Vaati
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
V

Vaati

XLDnaute Nouveau
Bonjour à tous,

Voila, je vous expose mon problème
J'ai créé une macro qui établit des plannings à partir d'une base de données... jusque la tout va bien.

Je crée des boutons dynamiques afin d'avoir une interaction avec ce planning.

Mes boutons se placent bien, prennent les bonnes dimensions, mais (car il y a toujours un mais) quand j'essaye d'écrire leur code dans la feuille VB, Excel plante completement...

pourtant la premiere itération se passe bien (définition des dimensions du bouton, création du boutton, attribution de code).
Mais quand excel plante, je vois mes 2 premiers boutons correctement affichés, et apres des tests avec msgbox(car la compil pas a pas quand on fait du bouton dynamique ca plante , merci m$), j'ai isolé le problème...

Ci joint la portion de code ...

La fonction de création de bouton:

Code: 
Sub createbutton(bleft As Double, btop As Double, bwidth As Double, bheight As Double)

   ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False _
        , DisplayAsIcon:=False, left:=bleft, top:=btop, width:=bwidth, height _
        :=bheight).Select
     
End Sub

Et la partie création du bouton et insertion de code

Code: 
Application.Run "createbutton", gauchebouton, sommetbouton, largeurbouton, hauteurbouton
    

'compter le nombre de boutons existants dans la feuille
y = ActiveSheet.OLEObjects.Count

  'c'est la que ca plante!! quand y=2
ActiveSheet.OLEObjects(y).Name = "CommandButton" & y
 
'tempstr est initialisé a ce moment...
        ActiveSheet.OLEObjects(y).Object.Caption = tempstr
      
    'définition de la fonction 
    code = "Sub CommandButton" & y & "_Click()" & vbCrLf
    code = code & "msgbox(" & y & ""ca marche"")" & vbCrLf
    code = code & "End Sub" & vbCrLf

  
ActiveWorkbook.VBProject.VBComponents(Worksheets("Planning").CodeName).CodeModule.AddFromString code


Merci d'avance pour votre aide 🙂
 
Dernière édition:
Trier par date Trier par votes
Re : Problème d'ajout de code pour des boutons dynamiques

Salut

difficile à résoudre sans le code entier...?!

perso j'utilise la méthode "insertlines" plutôt que "addfromstring"

fais un essai comme ça :

Code: 
...
With ActiveWorkbook.VBProject.VBComponents(Worksheets("Planning").CodeName).CodeModule
    .InsertLines .CountOfLines + 1, code
End With
...

qu'est-ce que ça dit ?..
 
Vote positif 0 Vote négatif
Re : Problème d'ajout de code pour des boutons dynamiques

Oula, après avoir effectué d'autres tests , j'ai vu que l'erreur se situait ailleurs...
🙄

Il se trouve que le code marche quand on enleve:

Code: 
ActiveWorkbook.VBProject.VBComponents(Worksheets("Planning").CodeName).CodeModule.AddFromString code

(Les boutons se créent bien)

mais quand on le laisse, c'est au niveau de cette instruction que ca plante :s
sachant que y=2

Code: 
ActiveSheet.OLEObjects(y).Name = "CommandButton" & y

Désolé pour le mauvais diagnostic 😛
 
Vote positif 0 Vote négatif
Re : Problème d'ajout de code pour des boutons dynamiques

Je relance le sujet!
(j'ai oublié de préciser, je travaille sous office 2007, peut etre que ca change quelque chose, j'ai eu des surprises récemment avec des DTPickers qui se cachaient)
 
Vote positif 0 Vote négatif
Re : Problème d'ajout de code pour des boutons dynamiques

Bonjour Vaati, bonjour Berylion,

J'ai testé chez moi avec XL2003 et tout marche correctement avec ta méthode ou celle de Bérylion.

Remarques:
pourquoi veux-tu renommer les boutons avec le nom qu'Excel leur donnera automatiquement par défaut?

tout ne fonctionnerait-il pas correctement sans le rename?

Peut-être que Excel 2007 n'accepte pas de rename avec un nom identique.

Essaye en mettant un nom différent, ex "CdB" & y

Je n'ai pas d'autre idée.

@+

Gael
 
Vote positif 0 Vote négatif
Re : Problème d'ajout de code pour des boutons dynamiques

Je ne pense pas que excel 2007 n'accepte pas le rename, car cela marche pour le premier bouton...

Mais j'ai trouvé une méthode qui marche, en déclarant les boutons dans une boucle, puis en générant le code lié a ces boutons dans une autre boucle...

Mon problème initial reste donc un mystere....


Merci à tous pour votre aide 🙂

Vaati.
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Résolu(e)
Autres que penses vous de ce mini test benchmark(timer plus precis)
Réponses
6
Affichages
925
patricktoulon
C
  • Résolu(e)
XL 2010 Création dynamique de Controles et du code event associé
2
Réponses
28
Affichages
5 K
CC76
C
S
  • Résolu(e)
Microsoft 365 Bug de macro pour effacer une ligne
Réponses
4
Affichages
1 K
ShrekL
S
A
  • Question Question
XL 2010 UserForm ce ferme avant de sortir de la macro
Réponses
13
Affichages
2 K
bof
B
  • Question Question
Microsoft 365 problème navigation et selection dans Combobox-Liste de choix
Réponses
4
Affichages
2 K
chostra
S
  • Question Question
XL 2016 code pour groupe de trois boutons options
Réponses
4
Affichages
648
sebastaupole
S
M
  • Question Question
Problème de référence formule et graphique lors de copie de feuilles excel pour réinitialiser données
Réponses
4
Affichages
2 K
mathi22
M
S
  • Question Question
Autres problème code vba avec le bouton supprimer et ajouter
Réponses
2
Affichages
1 K
sylvanu
L
  • Question Question
XL 2019 Problème de boucle ou de variables
Réponses
1
Affichages
1 K
Lucien31
L
J
  • Question Question
XL pour MAC code à insérer dans mon VBA pour enregistrer et archiver en pdf
Réponses
0
Affichages
1 K
julie13
J
  • Question Question
XL 2016 Variable de tableau Excel nommé
Réponses
9
Affichages
2 K
troopers87
  • Question Question
Petit prob d'envoie de courriels
Réponses
2
Affichages
1 K
Valtrase
  • Question Question
connection au driver cam directement sans passer par la boite de dialog
Réponses
1
Affichages
2 K
patricktoulon
  • Question Question
mise a jour des références dans un macro
2
Réponses
15
Affichages
3 K
grisan29
  • Question Question
[RESOLU] Etendre code à toutes les feuilles
Réponses
7
Affichages
688
cathodique
B
  • Question Question
ajouter demande de confirmation pour l'utilisation de cette macro par msgbox
Réponses
1
Affichages
1 K
Papou-net
E
  • Question Question
Excel plante sur une procédure
Réponses
2
Affichages
784
Edze
E
  • Question Question
code pour 2 feuilles dans 2 boutons différents?????
Réponses
5
Affichages
1 K
grisan29
E
  • Question Question
Usf Ouverture lente et Gestion des boutons
Réponses
0
Affichages
6 K
emsylvin69
E
  • Question Question
Affecter des évènements à des boutons crées dynamiquement
Réponses
3
Affichages
1 K
WUTED
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…