Bonjour,
Sur une feuille j'ai 2 boutond qui déclenche des macros. Depuis que j'ai
ajouté dans Worksteet de la feuille :
Private Sub Worksheet_Change(ByVal Target As Range)
End Sub
[Z1] = "Date de la dernière modification : " & Date
End Sub
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
lSteph
Bonjour, Il y a un End Sub de trop
lSteph
"Louchadiere" a écrit dans le message de news:
Bonjour, aide.
Private Sub Worksheet_Change(ByVal Target As Range) End Sub<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<ICI [Z1] = "Date de la dernière modification : " & Date End Sub
Bonjour,
Il y a un End Sub de trop
lSteph
"Louchadiere" <Louchadiere@discussions.microsoft.com> a écrit dans le
message de news: DF4DB89E-2F0F-49F7-86B3-B0016C5CD70A@microsoft.com...
Bonjour,
aide.
Private Sub Worksheet_Change(ByVal Target As Range)
End Sub<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<ICI
[Z1] = "Date de la dernière modification : " & Date
End Sub
Private Sub Worksheet_Change(ByVal Target As Range) End Sub<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<ICI [Z1] = "Date de la dernière modification : " & Date End Sub
Louchadiere
Merci, Sans ce End Sub ça coinse. Aprés l'instruction pour aller sur cette feuille la macro boucle sur Private sub Wosksheet.... et [Z1]="Date...." A bientôt
Bonjour, Il y a un End Sub de trop
lSteph
"Louchadiere" a écrit dans le message de news:
Bonjour, aide.
Private Sub Worksheet_Change(ByVal Target As Range) End Sub<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<ICI [Z1] = "Date de la dernière modification : " & Date End Sub
Merci,
Sans ce End Sub ça coinse.
Aprés l'instruction pour aller sur cette feuille la macro boucle sur Private
sub Wosksheet.... et [Z1]="Date...."
A bientôt
Bonjour,
Il y a un End Sub de trop
lSteph
"Louchadiere" <Louchadiere@discussions.microsoft.com> a écrit dans le
message de news: DF4DB89E-2F0F-49F7-86B3-B0016C5CD70A@microsoft.com...
Bonjour,
aide.
Private Sub Worksheet_Change(ByVal Target As Range)
End Sub<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<ICI
[Z1] = "Date de la dernière modification : " & Date
End Sub
Merci, Sans ce End Sub ça coinse. Aprés l'instruction pour aller sur cette feuille la macro boucle sur Private sub Wosksheet.... et [Z1]="Date...." A bientôt
Bonjour, Il y a un End Sub de trop
lSteph
"Louchadiere" a écrit dans le message de news:
Bonjour, aide.
Private Sub Worksheet_Change(ByVal Target As Range) End Sub<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<ICI [Z1] = "Date de la dernière modification : " & Date End Sub
lSteph
Bonsoir, c'est normal si tu change la valeur de Z1 cela réactive Worksheet_Change il faut les désactiver d'abord et réactiver après.
ainsi:
Private Sub Worksheet_Change(ByVal Target As Range) Application.enableeventsúlse [Z1] = "Date de la dernière modification : " & Date Application.enableevents=true End sub
'a+ 'lSteph
"Louchadiere" a écrit dans le message de news:
Merci, Sans ce End Sub ça coinse. Aprés l'instruction pour aller sur cette feuille la macro boucle sur Private sub Wosksheet.... et [Z1]="Date...." A bientôt
Bonjour, Il y a un End Sub de trop
lSteph
"Louchadiere" a écrit dans le message de news:
Bonjour, aide.
Private Sub Worksheet_Change(ByVal Target As Range) End Sub<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<ICI [Z1] = "Date de la dernière modification : " & Date End Sub
Bonsoir,
c'est normal si tu change la valeur de Z1 cela réactive Worksheet_Change
il faut les désactiver d'abord et réactiver après.
ainsi:
Private Sub Worksheet_Change(ByVal Target As Range)
Application.enableeventsúlse
[Z1] = "Date de la dernière modification : " & Date
Application.enableevents=true
End sub
'a+
'lSteph
"Louchadiere" <Louchadiere@discussions.microsoft.com> a écrit dans le
message de news: 57D9B92A-11A6-454A-912A-40A5F1A84DB9@microsoft.com...
Merci,
Sans ce End Sub ça coinse.
Aprés l'instruction pour aller sur cette feuille la macro boucle sur
Private
sub Wosksheet.... et [Z1]="Date...."
A bientôt
Bonjour,
Il y a un End Sub de trop
lSteph
"Louchadiere" <Louchadiere@discussions.microsoft.com> a écrit dans le
message de news: DF4DB89E-2F0F-49F7-86B3-B0016C5CD70A@microsoft.com...
Bonjour,
aide.
Private Sub Worksheet_Change(ByVal Target As Range)
End Sub<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<ICI
[Z1] = "Date de la dernière modification : " & Date
End Sub
Bonsoir, c'est normal si tu change la valeur de Z1 cela réactive Worksheet_Change il faut les désactiver d'abord et réactiver après.
ainsi:
Private Sub Worksheet_Change(ByVal Target As Range) Application.enableeventsúlse [Z1] = "Date de la dernière modification : " & Date Application.enableevents=true End sub
'a+ 'lSteph
"Louchadiere" a écrit dans le message de news:
Merci, Sans ce End Sub ça coinse. Aprés l'instruction pour aller sur cette feuille la macro boucle sur Private sub Wosksheet.... et [Z1]="Date...." A bientôt
Bonjour, Il y a un End Sub de trop
lSteph
"Louchadiere" a écrit dans le message de news:
Bonjour, aide.
Private Sub Worksheet_Change(ByVal Target As Range) End Sub<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<ICI [Z1] = "Date de la dernière modification : " & Date End Sub
Louchadiere
Merci Steph Cette foi on dirait que ça marche....
Bonsoir, c'est normal si tu change la valeur de Z1 cela réactive Worksheet_Change il faut les désactiver d'abord et réactiver après.
ainsi:
Private Sub Worksheet_Change(ByVal Target As Range) Application.enableeventsúlse [Z1] = "Date de la dernière modification : " & Date Application.enableevents=true End sub
'a+ 'lSteph
"Louchadiere" a écrit dans le message de news:
Merci, Sans ce End Sub ça coinse. Aprés l'instruction pour aller sur cette feuille la macro boucle sur Private sub Wosksheet.... et [Z1]="Date...." A bientôt
Bonjour, Il y a un End Sub de trop
lSteph
"Louchadiere" a écrit dans le message de news:
Bonjour, aide.
Private Sub Worksheet_Change(ByVal Target As Range) End Sub<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<ICI [Z1] = "Date de la dernière modification : " & Date End Sub
Merci Steph
Cette foi on dirait que ça marche....
Bonsoir,
c'est normal si tu change la valeur de Z1 cela réactive Worksheet_Change
il faut les désactiver d'abord et réactiver après.
ainsi:
Private Sub Worksheet_Change(ByVal Target As Range)
Application.enableeventsúlse
[Z1] = "Date de la dernière modification : " & Date
Application.enableevents=true
End sub
'a+
'lSteph
"Louchadiere" <Louchadiere@discussions.microsoft.com> a écrit dans le
message de news: 57D9B92A-11A6-454A-912A-40A5F1A84DB9@microsoft.com...
Merci,
Sans ce End Sub ça coinse.
Aprés l'instruction pour aller sur cette feuille la macro boucle sur
Private
sub Wosksheet.... et [Z1]="Date...."
A bientôt
Bonjour,
Il y a un End Sub de trop
lSteph
"Louchadiere" <Louchadiere@discussions.microsoft.com> a écrit dans le
message de news: DF4DB89E-2F0F-49F7-86B3-B0016C5CD70A@microsoft.com...
Bonjour,
aide.
Private Sub Worksheet_Change(ByVal Target As Range)
End Sub<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<ICI
[Z1] = "Date de la dernière modification : " & Date
End Sub
Bonsoir, c'est normal si tu change la valeur de Z1 cela réactive Worksheet_Change il faut les désactiver d'abord et réactiver après.
ainsi:
Private Sub Worksheet_Change(ByVal Target As Range) Application.enableeventsúlse [Z1] = "Date de la dernière modification : " & Date Application.enableevents=true End sub
'a+ 'lSteph
"Louchadiere" a écrit dans le message de news:
Merci, Sans ce End Sub ça coinse. Aprés l'instruction pour aller sur cette feuille la macro boucle sur Private sub Wosksheet.... et [Z1]="Date...." A bientôt
Bonjour, Il y a un End Sub de trop
lSteph
"Louchadiere" a écrit dans le message de news:
Bonjour, aide.
Private Sub Worksheet_Change(ByVal Target As Range) End Sub<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<ICI [Z1] = "Date de la dernière modification : " & Date End Sub
lSteph
;-) à bientôt
"Louchadiere" a écrit dans le message de news:
Merci Steph Cette foi on dirait que ça marche....
Bonsoir, c'est normal si tu change la valeur de Z1 cela réactive Worksheet_Change il faut les désactiver d'abord et réactiver après.
ainsi:
Private Sub Worksheet_Change(ByVal Target As Range) Application.enableeventsúlse [Z1] = "Date de la dernière modification : " & Date Application.enableevents=true End sub
'a+ 'lSteph
"Louchadiere" a écrit dans le message de news:
Merci, Sans ce End Sub ça coinse. Aprés l'instruction pour aller sur cette feuille la macro boucle sur Private sub Wosksheet.... et [Z1]="Date...." A bientôt
Bonjour, Il y a un End Sub de trop
lSteph
"Louchadiere" a écrit dans le message de news:
Bonjour, aide.
Private Sub Worksheet_Change(ByVal Target As Range) End Sub<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<ICI [Z1] = "Date de la dernière modification : " & Date End Sub
;-) à bientôt
"Louchadiere" <Louchadiere@discussions.microsoft.com> a écrit dans le
message de news: 183D8B47-87C9-4F3D-8996-C7A24AD9FF98@microsoft.com...
Merci Steph
Cette foi on dirait que ça marche....
Bonsoir,
c'est normal si tu change la valeur de Z1 cela réactive Worksheet_Change
il faut les désactiver d'abord et réactiver après.
ainsi:
Private Sub Worksheet_Change(ByVal Target As Range)
Application.enableeventsúlse
[Z1] = "Date de la dernière modification : " & Date
Application.enableevents=true
End sub
'a+
'lSteph
"Louchadiere" <Louchadiere@discussions.microsoft.com> a écrit dans le
message de news: 57D9B92A-11A6-454A-912A-40A5F1A84DB9@microsoft.com...
Merci,
Sans ce End Sub ça coinse.
Aprés l'instruction pour aller sur cette feuille la macro boucle sur
Private
sub Wosksheet.... et [Z1]="Date...."
A bientôt
Bonjour,
Il y a un End Sub de trop
lSteph
"Louchadiere" <Louchadiere@discussions.microsoft.com> a écrit dans le
message de news: DF4DB89E-2F0F-49F7-86B3-B0016C5CD70A@microsoft.com...
Bonjour,
aide.
Private Sub Worksheet_Change(ByVal Target As Range)
End Sub<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<ICI
[Z1] = "Date de la dernière modification : " & Date
End Sub
Bonsoir, c'est normal si tu change la valeur de Z1 cela réactive Worksheet_Change il faut les désactiver d'abord et réactiver après.
ainsi:
Private Sub Worksheet_Change(ByVal Target As Range) Application.enableeventsúlse [Z1] = "Date de la dernière modification : " & Date Application.enableevents=true End sub
'a+ 'lSteph
"Louchadiere" a écrit dans le message de news:
Merci, Sans ce End Sub ça coinse. Aprés l'instruction pour aller sur cette feuille la macro boucle sur Private sub Wosksheet.... et [Z1]="Date...." A bientôt
Bonjour, Il y a un End Sub de trop
lSteph
"Louchadiere" a écrit dans le message de news:
Bonjour, aide.
Private Sub Worksheet_Change(ByVal Target As Range) End Sub<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<ICI [Z1] = "Date de la dernière modification : " & Date End Sub
