[VBA excel] Probleme sur bouton commande

Version imprimable

18/11/2005, 00h01
RedBurn

[VBA excel] Probleme sur bouton commande

Bonjour, ou plutot bonsoir
Voila j'ai un probleme en VBA sous EXCEL. En effet, j'ai un bouton dans une feuille du classeur que je veux rendre utilisable. Le probleme c'est que je ne peux pas savauvegarder la macro (Sub) sur la feuille elle meme car elle change tout le temps.
En fait, je voudrais savoir si il est possible de faire une macro qui écoute un bouton crée sur la feuille précédement. Tout en mettant l'écoute dans un module plutot que sur la feuille.
Je sais pas si j'ai été clair mais merci d'avance.
18/11/2005, 00h24
leroissejp

Bonsoir,
Si j'ai bien compris ?, tu peut faire ceci.
Tu places ta macro dans un module, ensuite sur ta feuille tu places un bouton de la barre d'outils Formulaire et tu lie ta macro.
Tu peux placer autant de bouton que tu veux sur plusieurs feuille et lier la macro

jpleroisse

En fait je génére mon bouton a chaque fois (la feuille excel étant différente à chaque fois) de la manière suivante
Code:

1 2 3 4 5 6 7 8 9 Dim oOLE As OLEObject Set oOLE = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False _ , DisplayAsIcon:=False, Left:=184, Top:=314.338235294118, _ Width:=150, Height:=30) 'affecte un nom oOLE.Name = "boutonOK" 'affecte une donnée sur le bouton oOLE.Object.Caption = "Génération des tableaux"
le probleme c'est que l'écoute de se boutton (OnClick) se fait sur la feuille du classeur et je voudrais qu'elle se faise lors de la construction de cette feuille

c'est assez complexe je l'admet.
Merci d'avance

18/11/2005, 01h20
AlainTech

Citation:

Envoyé par RedBurn

le probleme c'est que l'écoute de se boutton (OnClick) se fait sur la feuille du classeur et je voudrais qu'elle se faise lors de la construction de cette feuille

Je n'ai toujours pas compris ce que tu veux dire par "lors de la construction de cette feuille" mais...

N'est-il pas nettement plus simple de créer une barre d'outil et d'y mettre ton bouton qui sera actif pour (et accessible de) toutes les feuilles?
18/11/2005, 09h16
RedBurn

La feuille excel dans laquelle se trouve le bouton est généré a chaque fois à partir d'un feuille principale récupéré sur un serveur toutes les semaines (et qui diffère à chaque fois). Le code de création est dans un module à part mais le code d'écoute du bouton, pour que ca marche, je ne trouve pas d'autre facon que le mettre sur ma feuille du classeur mais je voudrais l'en séparer.
Peut être que ta technique fonctionne mais je ne sais pas la mettre en place.
Disons que en fait je voudrais faire une écoute indépendement des feuilles du classeur
18/11/2005, 09h30
ouskel'n'or
Ce que tu peux faire, c'est placer la macro dans
Code:

1 2 3 Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Excel.Range) End Sub
ou
Code:

1 2 3 Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Excel.Range) End Sub
ou...

avec un test sur la feuille active

Si tu places un bouton sur chaque feuille, arrange-toi pour qu'ils aient tous le même nom, ex CommandButton1
Ensuite, c'est le bouton de la feuille "détectée active" que tu testes.
J'ai fait ça mais je ne sais plus dans quelle appli. Si je retrouve, je te mets ça.

A+
18/11/2005, 10h31
leroissejp

Bonjour,
Je crois que la solution de AlainTech est la meilleure, dans ta barre d'outils existante tu crées un nouveau menu qui lance la macro sur la feuille active quelle quelle soit.

jpleroisse
18/11/2005, 10h52
Megaxel

Et donc, la mettre dans le Perso.xls...
18/11/2005, 14h28
ouskel'n'or

Ou créer un modèle adapté... :wink:
18/11/2005, 14h44
Megaxel

Oui! N'empêche que le perso.xls, il est fait pour ça.
18/11/2005, 16h22
ouskel'n'or

Oui, et tu passes ton perso à tous les utilisateurs... avec une barre d'outil encombrée d'un tas de trucs inutiles :cry: beurk :cry: beurk :cry: beurk !

Le mieux est de se créer une barre en dynamique avec des boutons en dynamique, qui lancent les macros qui vont bien...

Au fait, RedBurn, j'ai le code qui fait ça. Ça te dit :wink:

A+
18/11/2005, 16h38
leroissejp

Bonjour,
ouskel'or, quentend-tu par tu passes ton perso à tous les utilisitateurs?
Quand à la barre d'outils, ce n'est pas un menu en plus qui va l'encombrer.
Si on veux, on peut placer un sous menu dans le menu Outils ou autres.

