Bonjour à tous,
Tout d'abord je tiens à préciser que j'ai écumé le net sans trouver de solution à mon problème.
Je suis sur une feuille "destination"
Je copie / colle un bouton depuis la feuille "source" sur la feuille "destination" (cela fonctionne bien)
Le bouton ainsi copié et renommé ne fonctionne pas: je clique dessus mais rien ne se passe.
Le bouton se met à fonctionner correctement dès lors que je change de feuille (sur n'importe quelle autre feuille du classeur).
Si je copie un autre bouton après ça, aucun des boutons copiés ne fonctionnent (mais ceux présents dès le départ oui) jusqu'à ce que je rechange de feuille...
PRECISION: si je change de feuille et reviens en automatique, ça ne fonctionne pas non plus! (uniquement si je change de feuille en cliquant "à la main")
Quelqu'un a t-il déjà rencontré ce pb? Je suis archi bloqué et c'est très important pour moi...
Merci à ceux qui ont eu la patience de ma lire.
Mon code pour copier le bouton:
Tout d'abord je tiens à préciser que j'ai écumé le net sans trouver de solution à mon problème.
Je suis sur une feuille "destination"
Je copie / colle un bouton depuis la feuille "source" sur la feuille "destination" (cela fonctionne bien)
Le bouton ainsi copié et renommé ne fonctionne pas: je clique dessus mais rien ne se passe.
Le bouton se met à fonctionner correctement dès lors que je change de feuille (sur n'importe quelle autre feuille du classeur).
Si je copie un autre bouton après ça, aucun des boutons copiés ne fonctionnent (mais ceux présents dès le départ oui) jusqu'à ce que je rechange de feuille...
PRECISION: si je change de feuille et reviens en automatique, ça ne fonctionne pas non plus! (uniquement si je change de feuille en cliquant "à la main")
Quelqu'un a t-il déjà rencontré ce pb? Je suis archi bloqué et c'est très important pour moi...
Merci à ceux qui ont eu la patience de ma lire.
Mon code pour copier le bouton:
Code:
With Sheets(pOngletDestination)
.range(G_ColonneInfoBoutons & l).Value = nouveauBouton ' mise à jour du mot cle avec le nouveau nom de bouton
.Paste
.OLEObjects(.OLEObjects.count).Name = nouveauBouton
.OLEObjects(nouveauBouton).Left = X.Left
.OLEObjects(nouveauBouton).Top = Onglet_dest.Cells(l, G_ColonneDebutBlocs).Top ' + 10
If numBouton Mod 2 = 0 Then ' bouton impair: on le rend invisible
.OLEObjects(nouveauBouton).Visible = False
End If
.Activate
End With
Dernière édition: