[VBA] fonction click sur commandbutton

Fermé

Kino76 Messages postés 86 Date d'inscription mardi 26 juillet 2011 Statut Membre Dernière intervention 15 décembre 2011 - 27 juil. 2011 à 22:18
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 - 29 juil. 2011 à 14:51

Bonjour je voudrais savoir pourquoi la fonction permettant le clique sur un commandbutton ne reste pas sauvegarder et disparait a chaque fois que j'enregistre et ferme le classeur...?

J'ai essayer de la mettre dans un module ou dans un module de class rien n'y fait

A voir également:

Commandbutton1_click()
Fonction si et - Guide
Fonction moyenne excel - Guide
Auto mouse click - Télécharger - Divers Utilitaires
Fonction filtre excel n'existe pas - Forum Excel
Vba ouvrir un fichier excel avec chemin ✓ - Forum VB / VBA

3 réponses

Réponse 1 / 3

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 754
28 juil. 2011 à 10:57

Bonjour,
Pourrais tu placer ici même le code de ta fonction?

Réponse 2 / 3

Kino76 Messages postés 86 Date d'inscription mardi 26 juillet 2011 Statut Membre Dernière intervention 15 décembre 2011 3
28 juil. 2011 à 11:02

oui

Code de la creation du bouton
--------------------------------------------------------------------------------------
Public Function CreateButton()
Dim o As OLEObject
Worksheets("Principal").Select
Set o = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False, DisplayAsIcon:=False, Left:=100, Top:=150, Width:=80, Height:=30)
o.Select
Selection.Name = "ButtonInitFeuille"
o.Object.Caption = "Initialisation"
End Function

----------------------------------------------------------------------------------
la fonction principal qui l'appelle
----------------------------------------------------------------------------------
Sub InitFeuille()
Call CreateButton
End Sub
-----------------------------------------------------------------------------------

et la fonction du bouton que j'ai essayer de mettre soit dans le module en lui meme soit dans un module de class
-----------------------------------------------------------------------------------

Option Explicit
Public WithEvents ButtonInitFeuille As CommandButton
Private Sub ButtonInitFeuille_Click()
Call InitFeuilleTab
End Sub
--------------------------------------------------------------------------
avec ou sans les deux premiere lignes

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 754
28 juil. 2011 à 11:09

Oui. Ok. Mais qu'elle fonction disparait???

Kino76 Messages postés 86 Date d'inscription mardi 26 juillet 2011 Statut Membre Dernière intervention 15 décembre 2011 3
28 juil. 2011 à 11:13

et bien la fonction pour le clic sur le bouton ne disparait pas mais reste inactif

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 754
28 juil. 2011 à 11:14

Cette fonction en appelle une autre, nommée : InitFeuilleTab
Quel est le code de InitFeuilleTab?

Kino76 Messages postés 86 Date d'inscription mardi 26 juillet 2011 Statut Membre Dernière intervention 15 décembre 2011 3
28 juil. 2011 à 11:16

Public Function InitFeuilleTab()
Worksheets("***").Select
Range("A1:I1").Select
Selection.Merge
End Function

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 754
28 juil. 2011 à 11:33

Bon. Ton souci ne vient aucunement de tes fonctions. En fait, il faut attribuer ta classe (le code du module de classe) à ton bouton. Pour cela, il convient de modifier le code de la fonction CreateButton().
Tout ça pour fusionner quelques cellules?
Tu dis...

Réponse 3 / 3

Kino76 Messages postés 86 Date d'inscription mardi 26 juillet 2011 Statut Membre Dernière intervention 15 décembre 2011 3
28 juil. 2011 à 16:03

Module 1
-----------------------------------------------------------------------------
Dim Bouton() As New Classe1

Sub InitBoutons()
Dim cpt As Integer
Dim oleObj As OLEObject

For Each oleObj In ActiveSheet.OLEObjects
If Left(oleObj.Name, 17) = "ButtonInitFeuille" Then
cpt = cpt + 1
ReDim Preserve Bouton(1 To cpt)
Set Bouton(cpt).ButtonInitFeuille = oleObj.Object
End If
Next
End Sub

Sub CreateButton()
Dim o As OLEObject
Worksheets("Feuil1").Select
Set o = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False, DisplayAsIcon:=False, Left:=100, Top:=150, Width:=80, Height:=30)
o.Select
Selection.Name = "ButtonInitFeuille" & ActiveSheet.OLEObjects.Count
o.Object.Caption = "Initialisation" & ActiveSheet.OLEObjects.Count
End Sub

Public Function InitFeuillTab()
MsgBox "Sa fonction"
End Function
-------------------------------------------------------------------------
Class 1
---------------------------------------------------------------------------

Option Explicit

Public WithEvents ButtonInitFeuille As CommandButton

Private Sub ButtonInitFeuille_Click()
Call InitFeuilleTab
End Sub
----------------------------------------------------------------------------
thisworkbook
---------------------------------------------------------------------------
Private Sub Workbook_Open()
Call InitBoutons
End Sub
---------------------------------------------------------------------------

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 754
28 juil. 2011 à 16:20