jpleroisse
18/11/2005, 20h52
ouskel'n'or

Hello leroissejp,

Je pense qu'une appli est faite pour être distribuée (toujours est-il que c'est le cas chez moi) Or, si je mets un bouton dans mon perso, les autres ne l'auront pas. En faisant une barre d'outil pour un bouton, que je place là où je veux qu'elle soit, et que j'efface en sortie, je peux distribuer mon fichier sans problème.

Quant à placer un sous-menu (ce qui a été ma première idée) je me suis vite dit que l'utilisateur lambda allait devoir être informé de la position... Or moins tu as à en dire, plus mieux c'est simple, moins plus c'est compliqué... :lol:

A+
18/11/2005, 21h47
leroissejp

Bonsoir ouskel'n'or
J'ai déjà posté, mais apparament celà n'a pas marcher.
Tout celà pour te dire que je suis d'accords avec toi sur certain point.
Mon code fait exactement comme tu dis, je détruit le menu (ou le sous-menu) en quittant l'application et l'-orsque l'utilisateur ouvre ce classeur uniquement le menu se crée.
Pour ce qui est du nom du menu, il n'appartient à aucun nom de menu Excel, donc l'utilisateur ne doit pas avoir de mal à le repérer.
Si tu veux, je place mon code ici, tu pourras l'essayer et me dire ce que tu en pense?

jpleroisse

Hello,

J'ai là une macros pour installer un bouton sur une barre d'outils
Code:

1 2 3 4 5 6 7 8 9 10 Private Sub Workbook_AddinInstall() Application.CommandBars.Add(Name:="ConversionFrancsEuros").Visible = True Set MaBarre = CommandBars("ConversionFrancsEuros") MaBarre.Visible = True Set MonBouton = MaBarre.Controls.Add(Type:=msoControlButton) MonBouton.FaceId = 0 MonBouton.Caption = "Convertit le contenu de la plage en Euros" MonBouton.OnAction = "'EuroPaf.xla'!TransformeEnEuros" MonBouton.PasteFace End Sub
Citation:

MonBouton.OnAction = "'EuroPaf.xla'!TransformeEnEuros"

où "TransformeEnEuros" désigne la macro que tu veux lancer à l'aide ton bouton et "'EuroPaf.xla'! est nom du fichier dans lequel elle se trouve.

Citation:

MonBouton.PasteFace

