Problème avec Worksheet_Change

[PWC]

Bonjour à tous,

Je souhaite qu'à chaque fois que l'on inscrive quelque chose dans la colonne B (sauf en B1 et en B2), la macro1 se lance automatiquement.

Pourquoi est-ce que le code suivant ne marche-t-il pas ?

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column=2 Then Macro1

End Sub


Merci d'avance pour vos réponses !

 

[Efgé]

Re : Problème avec Worksheet_Change

Bonsoir PWC,

Pourquoi est-ce que le code suivant ne marche-t-il pas ?

C'est un peu juste comme indication.

Essai

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column=2 And Target.Row > 2 Then Macro1
End Sub

Cordialement

 

[phlaurent55]

Re : Problème avec Worksheet_Change

Bonjour PWC,

avec ce code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B3:B65535")) Is Nothing Then
' ton code
' ou
' Marcro(1)
End If
End Sub

à+
Philippe

EDIT: Bonjour Efgé ............. même approche du problème

 

[Robert]

Re : Problème avec Worksheet_Change

Bonsoir PWC, bonsoir le forum,

Où sont placés ces codes ? Celui de la macro événementielle Change et la Macro1 ? La macro événementielle doit être placée dans le composant WorkSheet de l'onglet où tu veux qu'elle agisse : Feuil1(Feuil1) par exemple. Sinon ça marchera pas. Si tu as plusieur modules et par hasard plusieurs Macro1, il est préférable préciser : Module1.Macro1.

Édition :

Bonsoir Philippe, Efgé on s'est croisé...

 

[PWC]

Re : Problème avec Worksheet_Change

Merci beaucoup Robert ! Je pense qu'elle n'était pas placée au bon endroit !