Excel
Résolu/Fermé
sofiane911
Messages postés
7
Date d'inscription
lundi 25 octobre 2010
Statut
Membre
Dernière intervention
1 novembre 2010
-
25 oct. 2010 à 09:51
sofiane911 - 26 oct. 2010 à 14:57
sofiane911 - 26 oct. 2010 à 14:57
A voir également:
- Excel
- Liste déroulante excel - Guide
- Formule excel - Guide
- Si et excel - Guide
- Aller à la ligne excel - Guide
- Mise en forme conditionnelle excel - Guide
3 réponses
Mike-31
Messages postés
18313
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
21 avril 2024
5 073
25 oct. 2010 à 22:00
25 oct. 2010 à 22:00
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
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 303
25 oct. 2010 à 10:17
25 oct. 2010 à 10:17
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
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 303
25 oct. 2010 à 10:33
25 oct. 2010 à 10:33
Tu peux peut-^tre aussi utiliser ce site:
http://www.info-3000.com/vbvba/premiercomplementxla.php
http://www.info-3000.com/vbvba/premiercomplementxla.php
sofiane911
Messages postés
7
Date d'inscription
lundi 25 octobre 2010
Statut
Membre
Dernière intervention
1 novembre 2010
26 oct. 2010 à 09:30
26 oct. 2010 à 09:30
merci MICHEL et pour précision c'est EXCEL 2007.
Mike-31
Messages postés
18313
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
21 avril 2024
5 073
26 oct. 2010 à 13:09
26 oct. 2010 à 13:09
Re,
Je pensais bien qu'il s'agissait d'une demande similaire, mais tu pourrais être plus explicite, tes attentes sont elles satisfaites, dans ce cas mets le statut de la discussion en résolu
Je pensais bien qu'il s'agissait d'une demande similaire, mais tu pourrais être plus explicite, tes attentes sont elles satisfaites, dans ce cas mets le statut de la discussion en résolu
26 oct. 2010 à 09:29