Creer un userform ou une zone permettant de lancer une macro

Pierrot93

XLDnaute Barbatruc

• 29 Février 2012

• #2

Re : Creer un userform ou une zone permettant de lancer une macro

Bonjour,

pas tout compris de ton problème... pourquoi ne pas simplement affecter cette macro à un bouton ?

bonne journée
@+

 

Vote positif 0 Vote négatif

R

robindr400

XLDnaute Nouveau

• 29 Février 2012

• #3

Re : Creer un userform ou une zone permettant de lancer une macro

et bien en fait je suis sur un fichier avec une soixantaine de macro.

et ce que je voudrais c'est saisir le nom dans le classeur, appuyer sur "play" et hop la macro s'execute

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 29 Février 2012

• #4

Re : Creer un userform ou une zone permettant de lancer une macro

Re,

essaye ceci :

Code:

Application.Run Range("A1").Value

le nom de la macro a exécuter dans la cellule A1.... le code cidessus à placer dans l'événement "change" de la feuille ou à associer à un bouton, comme tu veux....

 

Vote positif 0 Vote négatif

R

robindr400

XLDnaute Nouveau

• 29 Février 2012

• #5

Re : Creer un userform ou une zone permettant de lancer une macro

Merci de la reponse

ca fonctionne tip top

Pour mon info comment on fait pour le mettre dans l'evenement change ?

Mais j'utilise un bouton, c'est juste pour ma culture

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 29 Février 2012

• #6

Re : Creer un userform ou une zone permettant de lancer une macro

Re,

click droit sur l'onglet visualiser le code et colles ceci :

Code:

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" And Target <> "" Then Application.Run Target.Value
End Sub

se déclenchera quand modification de la cellule A1

 

Vote positif 0 Vote négatif

R

robindr400

XLDnaute Nouveau

• 29 Février 2012

• #7

Re : Creer un userform ou une zone permettant de lancer une macro

mais c est genial !!!
et pour lancer ces deux macros le code ca donne quoi ?

Sub calcul_macro()
Application.Run Range("J5").Value
End Sub


Sub nommer_onglet()
ActiveSheet.Name = ActiveSheet.Range("J5").Value
End Sub

Sub Recalcul()
nommer_onglet
calcul_macro
End Sub

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 29 Février 2012

• #8

Re : Creer un userform ou une zone permettant de lancer une macro

Re,

et pour lancer ces deux macros le code ca donne quoi ?

Cliquez pour agrandir...

j'en vois 3.... et les lancer à partir de quoi ? comment ?

 

Vote positif 0 Vote négatif

R

robindr400

XLDnaute Nouveau

• 29 Février 2012

• #9

Re : Creer un userform ou une zone permettant de lancer une macro

Et bien en fait lorsque je change la valeur de la cellule J5 la macro nommer_onglet se declenche puis la macro calcul macro se declenche ...

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 29 Février 2012

• #10

Re : Creer un userform ou une zone permettant de lancer une macro

Re,

peut être ainsi....

Code:

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$J$5" And Target <> "" Then
    nom_macro1
    nom_macro2
    nom_macro3
End If
End Sub

 

Vote positif 0 Vote négatif

R

robindr400

XLDnaute Nouveau

• 29 Février 2012

• #11

Re : Creer un userform ou une zone permettant de lancer une macro

moi je dis respect !

 

Vote positif 0 Vote négatif