Excel
Résolu
sofiane911
Messages postés
7
Date d'inscription
Statut
Membre
Dernière intervention
-
sofiane911 -
sofiane911 -
Bonjour,
peut on créer une liste des macros excel en meme temps et les mettre dans un menu pour les appelées en cas de besoin
peut on créer une liste des macros excel en meme temps et les mettre dans un menu pour les appelées en cas de besoin
A voir également:
- Excel
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Déplacer colonne excel - Guide
- Si ou excel - Guide
- Excel moyenne - Guide
3 réponses
Salut Michel,
Question pertinente, dommage que Sofiane ne se manisfeste pas. En lisant entre ses lignes et après avoir répondu à une question similaire sur un autre forum, je pense que Sofiane voulait faire une liste déroulante avec le nom de ces macros et les appeler sur un clic, si c'est cela
en supposant que les macros dans un Module s'appellent Macro1, Macro2, Macro3 etc ...
en A1 faire une liste déroulante avec le nom de ces macros (ou autre)
Coller un de ces deux code dans les propriétés de la feuille concernée
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [A1]) Is Nothing And Target.Count = 1 Then
If Range("A1").Value = "Macro1" Then
Call Macro1
ElseIf Range("A1").Value = "Macro2" Then
Call Macro2
ElseIf Range("A1").Value = "Macro3" Then
Call Macro3
End If
End If
End Sub
ou
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
Select Case Target
Case "Macro1"
Call Macro1
Case "Macro2"
Call Macro2
Case "Macro3"
Call Macro3
End Select
End If
End Sub
Question pertinente, dommage que Sofiane ne se manisfeste pas. En lisant entre ses lignes et après avoir répondu à une question similaire sur un autre forum, je pense que Sofiane voulait faire une liste déroulante avec le nom de ces macros et les appeler sur un clic, si c'est cela
en supposant que les macros dans un Module s'appellent Macro1, Macro2, Macro3 etc ...
en A1 faire une liste déroulante avec le nom de ces macros (ou autre)
Coller un de ces deux code dans les propriétés de la feuille concernée
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [A1]) Is Nothing And Target.Count = 1 Then
If Range("A1").Value = "Macro1" Then
Call Macro1
ElseIf Range("A1").Value = "Macro2" Then
Call Macro2
ElseIf Range("A1").Value = "Macro3" Then
Call Macro3
End If
End If
End Sub
ou
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
Select Case Target
Case "Macro1"
Call Macro1
Case "Macro2"
Call Macro2
Case "Macro3"
Call Macro3
End Select
End If
End Sub
sofiane911
Messages postés
7
Date d'inscription
Statut
Membre
Dernière intervention
merci MIKE ça m'a étais utile ce code :))
Bonjour Sofiane
Bienvenue à bord du Titanic!
Merci à l'avenir d'^tre + précise dans ton titre et de spécifier ta version d'Excel
pour créer des macros disponible à partir du menu outils, tu peux consulter ce site (XL<2007)
http://xcell05.free.fr/pages/prog/index.html
cela suppose que tu es de bonnes connaissances en VBA
Bonne découverte
Bienvenue à bord du Titanic!
Merci à l'avenir d'^tre + précise dans ton titre et de spécifier ta version d'Excel
pour créer des macros disponible à partir du menu outils, tu peux consulter ce site (XL<2007)
http://xcell05.free.fr/pages/prog/index.html
cela suppose que tu es de bonnes connaissances en VBA
Bonne découverte