run macro si ...

[sam]

Salut,

Y'en un truc tout bête que je voudrais faire maisje bloque:
Comme dire de faire marcher une macro qui s'appelle 'macro1', si la cellule A1 contient le terme 'mon' ??

j'y arrive pas :unsure:

 

[PascalXLD]

Bonjour

A mettre dans le code de ta feuille

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = '$A$1' Then
If Target Like '*mon*' Then macro1
End If

End Sub

Bon courage

 

[Sam]

Bon,
désolé mais ca marche ^pas...

Je voudrais bien joindre un fichier exmeple mais ça aussi ca marche pas non :huh:

J'avais préparé:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = '$A$1' Then
If Target Like '*mon*' Then Application.Run 'Classeur1!Macro1'
End If

End Sub

avec:
Sub Macro1()

Range('B3').Select
ActiveCell.FormulaR1C1 = 'CA MARCHE'

End Sub

 

[artur]

essaye 2 end if

 

[PascalXLD]

Re

Non artur il n'y a pas 2 end if puisque pour le 2ème if tout est ecrit sur la même ligne

 

[Charly2]

Bonsoir Sam, bonsoir Pascal, bonsoir Artur,
bonsoir à toutes et à tous 🙂

Le code de Pascal est tout à fait correct mais je pense que tu devrais modifier la ligne d'appel à ta macro ainsi :

If Target Like '*mon*' Then Application.Run 'Classeur1.xls!Macro1'

voili voilà 😛

EDITION : Je trouve quand même que l'appel de Macro1 tel qu'écrit par Pascal est plus simple, non ?

A+ 😉

Message édité par: Charly2, à: 23/06/2006 00:28