Il s'agit là de l'icône que je colle sur le bouton (dans cet exemple, l'icône se trouvait dans une feuille de calcul de 'EuroPaf.xla') icône que je prenais le soins de copier avant de lancer la macro.
Mais on doit pouvoir affecter directement une icône au bouton en donnant nom et adresse. (à essayer)
Je regarde si j'ai ça... dans l'aide...

A+

Dans la série "J'ai un code", en voici un autre.

Il crée une feuille, la nomme, y place 2 boutons et fait les liens des boutons vers leurs macros respectives.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub CreateSheet(sMonth As String)
  Dim i As Byte
  Dim cmdNew As Variant
  Worksheets.Add after:=Sheets(Worksheets.Count)
  ActiveSheet.Name = sMonth
  Rows(1).RowHeight = 50
  Rows(2).RowHeight = 28
  For i = 1 To 7
    Columns(i).ColumnWidth = 11
  Next i
  Columns(4).ColumnWidth = 65
  Set cmdNew = ActiveSheet.Buttons.Add(Left:=63, Top:=1, Width:=60, Height:=49)
  cmdNew.Caption = "Start Log"
  cmdNew.OnAction = "ShowForm"
  Set cmdNew = ActiveSheet.Buttons.Add(Left:=125, Top:=1, Width:=60, Height:=49)
  cmdNew.Caption = "Stop Log"
  cmdNew.OnAction = "ActionStop"
  ...
End Sub

ShowForm et ActionStop sont 2 macros présentes dans un module.

21/11/2005, 14h47
ouskel'n'or

Hello Alain,

Hi hi ! Les boutons directement dans la feuille de calcul !

Citation:

le probleme c'est que l'écoute de se boutton (OnClick) se fait sur la feuille du classeur et je voudrais qu'elle se faise lors de la construction de cette feuille

J'ai mal décodé ou quoi ?

A+

NB - N'empêche que RedBurn, "y répond pas", olors va savoir...

Bonjour,
ouskel'n'or, voici le code que j'utilise pour créer un menu et sous-menus
Une fois la macro lancée, placer dans WorkBook.open(AjouterNouveauMenu) et dans WorkBook.Deactivate(DeleteMenu)

Code:

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
 
Sub AjouterNouveauMenu()
Dim HelpIndex As Integer
Dim NewMenu As CommandBarPopup
Dim MenuItem As CommandBarControl
'Supprimer le menu s'il existe déjà
Call DeleteMenu
'Obtenir l'index du menu Fichier
HelpIndex = CommandBars(1).Controls("Fichier").Index
 
'Créer le menu
Set NewMenu = CommandBars(1).Controls.Add _
(Type:=msoControlPopup, _
Before:=HelpIndex, Temporary:=True)
 
'Ajouter une légende
NewMenu.Caption = "&Mon menu"
 
'Premier élément de menu
Set MenuItem = NewMenu.Controls.Add _
(Type:=msoControlButton)
With MenuItem
    .Caption = "&Aperçu avant impression"
    .FaceId = 160
    .OnAction = "MaMacro"
End With
'Deuxième élément de menu
Set MenuItem = NewMenu.Controls.Add _
(Type:=msoControlButton)
With MenuItem
    .Caption = "&Lancer la procédure"
    .FaceId = 590
    .OnAction = "MaMacro1"
End With
End Sub
 
Sub DeleteMenu()
On Error Resume Next
CommandBars(1).Controls("Mon menu").Delete
End Sub
 
Sub MaMacro1()
MsgBox "Bonjour"
End Sub
 
Sub MaMacro()
ActiveWindow.SelectedSheets.PrintPreview
End Sub

jpleroisse

Ben ouais, moi aussi Megashell j'ai ça... Mais après, je compte sur toi pour l'effacer... j'ai vu que tu savais faire...

Code:

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
Sub CréationMenuGraphes()
Set MonControl = CommandBars("Worksheet Menu Bar").Controls _
    .Add(Type:=msoControlPopup)
    With MonControl
        .Caption = "Mise en forme des graphes"
        Set MonMenu = MonControl.Controls.Add(msoControlButton)
            With MonMenu
                .Caption = "Barregraphe Dépenses"
                .OnAction = "BarregrapheDépenses"
            End With
        Set MonMenu = Nothing
        Set MonMenu = MonControl.Controls.Add(msoControlButton)
            With MonMenu
                .Caption = "Camembert Dépenses"
                .OnAction = "GrapheDépensesAnnée"
            End With
        Set MonMenu = Nothing
        Set MonMenu = MonControl.Controls.Add(msoControlButton)
            With MonMenu
                .Caption = "Barregraphe recettes"
                .OnAction = "Barregrapherecettes"
            End With
        Set MonMenu = Nothing
        Set MonMenu = MonControl.Controls.Add(msoControlButton)
            With MonMenu
                .Caption = "Camembert recettes"
                .OnAction = "CamembertDépensesAnnuelles"
            End With
        Set MonMenu = Nothing
    End With
    Set MonControl = Nothing
End Sub

Hé, Megaxel, tu es sûr qu'on répond à la question ? :wink:

A+

21/11/2005, 17h54
leroissejp

Re boujour ouskel'n'or
Etant donné que RedBurn n'a plus l'air intéressé par son problème, autant continuer notre petite conversation.
Voilà, j'ai essayer ton code, mais celà ne fonctionne pas chez moi, y a t'il des bibiothèques a charger ?? en plus comme tu ne déclare aucune variable, c'est pas facile.

jpleroisse
21/11/2005, 18h10
ouskel'n'or

Non, pas de biblio spécial mais faut dire que j'ai pein de trucs validés... :lol:
Pour les variable, j'ai eu 10 minutes pour faire ça... alors... Je n'ai jamais pensé que j'aurais à le mettre sur le forum. Ça fait partie des cochonneries dont je parlais ailleurs et que je garde sous le coude...
Déclare tout en variant, ça te facilitera la tâche... :wink:

A+
22/11/2005, 10h10
AlainTech

Citation:

Envoyé par ouskel'n'or

Hello Alain,

Hi hi ! Les boutons directement dans la feuille de calcul !

Citation:

le probleme c'est que l'écoute de se boutton (OnClick) se fait sur la feuille du classeur et je voudrais qu'elle se faise lors de la construction de cette feuille

J'ai mal décodé ou quoi ?

A+

NB - N'empêche que RedBurn, "y répond pas", olors va savoir...

La question de mettre des boutons dans une feuille (par code) revient tellement souvent que j'ai posté ce code.

De plus, j'associe une macro à chaque bouton et ces macros sont dans un module.

Donc, on peut effacer toutes les feuilles, on ne perd rien du programme.

Par "écouter", je pense que RedBurn croyais devoir ajouter la gestion des événements sur les boutons.
Or, la l'interception des événements doit se faire dans le conteneur du contrôle. Voilà pourquoi il pensait devoir mettre du code dans la feuille nouvellement créée.

Si j'ai tout bien compris, évidemment...