Discussion :

[etpisculrien]

Bonjour à tous,

J'aurais besoin de vos lumières car je ne m'en sort plus. J'ai fait la même demande sur un autre site mais personne ne semble capable de trouver une solution (voir de me répondre :s)

Voilà mon problème : Je cherche à créer par macro sur Excel un bouton dans une frame, avec sa macro rattachée . Grace à ce site, j'ai trouvé un bout de code pour y arriver (merci SilkyRoad). Pour résumer, j'ai un userform avec un bouton "ajouter" qui copie/colle une frame d'un autre userform sur un multipage. A la suite de quoi, grace au bout de code trouvé, je crée un bouton "supprime" dans la frame collée.

Jusque là, tout va bien, puis... c'est le drame!

En effet, quand je clique à nouveau sur le bouton "ajouter", cela me copie/colle bien une 2ième frame en dessous de la première et me crée un bouton supprime avec la macro associée, mais je perds la macro du premier bouton :'(
Je voudrais donc qu'à chaque fois que j'ajoute une frame avec son bouton "supprime" et sa macro, que cette macro fonctionne pour chaque bouton "supprime" créé.

ça parait compliqué à comprendre mais je vous joint mon fichier pour mieux comprendre...

Si un génie trainait dans les parages, ce serait sympa à lui de m'aider, j'ai plus que 3 cheveux sur la tête

Merci d'avance de votre aide

[Mr Poulpe]

Bonjour,

Deux commentaires :

-Premièrement, tu dois déclarer ta collection "Collect" comme publique en début de module. Sinon, les éboueurs viennent après l'exécution de ta macro type1 et emmènent ta collection "Collect" à la déchetterie.
-Deuxièmement, tu ne dois pas instancier ta collection "Collect" à chaque fois que tu crées tes contrôles. C'est comme si tu jetais ta collection de timbre pour en commencer une nouvelle à chaque fois que tu avais un nouveau timbre.

En début de module "BAIEREQUEST", tu peux mettre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Public Collect As Collection 'Déclare une collection publique, qui continue à vivre après l'exécution de la procédure "type1"
Private Sub UserForm_Initialize()
    Set Collect = New Collection 'Instancie ladite collection
End Sub

Comme ça, tu auras une collection que tu pourras conserver après l'exécution de ta procédure "Type1".

Pour ne pas la jeter à la poubelle systématiquement, tu devras aussi supprimer la ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set Collect = New Collection

au sein de ta procédure "type1"

Un peu de littérature pour conclure :

https://msdn.microsoft.com/fr-fr/VBA...e-of-variables

https://fr.wikipedia.org/wiki/Ramass...(informatique)

Bien cordialement,

Poulpe

[NVCfrm]

bonjour.
Commence par balancer le code au lieu d'un fichier, et avec toutes les explications pour nous eviter de perdre du temps.

[etpisculrien]

Bonjour Mr Poulpe,

Un grand merci à toi!!!!! ça fonctionne du toner!
T'es un chef, encore merci de ton aide (j'ai encore du boulot pour bien maitriser VBA on dirait )

PS : NVCfrm, désolé j'ai essayé d'être le plus clair possible