Creer un userform ou une zone permettant de lancer une macro

[robindr400]

Bonjour à tous,

Mon problème peut paraitre simple, mais pour moi c 'est bien compliqué, meme si je me met au VBA...

Voilà !

je souhaite créer une zonne(une cellule par exemple ou un userform) ou lorsque je rentre le nom de la macro du classeur et que je clique sur un bouton la macro s'execute ...

Tous les conseils sont les bienvenus !

a+

 

[Pierrot93]

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
@+

 

[robindr400]

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

 

[Pierrot93]

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

Re,

essaye ceci :

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....

 

[robindr400]

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

 

[Pierrot93]

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

Re,

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

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

 

[robindr400]

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

 

[Pierrot93]

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

Re,

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

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

 

[robindr400]

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 ...

 

[Pierrot93]

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

Re,

peut être ainsi....

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

 

[robindr400]

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

moi je dis respect !