Discussion :

[pijaku]

Bonjour,
En aide à un forumeur, je me trouve exposé à un problème que je ne saisis pas... J'ai beau chercher, m'arracher les cheveux, rien n'y fait. Je fais donc appel àvos lumières. Merci de vous pencher sur ce cas...
Voici ce que j'ai fait (et qui ne fonctionne pas!)

Dans un module standard :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Public Bouton() As New Classe1
Dim Obj As OLEObject
 
Sub CreateButton()
Worksheets("Principal").Select
Set Obj = ActiveSheet.OLEObjects.Add("Forms.CommandButton.1", Left:=100, Top:=150, Width:=80, Height:=30)
With Obj
    .Name = "ButtonInitFeuille"
    .Object.Caption = "Initialisation"
End With
InitBoutons
End Sub
 
Sub InitBoutons()
Dim Cpt As Integer
 
For Each Obj In Worksheets("Principal").OLEObjects
    'If oleObj.Name = "ButtonInitFeuille" Then
    If TypeOf Obj.Object Is MSForms.CommandButton Then
        Cpt = Cpt + 1
        ReDim Preserve Bouton(1 To Cpt)
        Set Bouton(Cpt).ButtonInitFeuille = Obj.Object
   End If
Next
Set Obj = Nothing
End Sub
 
Sub InitFeuilleTab()
    MsgBox "Ca fonctionne!"
End Sub

Dans le module de classe (nommé Classe1) :

Code :

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

1
2
3
4
5
6
7
Option Explicit
 
Public WithEvents ButtonInitFeuille As MSForms.CommandButton
 
Private Sub ButtonInitFeuille_Click()
    Call InitFeuilleTab
End Sub

Voilà. Lorsque je créé un bouton en lançant "CreateButton", il le créé bien. Cependant, le clic n'a aucun effet. Pour obtenir un résultat, il faut lancer "CreateButton" puis, manuellement (ALT+F8) "InitBoutons"... J'en perds mon lâtin.
Merci.
Vous dites, si vous voulez un classeur exemple ou de plus amples indications...

[oOVaveOo]

Bonjour Pijaku,

Donc, en pas à pas, tu ne passe même pas dans ta sub InitBoutons() ?
A tout hasard, essaye avec un

Code :

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

call InitBoutons

[pijaku]

Salut,
Le mode pas à pas ne semble pas fonctionner.
Il passe de toutes façons par InitButons. j'ai essayé de mettre un MsgBox dans la boucle de InitButons et il s'affiche bien à chaque Bouton...
Call n'apporte rien de plus.
Merci quand même

[Pierre Fauconnier]

Salut.

Il y a des bizarreries dans ton code.

Code :

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

Public Bouton() As New Classe1

Les parenthèses sont de trop. Je suppose que tu veux manipuler une classe qui serait en quelque sorte une collection de boutons, mais tu ne peux faire cela comme ça.

Dès lors, ta ligne

Code :

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

Set Bouton(Cpt).ButtonInitFeuille = Obj.Object

pose problème également.

Dans la classe, tu déclares un bouton comme variable puis une procédure sur évènement, mais il faudrait encore attribuer un objet à cette variable.

A ce stade, il serait utile que tu expliques d'abord en français ce que tu souhaites réaliser, au lieu de donner du code qui ne correspond probablement pas à ton objectif, et nous pourrons alors de guider au mieux.

A toutes fins utiles, tu peux lire mon tuto sur la création de classes personnalisées.

[pijaku]

Bonjour Pierre,

Ce que je souhaite réaliser :
A l'ouverture du classeur :
1- Ajout d'une feuille nommée "principal",
2- suppression de toutes les autres feuilles,
3- ajouter un bouton de commande dans ma feuille,
================> Jusqu'ici tout va bien

4- l'affecter à une classe d'objet pour pouvoir déclencher un événement (toujours le même) au clic.
5- Lorsque je le souhaite, re-lancer (par : ALT+F8) les points 3 (création) et 4 (affectation).

Le 5- pourra être fait à volonté.

Je suis parti de la réponse de Patrick dans cette discussion en essayant de l'adapter. Je pensais naïvement changer "Image" en "CommandButton" et que ça roulerai, mais...

De plus, ce que je ne saisis pas dans ce que j'ai réalisé, c'est que les 2 codes fonctionnent. Lancés séparément, "CreateButton" me créé bien mon CommandButton et "InitButton" fait en sorte que mon bouton réagisse au clic.
Par contre, la réunion des deux codes en une seule procédure créé mon bouton mais ne "l'initialise" pas...

J'ai lu votre tuto avant de me lancer dans cette histoire... Très explicite, mais je dois être encore trop novice pour bien le comprendre... Je vais le lire autant de fois que nécessaire pour enfin comprendre.

Merci.

[Pierre Fauconnier]

La réponse sera différente si tu souhaites un résultat ou si tu souhaites, par goût d'apprendre, à ajouter des éléments qui réagissent au même évènement.