Essaye ce test :

Sub test() 
Dim cpt As Integer 
Dim oleObj As OLEObject 

For Each oleObj In ActiveSheet.OLEObjects 
    If Left(oleObj.Name, 17) = "ButtonInitFeuille" Then 
        MsgBox oleObj.Object & " " & oleObj.Name
    End If 
Next 
End Sub

Kino76 Messages postés 86 Date d'inscription mardi 26 juillet 2011 Statut Membre Dernière intervention 15 décembre 2011 3
28 juil. 2011 à 16:23

et je met sa ou?

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 754
Modifié par pijaku le 28/07/2011 à 16:24

dans le module 1. Ca n'est qu'un test...

Kino76 Messages postés 86 Date d'inscription mardi 26 juillet 2011 Statut Membre Dernière intervention 15 décembre 2011 3
28 juil. 2011 à 16:25

il ne peut pas faire le test vu qu'il ne veut meme pas crée le bouton

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 754
28 juil. 2011 à 16:31

Tu n'as pas de boutons sur ta feuille???????????????
Depuis tout à l'heure, tu me dis que le problème vient de InitButton??????????
Si tu n'as pas de bouton sur ta feuille comment veux tu les initialiser??????
SCROGNEUGNEU!!!!!!!!!
Ta macro CreateButton fonctionne t'elle?
S'agit-il de la feuille "Feuil1" ou "principale"? en conséquence, adapter : Worksheets("Feuil1").Select
Tu dis..... Grrrrrrrrr!!!!!!!!

Discussions similaires

Site de confiance ou non ?

Bonjour,
J'ai passé commande pour des lunettes de soleil ce dimanche sur un site optique espagnol :https://www.visual-click.com/ Le paiement était sécurisé (https://, cadenas), j'ai même confirmé le paiement grâce à un code envoyé sur mon téléphone portable. Le règlement s'est fait via BBVA, une banque espagnole apparemment. J'ai également fait un Impr écran et imprimé la preuve du paiement. Néanmoins, je n'ai pas reçu de confirmation par mail et je ne peux pas suivre le colis. Le montant de ma commande, qui s'élève à 127.80€ a déjà été débité. Du coup, je voulais avoir quelques avis sur ce site, si d'après-vous, j'ai raison de m'inquiéter ou pas...
Cordialement, <...

"L'indice n'appartient à la sélection" + VBA

Bonjour,
Nous avons un problème dans la programmation de notre VBA. Voici notre programme:

Sub Bloucle1Bull()
Dim a, k As Integer

k = 2
Do While Worksheets("formulaire").Cells(2, 2) Worksheets("formulaire").Cells(k, 4)
k = k + 1
Loop

a = 2
Do While Worksheets("formulaire").Cells(k + 1, 4) Worksheets("BDD Call").Cells(a, 1) Or (Worksheets("BDD Call").Cells(a, 4) = (Worksheets("Bullspread").Cells(2, 3) + 100)) Or Worksheets("BDD Call").Cells(a, 7) Worksheets("bullspread").Cells(2, 7)
a = a + 1
Loop

''''''''''''on recopie la ligne du premier call trouvé pour le jour 2 ...

Méthode find dans VBA - Recherche de données sous Excel

Document initial créé par Pijaku

Cette fiche pratique est essentiellement tirée de l'aide Excel. L'exemple d'utilisation est un conseil basé sur ma propre petite expérience.

Introduction Méthode via Excel Code VBA correspondant Syntaxe Valeur renvoyée A savoir Exemple d'utilisation Recherche multiple FindNext - FindPrevious Une variante : Find_Next FindAll

Introduction La méthode find permet de trouver la première occurrence d'une information spécifique, dans un range. En clair, cette méthode permet d'aller chercher dans une feuille ou une partie d'une feuille Excel, une information, une donnée ou une partie de cette donnée. ...

Erreur d'exécution 13 Incompatibilité de type

Bonjour,

Je ne comprend pas pourquoi j'ai une erreur d'execution 13 : incompatibilité de type car mon code marchait très bien avant...Je met en gras la ligne où il y a l'erreur

'affichage des feuilles concernées et vérification des champs Sheets("Recap").Visible = True If Cathégories = "" Then MsgBox "Sélectionnez une catégorie de défauts dans la liste déroulante" ElseIf défauts = "" Then MsgBox "Sélectionnez un défauts qualité dans la liste déroulante" Exit Sub End If Dim i As Integer Dim n As Integer n = 3 i = 2 MsgBox "Veuillez patienter pendant le traitement..." Application.Cursor = xlWait 'affiche le sablier 'Suppression des don...

MSI CLICK BIOS 5

Bonjour à toutes et à tous.

J'écris ce message pour venir en aide à un ami.

Mon ami vient de partir en vacances, il a dû emmener son ordinateur fixe avec lui. Il l'a donc débranché normalement et l'a emmené avec lui. Et là, en le branchant, il est en boucle sur son BIOS comme le montre l'image en dessous. Il ne sait pas quoi faire si quelqu'un a une solution SVP.

Merci de votre future aide !
Cordialement,
Théo