IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

CommandButton activeX créé inactif avant changement de feuille [XL-2010]


Sujet :

Macros et VBA Excel

Mode arborescent

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Nouveau candidat au Club
    Homme Profil pro
    GDC
    Inscrit en
    Avril 2015
    Messages
    2
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Loiret (Centre)

    Informations professionnelles :
    Activité : GDC
    Secteur : Bâtiment

    Informations forums :
    Inscription : Avril 2015
    Messages : 2
    Par défaut
    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:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
     
                    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
    Bon, je joint mon fichier dans lequel il n'y a pas de données confidentielle.
    C'est un peu touffu (beaucoup d'onglets caché mais il faut s’intéresser à l'onglet "PMS WINDOWS". J'ai mis des commentaires dessus.

    En substance, j'ai l'impressions que tous mes boutons de classe (module "classe1") sont désactivés dès que je réalise une copie à partir d'un autre bouton...

    Je suis complètement bloqué alors si quelqu'un à une piste de réflexion...
    Fichiers attachés Fichiers attachés

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [XL-2013] Erreur lors d'un changement de feuille avec un formulaire ActiveX
    Par mikagi dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 26/03/2015, 19h30
  2. Changement de feuille sous Excel
    Par cstan dans le forum C++Builder
    Réponses: 4
    Dernier message: 30/06/2006, 10h19
  3. Changement de feuille dans excel
    Par 24 faubourg dans le forum Access
    Réponses: 3
    Dernier message: 06/12/2005, 09h52
  4. [vb.net][combobox] récupérer la valeur avant changement
    Par graphicsxp dans le forum Windows Forms
    Réponses: 36
    Dernier message: 19/10/2005, 10h59
  5. [Systeme]PDC inactif depuis changement de carte mere
    Par WoboX dans le forum Windows Serveur
    Réponses: 4
    Dernier message: 18/10/2005, 15h01

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo