Evenement Worksheet_Change sur toutes les feuilles

[winxpfam]

Bonjour,

J'ai trouvé un événement qui me va très bien :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Target.Address = "$A$1" Then Exit Sub
If Target.Value = "" Then
Range("B1").Value = ""
Else
Range("B1").Value = Format(Date, "dd/mm/yyyy")
End If
End Sub

Cependant faut-il le mettre sur chaque feuille ou peut-on mettre le même code sous "Workbook_" afin qu'il soit saisie sur toutes les feuilles

Merci d'avance

 

[DoubleZero]

Re : Evenement Worksheet_Change sur toutes les feuilles

Bonjour, winxpfam, le Forum,

Le code doit être placé dans ThisWorkbook :

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Not Target.Address = "$A$1" Then Exit Sub
If Target.Value = "" Then
Range("B1").Value = ""
Else
Range("B1").Value = Format(Date, "dd/mm/yyyy")
End If
End Sub

A bientôt

 

[Dranreb]

Re : Evenement Worksheet_Change sur toutes les feuilles

Bonjour
Oui: Objet: Workbook, Procédure: SheetChange
Cordialement

 

[Philippe68]

Re : Evenement Worksheet_Change sur toutes les feuilles

désolé j'ai rien dit...

 

[Pierrot93]

Re : Evenement Worksheet_Change sur toutes les feuilles

Bonjour,

utilise le code ci-dessous, dans le module "thisworkbook", s'appliquera à toute les feuilles :

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

"sh" étant l'objet feuille concerné..

bonne journée
@+

Edition : bonjour à tous, plutôt en retard moi...;;

 

[winxpfam]

Re : Evenement Worksheet_Change sur toutes les feuilles

Bonjour,

Merci pour vos réponses super rapide.

J'ai une autre question comment faire pour le code marche de A1 à A10 et B1 à B10

Merci d'avance

 

[DoubleZero]

Re : Evenement Worksheet_Change sur toutes les feuilles

Re-bonjour,

Peut-être ainsi :

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Not Intersect(Target, Range("A1:A10")) Is Nothing Then
If Target.Value <> "" Then Target.Offset(0, 1).Value = Format(Date, "dd/mm/yyyy")
End If
End Sub

A bientôt

 

[CHALET53]

Re : Evenement Worksheet_Change sur toutes les feuilles

bonjour,
Ou :

If Not Intersect(Target, Range("A1:A10", "B1:B10")) Is Nothing Then

a+

 

[Pierrot93]

Re : Evenement Worksheet_Change sur toutes les feuilles

Re,

ceci devrait également faire l'affaire :

If Not Intersect(Target, Range("A1:B10")) Is Nothing Then

bon après midi
@+

 

[CHALET53]

Re : Evenement Worksheet_Change sur toutes les feuilles

Re,
Bonjour Pierrot
je voulais simplement préciser que les plages pouvaient ne pas être contigües (mais je l'avais mal écrit)

If Not Intersect(Target, Range("A1:A10, B1:B10, E4:E15")) Is Nothing Then

Pour faire avancer le schimili...blink