Affecter une fonction à un commandbutton

Fermé

Strix - Modifié par pijaku le 18/12/2015 à 07:45
Strix - 18 déc. 2015 à 12:02

Bonjour,

Je vous prie de m'aider à affecter une fonction à un CommandButton que je viens de créer dans une nouvelle feuille = "Data" en VBA. Voici mon code.Et Merci


Sub Remplir_tab(K As Integer)
Dim i As Integer
Dim Obj As Object
ThisWorkbook.Sheets("Data").Activate
With ThisWorkbook.Sheets("Data")

.Range(.Cells(1, 1), .Cells(K + 2, K + 2)).Select
End With


Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
For i = 0 To K
ThisWorkbook.Sheets("Data").Cells(1, i + 2).Value = i
ThisWorkbook.Sheets("Data").Cells(i + 2, 1).Value = i
Next
ThisWorkbook.Sheets("Data").Cells(K + 2, 1).Value = "Distance"

 ThisWorkbook.Sheets("Data").Range("A1").Select
 Set Obj = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", _
Link:=False, DisplayAsIcon:=False, Left:=ActiveCell.Left, Top:=ActiveCell.Top, Width:=ActiveCell.Width, _
Height:=ActiveCell.Height)
Obj.Name = "Activation"
   ActiveSheet.OLEObjects(0).Object.Caption = "Activer"
'assigne le code au bouton "Delete"
ButtonMacro = "Sub Activation_Click()" & vbCrLf
ButtonMacro = ButtonMacro & "ActiveSheet.Activer" & vbCrLf
ButtonMacro = ButtonMacro & "End Sub"
 
 
End Sub

A voir également:

Affecter une fonction à un commandbutton
Fonction si et - Guide
Fonction moyenne excel - Guide
Fonction miroir - Guide
Fonction somme excel - Guide
Excel remplir automatiquement une cellule en fonction d'une autre ✓ - Forum Excel

1 réponse

Réponse 1 / 1

f894009 Messages postés 17268 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 29 mars 2025 1 713
18 déc. 2015 à 09:52

Bonjour,

code pour definition et affectation macro a l'objet cree:

    ThisWorkbook.Sheets("Data").Range("A1").Select
    Set Obj = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", _
                Link:=False, DisplayAsIcon:=False, Left:=ActiveCell.Left, Top:=ActiveCell.Top, Width:=ActiveCell.Width, _
                Height:=ActiveCell.Height)
    With Obj
            .Name = "Activation"
            .Object.Caption = "Activer"
    End With

    'assigne le code au bouton "Delete" ??????
    ButtonMacro = "Sub Activation_Click()" & vbCrLf
    ButtonMacro = ButtonMacro & "ActiveSheet.Activate" & vbCrLf
    ButtonMacro = ButtonMacro & "End Sub"
 
    With ThisWorkbook.VBProject.VBComponents(ActiveSheet.Name).CodeModule
            X = .CountOfLines + 1
            .InsertLines X, ButtonMacro
    End With

Strix
18 déc. 2015 à 11:51

Bonjour,
Je vous remercie pour votre réponse. le commentaire est mal placé (à ignorer) .quand je fais tourner mon programme, il m'affiche erreur d'exécution'1004'.avez vous une idée pourquoi ?

f894009 Messages postés 17268 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 29 mars 2025 1 713 > Strix
18 déc. 2015 à 11:53

Re,

il m'affiche erreur d'exécution'1004' Oui, et y a pas de debug possible ???

Strix
18 déc. 2015 à 12:02

Mon probleme c'est que je veux affecter une fonction définie au commandbutton "activation"crée c'est à qd je vais clique sur ce bouton je veux qu'il effectue une opération . Mais je sais pas comment le faire.

Discussions similaires

Remplir une cellule (texte) en fonction d'une autre (texte).

Bonjour à tous,

Je vais encore vous embêter aujourd'hui avec mon registre/rapport.

Ma question est simple (enfin je crois).
J'ai une liste de client :
- Autocars truc
- Bidule Autocars
- ... etc

J'ai une adresse pour chaque client (sous forme de liste) :
- Pont de Ernest
- Chemin Départemental 6
- ... etc

J'ai un code poste pour chaque client (sous forme de liste) :
- 99548
- ... etc

Ma question est : Si en D18 je récupère l'information du nom de mon client, je veux en D19 son adresse, en E20 son code postal et en M20 sa ville en fonction des listes d'ad...

La fonction FILTRE n'est plus reconnue

Bonsoir à tous,

je vis une déconvenue des plus troublantes : hier soir je finalisais avec succès une formule incluant la fonction FILTRE, tout fonctionnait, super. Aujourd'hui je la rouvre, et la fonction FILTRE n'est plus du tout reconnue. A la place, il y a ça : _xlfn._xlws.FILTER. Ce qui veut dire qu'elle n'est pas prise en charge ; pourtant hier elle l'était...

Mon produit est bien à jour, il s'agit d'Office 2016. Et en effet, sur la version en ligne d'Excel, la formule est proposée. Moi je n'ai plus que la fonction FILTRE.XML qui l'est...

Le lien du fichier :
https://cjoint.com/c/MBhuxJvSDZH

Pour info, il s'agit d'une formule ...

[Excel 2010] Remplir cellule d'après contenu d'une autre

Bonjour

Sur mon fichier, la colonne C contient des années de naissance ; j'aimerais qu'en fonction de l'année il me remplisse automatiquement la colonne D avec la catégorie d'âge correspondante.
Comment puis-je faire ?

Merci d'avance

Excel : colorer une cellule sous condition d'une autre ?

Bonjour,
Aprés avoir bien cherché j'ai trouvé quelque solution, mais ce n'est pas clair pour moi...
J'ai un tableau excel sur lequel je veux colorer une cellule si une autre cellule est différente de la lettre X ou O. La forme conditionnelle ne réponds à mon besoin à priori. Comment faire? Je suis pas trés calée non plus en ce qui concerne les formules
Merci d'avanceConfiguration: Windows XP
Internet Explorer 6.0

Formule permettant de remplir automatiquement un tableau excel

Bonjour,

J'utilise Excel 2010 et je cherche une formule qui me permet,
à partir d'un tableau "X" existant situé dans une feuille 1 (Exemple : Colonne A = N° de commande, Colonne B = Date de commande, Colonne C = Date de livraison) ,
de compléter automatiquement un autre tableau "Y" en feuille 2 (Exemple : Colonne A = N° de commande, Colonne B = Date de livraison) reprenant uniquement les lignes du tableau X dont les champs "Date de livraison" sont renseignés en colonne C.

Dans les faits, je renseigne actuellement 2 tableaux manuellement, le 1er qui est un Cahier de commandes et le 2ème un Cahier de livraisons et je me rends compte que beaucoup de donn...