Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Jacky
Bonjour,
Un truc du genre le fait... '---------- Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, [a1]) Is Nothing Then Select Case [b1] Case 1 Macro1 Case 2 Macro2 Case 3 Macro3 '------Etc-------Case_n Case Else MsgBox "Macro inexistante" End Select End If End Sub '________________ Sub Macro1() MsgBox "Execution Macro1" End Sub '__________________ Sub Macro2() MsgBox "Execution Macro2" End Sub '_____________ Sub Macro3() MsgBox "Execution Macro3" End Sub '---------
-- Salutations JJ
"Philippe" a écrit dans le message de news: 45f53ac0$0$31979$
Bonjour,
en A1 liste de choix
en B1 des valeurs de 1 à 10 récupérer et afficher par la liste de choix par RECHERCHEV
Est-il possible que ces différentes puissent declencher des macros automatiques ?
Merci de votre aide lephil
Bonjour,
Un truc du genre le fait...
'----------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [a1]) Is Nothing Then
Select Case [b1]
Case 1
Macro1
Case 2
Macro2
Case 3
Macro3
'------Etc-------Case_n
Case Else
MsgBox "Macro inexistante"
End Select
End If
End Sub
'________________
Sub Macro1()
MsgBox "Execution Macro1"
End Sub
'__________________
Sub Macro2()
MsgBox "Execution Macro2"
End Sub
'_____________
Sub Macro3()
MsgBox "Execution Macro3"
End Sub
'---------
--
Salutations
JJ
"Philippe" <philippelaporte@free.fr> a écrit dans le message de news:
45f53ac0$0$31979$426a74cc@news.free.fr...
Bonjour,
en A1 liste de choix
en B1 des valeurs de 1 à 10 récupérer et afficher par la liste de choix
par RECHERCHEV
Est-il possible que ces différentes puissent declencher des macros
automatiques ?
Un truc du genre le fait... '---------- Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, [a1]) Is Nothing Then Select Case [b1] Case 1 Macro1 Case 2 Macro2 Case 3 Macro3 '------Etc-------Case_n Case Else MsgBox "Macro inexistante" End Select End If End Sub '________________ Sub Macro1() MsgBox "Execution Macro1" End Sub '__________________ Sub Macro2() MsgBox "Execution Macro2" End Sub '_____________ Sub Macro3() MsgBox "Execution Macro3" End Sub '---------
-- Salutations JJ
"Philippe" a écrit dans le message de news: 45f53ac0$0$31979$
Bonjour,
en A1 liste de choix
en B1 des valeurs de 1 à 10 récupérer et afficher par la liste de choix par RECHERCHEV
Est-il possible que ces différentes puissent declencher des macros automatiques ?
Merci de votre aide lephil
Philippe
ça fonctionne à merveille Encore merci et bonne journée lephil "Philippe" a écrit dans le message de news: 45f53ac0$0$31979$
Bonjour,
en A1 liste de choix
en B1 des valeurs de 1 à 10 récupérer et afficher par la liste de choix par RECHERCHEV
Est-il possible que ces différentes puissent declencher des macros automatiques ?
Merci de votre aide lephil
ça fonctionne à merveille
Encore merci et bonne journée
lephil
"Philippe" <philippelaporte@free.fr> a écrit dans le message de news:
45f53ac0$0$31979$426a74cc@news.free.fr...
Bonjour,
en A1 liste de choix
en B1 des valeurs de 1 à 10 récupérer et afficher par la liste de choix
par RECHERCHEV
Est-il possible que ces différentes puissent declencher des macros
automatiques ?