Lancement macro

[Bcar]

Bonsoir à tous,
Je souhaite lancer une macro en fonction du contenu d'une liste deroulante.
Comment faire ? Ci-joint un fichier pour plus d'explications.
Merci par avance.
[file name=lancer_macro_20060425221330.zip size=4964]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/lancer_macro_20060425221330.zip[/file]

Ne juge pas la journée en fonction de la récolte du soir mais d’après les graines que tu as semées. R.L.Stevenson

Message édité par: bcar, à: 28/04/2006 21:48

 

[Dan]

Bonsoir,

Essaie ceci.
-Vas dans VBA par ALT+F11
- CTRL+R pour accéder à VBA project
- Double clique sur la feuil1
-A droite place la macro ci-après

 Private Sub Worksheet_Change(ByVal Target As Range)
'Macro par DAN pour Bcar
'Fil : [B]Lien supprimé[/B]
Application.ScreenUpdating = False
On Error Resume Next
If Application.Intersect(Target, Range('S:S')) Is Nothing Then Exit Sub
If Target.Value = 'NON' Then le nom de ta macro
Application.ScreenUpdating = True
End Sub

Bon travail

 

[Bcar]

Merci pour l'info je vais essayer.
Slts,
Bcar.

L'ignorant affirme, le savant doute, le sage réfléchit. (Aristote)