Changement dans une feuille précise d'un classeur

Le
Obéron
Bonjour,

Je cale sur un pb qui va certainement vous paraître simple.

J'ai un classeur avec plusieurs feuilles. Je souhaite vérifier la mise
à jour d'une feuille précise (ex: Feuil1).

Si cette feuille est modifiée, la date de la modification s'inscrit en
cellule (1,1).

J'ai réussi à détecter une modification dans une feuille quelconque du
classeur mais cela ne m'intéresse pas, c'est cette feuille là que je
veux surveiller et seulement celle-là.

Merci de votre aide

--


Si Superman est vraiment intelligent, pourquoi met-il son slip sur son
pantalon?
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Philippe.R
Le #21450331
Bonjour,
Essaye un truc comme ça dans le module ThisWorkbook du classeur

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
On Error GoTo fin
If Not Intersect(Sheets("Feuil1").Range("a2:iv65536"), Target) Is Nothing
Then
ActiveSheet.Cells(1, 1).Value = Date
End If
fin: Exit Sub
End Sub

--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/web/mpfe
News://news.microsoft.com/microsoft.public.fr.excel
"Obéron" news:
Bonjour,

Je cale sur un pb qui va certainement vous paraître simple.

J'ai un classeur avec plusieurs feuilles. Je souhaite vérifier la mise à
jour d'une feuille précise (ex: Feuil1).

Si cette feuille est modifiée, la date de la modification s'inscrit en
cellule (1,1).

J'ai réussi à détecter une modification dans une feuille quelconque du
classeur mais cela ne m'intéresse pas, c'est cette feuille là que je veux
surveiller et seulement celle-là.

Merci de votre aide

--


Si Superman est vraiment intelligent, pourquoi met-il son slip sur son
pantalon?


Obéron
Le #21450601
Génial, merci!

Bon WE



Bonjour,
Essaye un truc comme ça dans le module ThisWorkbook du classeur

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
On Error GoTo fin
If Not Intersect(Sheets("Feuil1").Range("a2:iv65536"), Target) Is Nothing
Then
ActiveSheet.Cells(1, 1).Value = Date
End If
fin: Exit Sub
End Sub



--


Si Superman est vraiment intelligent, pourquoi met-il son slip sur son
pantalon?
Publicité
Poster une réponse
Anonyme