lancer une macro par rapport a une cellule

P

patrice

Guest

• 10 Février 2004

• #2

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+

 

Vote positif 0 Vote négatif

E

Eric C

Guest

• 10 Février 2004

• #3

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

 

Vote positif 0 Vote négatif

N

noon

Guest

• 10 Février 2004

• #4

salut patrice

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

merci

 

Vote positif 0 Vote négatif

N

noon

Guest

• 10 Février 2004

• #5

ca y est merci a tout les deux

ca marche impec

 

Vote positif 0 Vote négatif

N

noon

Guest

• 10 Février 2004

• #6

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 ??

 

Vote positif 0 Vote négatif

M

Moa

Guest

• 10 Février 2004

• #7

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

 

Vote positif 0 Vote négatif

E

Eric C

Guest

• 10 Février 2004

• #8

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

 

Vote positif 0 Vote négatif

N

noon

Guest

• 11 Février 2004

• #9

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

 

Pièces jointes

• demarrer.zip

  12.1 KB · Affichages: 29

Vote positif 0 Vote négatif