Si le but est le résultat, je serai pragmatique en ajoutant des boutons de formulaires (des "shape") sur les feuilles et en leur renseignant comme propriété le nom de la macro qui doit être activée au clic (propriété OnAction).

Cela éviterait la manipulation de classe et de collection d'objets

[pijaku]

En fait, c'est juste par goût d'apprendre. Pour être honnête c'est une question qui m'a été posée ailleurs et que j'ai résolu en utilisant une toute autre méthode.
Je voulais donc, juste pour moi, savoir le faire et pouvoir le reproduire.
J'ai déjà réalisé des classes personnalisées comme celle-ci à l'intérieur de UserForm et ça ne m'a jamais posé de problème. Par contre, sur les feuilles je galère... Ne serais ce que la vue d'un Shape me colle des frissons .

Si tu veux, que tu peux, et que tu en trouves le temps, j'aimerais vraiment apprendre ça.

En tout cas, merci.

[patricktoulon]

bonjour pikaju

si tu t'es inspiré de la derniere discution tu devrais t'en sortir

cela dis dans masignature le lien sur mon addins mouseover et out sur les bouton dans un userform serait plus parlant

ensuite au fur et a mesure de ta discution je me rend compte qu'en fait tu n'ajoute qu'un seul bouton
a partir de la la classe n'a pas lieu d'etre

tout simplement ajouter la macro associé "private sub trucmachin_click"par macro

tiens comme ça vite fait

vire ton module classe

vire tout ce qui avait avant dans le module ou ce trouve la macro createbouton

et met ceci a ca place:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
'Attention il faut activer la référence "Microsoft visual basic for Application extensibility x.x chez moi (5.3)
 
Option Explicit
Dim VBComp As VBComponent
Dim Mdl As CodeModule
Dim objet As Shape
Dim Obj As OLEObject
Dim nombouton As String
Dim x As Long
 
 
Sub CreateButton()
    For Each Obj In Worksheets("Principal").OLEObjects
        If Obj.Name = "bouton1" Then
         Exit Sub
        Else
         GoTo ajoutbouton
        End If
    Next
 
ajoutbouton:
 
        Worksheets("Principal").Select
        Set Obj = ActiveSheet.OLEObjects.Add("Forms.CommandButton.1", Left:=100, Top:=150, Width:=80, Height:=30)
        With Obj
            .Name = "bouton1"
            .Object.Caption = "Initialisation"
            nombouton = .Name
        End With
        For Each VBComp In ActiveWorkbook.VBProject.VBComponents
 
            'ATTENTION!!!
            'Veriefie bien dans l'editeur vbe que le sheets s'appelle bien
 
            '"Principal(Principal)"
 
            'et non pas
 
            '"Feuil1(Principal)"
 
            If VBComp.Name = "Principal" Then
 
            With VBComp.CodeModule
                x = .CountOfLines
                .InsertLines x + 1, "Private Sub " & nombouton & "_Click()"
                .InsertLines x + 2, "InitFeuilleTab"
                .InsertLines x + 3, "End Sub"
            End With
        End If
        Next
    End Sub
Sub InitFeuilleTab()
MsgBox "coucou"
End Sub

voili voilou
résumé:
teste si le bouton existe déjà
si il existe on sort de la sub
si il n'existe pas on le créé
on créé aussi sa macro associée a son événement (click) dansle module de la feuille "principal"

dans cet macro évènement on fait appel a la macro "InitFeuilleTab" tout simplement

mon opigion:il n'est pas utile de faire une classe qui gere les evenements du bouton puisque qu'il y en a qu'un sachant qu la classe quand elle est activée elle prend de la memoire pour rien

tandis que de cette maniere il ne reste rien en memoire

on pourrais meme boucler x fois sur cette macro incrementer une variable pour le nom du bouton et les ammener tous a ce resultat ce qui aurais pour effet le meme que l'utilisation de ta classe

comme tu peux le constater il y a plusieur solutions je viens de t'en présenter une ,toi qui veux apprendre te voila maintenant dans la manipulation de l'editeur vbe par macro

voila pour mon opigion


n'hesite pas poser des questions

au plaisir

[pijaku]

Salut Patrick,
Bonjour à tous.

Si j'ai posé cette question, à la base, c'était pour apprendre à réaliser des modules de classe. Naïvement, car je ne connaissais pas, je voyais ça tout simplement dans le cadre de la création de contrôles qui possédaient tous le même rôle, la même action à réaliser.
Le tuto de Pierre Fauconnier, que je remercie au passage, commence à m'ouvrir les yeux sur les possibilités de ces classes.

Je connaissais la manipulation de l'éditeur de macro par macro, c'est la solution que j'avais proposé au demandeur initial.

Bref, je vais marquer ce post comme "résolu", et retourner apprendre par moi-même.

Merci à tous de l'aide apportée.