Evenement Worksheet_Change sur toutes les feuilles

DoubleZero

XLDnaute Barbatruc

• 8 Janvier 2012

• #2

Re : Evenement Worksheet_Change sur toutes les feuilles

Bonjour, winxpfam, le Forum,

Le code doit être placé dans ThisWorkbook :

Code:

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 🙂

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 8 Janvier 2012

• #3

Re : Evenement Worksheet_Change sur toutes les feuilles

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

 

Vote positif 0 Vote négatif

Philippe68

XLDnaute Occasionnel

• 8 Janvier 2012

• #4

Re : Evenement Worksheet_Change sur toutes les feuilles

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 8 Janvier 2012

• #5

Re : Evenement Worksheet_Change sur toutes les feuilles

Bonjour,

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

Code:

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...;;

 

Vote positif 0 Vote négatif

W

winxpfam

Guest

• 8 Janvier 2012

• #6

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

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 8 Janvier 2012

• #7

Re : Evenement Worksheet_Change sur toutes les feuilles

Re-bonjour,

Peut-être ainsi :

Code:

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 🙂

 

Vote positif 0 Vote négatif

C

CHALET53

XLDnaute Barbatruc

• 8 Janvier 2012

• #8

Re : Evenement Worksheet_Change sur toutes les feuilles

bonjour,
Ou :

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

a+

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 8 Janvier 2012

• #9

Re : Evenement Worksheet_Change sur toutes les feuilles

Re,

ceci devrait également faire l'affaire :

Code:

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

bon après midi
@+

 

Vote positif 0 Vote négatif

C

CHALET53

XLDnaute Barbatruc

• 8 Janvier 2012

• #10

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

 

Vote positif 0 Vote négatif