lancer une macro par rapport a une cellule

[noon]

re bonjours

autre chose
si dans une cellule exemple "A1" je mets le mot CP ca me lance une macro c c est possible ???

merci

 

[patrice]

Bonjour noon,
Extrait de l'aide avec "Change" :

Private Sub Worksheet_Change(ByVal Target As Range)

Target La plage modifiée. Il peut s'agir de plusieurs cellules.

End Sub
Je crois qu'il faut placer cette macro sous VB dans la feuille consernée, pas dans un module
A+

 

[Eric C]

Bonjour à tous & à toutes,
Bonjour noon, bonjour Patrice,

Exact pour Patrice
Private sub Worksheet_selectionChange(ByVal Target As Excel.Range)
if [A1].value = "CP" then
MsgBox "Bonjour" & " CP"
End If
End Sub

@ ++ Eric C

 

[noon]

salut patrice

j ai essayer mais je n y arrive pas aurais tu un peu plus d indice

merci

 

[noon]

ca y est merci a tout les deux

ca marche impec

 

[noon]

j ai encore un petit probleme

tand qu il y a le mot CP la macro se repete indefiniment
le mot CP doit rester mais je doit pouvoir faire autre chose
la ca me bloque

une idée peut etre ??

 

[Moa]

Et en remplaçant le début par :


Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A1")) Is Nothing Then
If Target.Value = "CP" Then "TaMacroBLABLABLA"

@ +

Moa

 

[Eric C]

Bonjour à tous & à toutes,
Rebonjour Noon, bonjour Moa

Ce n'est pas la première fois que je vois cette "définition de code"
-=-If Not Application.Intersect(Target ...
Quelle est sa signification
Je débute & n'ai jamais vu cela dans mes bouquins.
Merci de ta lumière.

@ ++ Eric C

 

[noon]

SALUT A TOUS

suite a ma demande vous m avez tous beaucoup aidé
mais encore un detail

quand je marque CP la macro ne s active pas tous de suite
il faut que je reselectionne la cellule A1 pour que ca marche

je joint l exemple

noon