Discussion :

[arkorrigan]

Bonjour à tous,

Alors je voudrais qu'une macro se lance automatiquement quand la cellule B60 prend une valeur (2 dans l'exemple).
Je ne sais pas comment faire...
help me please !!!!!

Je vous mets ce que j'ai mis pour l'instant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Range("B60").Activate
If Range("B60").Value = 2 Then
Application.Run "'xxxxxxxxxxxxxxxxx.xls'!Macroxx"
Else
Range("A1").Select
End If

Merci !!!!!!!!!

[Invité]

Bonjour,

Quelque chose comme :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub worksheet_change(ByVal target As Range)
 
 
    If target.Column = 2 And target.Row = 60 Then
      myval = Cells(60, 2)
      If myval = 2 Then
        Application.Run "'xxxxxxxxxxxxxxxxx.xls'!Macroxx"
    End If
End If

[OrDonc]

Bonsoir,

Dans la feuille choisie :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Or Target.Address <> "$B$60" Then Exit Sub
    If Target.Value = 2 Then Application.Run "'xxxxxxxxxxxxxxxxx.xls'!Macroxx"
End Sub

[arkorrigan]

Merci les gars, vos solutions marchent impec !

Trop bien ce forum !!!!!