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