J'ai pensé à ça, si je veux modifier dans la cellule contenant le mot "Date:", j'espère être capable de modifier le contenu en faisant F2
"Érico" a écrit dans le message de news:
Ça ne fonctionne pas!!!!!
"anonymousA" a écrit dans le message de news: 433d6fae$0$17246$
bonjour,
en doublecliquant ici sur la cellule A2 on obtient la date en A3
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("A2")) Is Nothing Then Target.Offset(0, 1) = Format(Now, "dd/mm/yy")
End Sub
A+
bonjour à tous.
Voici mon prochain défi.
Est-ce possible de mettre dans une cellule "Date:" et à côté de celle-ci, d'inscrire la date du jours simplement un cliquant la cellule "Date:"?
J'en ai plusieurs dans le même onglets. Ceci est pour empêcher de faire des boutons partout.
Merci
anonymousA
ben , je suis désolé mais ca fonctionne sans difficulté. Dans l'exemple si tu doubles cliques sur la cellule A2 tu obtiendras bien la date ne A3. Que veut tu dire par , "ca ne fonctionne pas" ?
A+
J'ai pensé à ça, si je veux modifier dans la cellule contenant le mot "Date:", j'espère être capable de modifier le contenu en faisant F2
"Érico" a écrit dans le message de news:
Ça ne fonctionne pas!!!!!
"anonymousA" a écrit dans le message de news: 433d6fae$0$17246$
bonjour,
en doublecliquant ici sur la cellule A2 on obtient la date en A3
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("A2")) Is Nothing Then Target.Offset(0, 1) = Format(Now, "dd/mm/yy")
End Sub
A+
bonjour à tous.
Voici mon prochain défi.
Est-ce possible de mettre dans une cellule "Date:" et à côté de celle-ci, d'inscrire la date du jours simplement un cliquant la cellule "Date:"?
J'en ai plusieurs dans le même onglets. Ceci est pour empêcher de faire des boutons partout.
Merci
ben , je suis désolé mais ca fonctionne sans difficulté. Dans l'exemple
si tu doubles cliques sur la cellule A2 tu obtiendras bien la date ne A3.
Que veut tu dire par , "ca ne fonctionne pas" ?
A+
J'ai pensé à ça, si je veux modifier dans la cellule contenant le mot
"Date:", j'espère être capable de modifier le contenu en faisant F2
"Érico" <hahaha@videotron.ca> a écrit dans le message de news:
uSqc2GexFHA.2228@TK2MSFTNGP11.phx.gbl...
Ça ne fonctionne pas!!!!!
"anonymousA" <anonymousA@wanadoo.fr> a écrit dans le message de news:
433d6fae$0$17246$8fcfb975@news.wanadoo.fr...
bonjour,
en doublecliquant ici sur la cellule A2 on obtient la date en A3
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
If Not Intersect(Target, Range("A2")) Is Nothing Then Target.Offset(0, 1)
= Format(Now, "dd/mm/yy")
End Sub
A+
bonjour à tous.
Voici mon prochain défi.
Est-ce possible de mettre dans une cellule "Date:" et à côté de
celle-ci, d'inscrire la date du jours simplement un cliquant la cellule
"Date:"?
J'en ai plusieurs dans le même onglets. Ceci est pour empêcher de faire
des boutons partout.
ben , je suis désolé mais ca fonctionne sans difficulté. Dans l'exemple si tu doubles cliques sur la cellule A2 tu obtiendras bien la date ne A3. Que veut tu dire par , "ca ne fonctionne pas" ?
A+
J'ai pensé à ça, si je veux modifier dans la cellule contenant le mot "Date:", j'espère être capable de modifier le contenu en faisant F2
"Érico" a écrit dans le message de news:
Ça ne fonctionne pas!!!!!
"anonymousA" a écrit dans le message de news: 433d6fae$0$17246$
bonjour,
en doublecliquant ici sur la cellule A2 on obtient la date en A3
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("A2")) Is Nothing Then Target.Offset(0, 1) = Format(Now, "dd/mm/yy")
End Sub
A+
bonjour à tous.
Voici mon prochain défi.
Est-ce possible de mettre dans une cellule "Date:" et à côté de celle-ci, d'inscrire la date du jours simplement un cliquant la cellule "Date:"?
J'en ai plusieurs dans le même onglets. Ceci est pour empêcher de faire des boutons partout.
Merci
Érico
J'ai ceci dans mon Workbook et c'Est la cellule B23: ____________________________________________
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("B23")) Is Nothing Then Target.Offset(0, 1) = Format(Now, "dd/mm/yy")
End Sub _________________________________________________
"anonymousA" a écrit dans le message de news: 433d8fb6$0$17246$
ben , je suis désolé mais ca fonctionne sans difficulté. Dans l'exemple si tu doubles cliques sur la cellule A2 tu obtiendras bien la date ne A3. Que veut tu dire par , "ca ne fonctionne pas" ?
A+
J'ai pensé à ça, si je veux modifier dans la cellule contenant le mot "Date:", j'espère être capable de modifier le contenu en faisant F2
"Érico" a écrit dans le message de news:
Ça ne fonctionne pas!!!!!
"anonymousA" a écrit dans le message de news: 433d6fae$0$17246$
bonjour,
en doublecliquant ici sur la cellule A2 on obtient la date en A3
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("A2")) Is Nothing Then Target.Offset(0, 1) = Format(Now, "dd/mm/yy")
End Sub
A+
bonjour à tous.
Voici mon prochain défi.
Est-ce possible de mettre dans une cellule "Date:" et à côté de celle-ci, d'inscrire la date du jours simplement un cliquant la cellule "Date:"?
J'en ai plusieurs dans le même onglets. Ceci est pour empêcher de faire des boutons partout.
Merci
J'ai ceci dans mon Workbook et c'Est la cellule B23:
____________________________________________
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
If Not Intersect(Target, Range("B23")) Is Nothing Then Target.Offset(0, 1) =
Format(Now, "dd/mm/yy")
End Sub
_________________________________________________
"anonymousA" <anonymousA@wanadoo.fr> a écrit dans le message de news:
433d8fb6$0$17246$8fcfb975@news.wanadoo.fr...
ben , je suis désolé mais ca fonctionne sans difficulté. Dans l'exemple si
tu doubles cliques sur la cellule A2 tu obtiendras bien la date ne A3.
Que veut tu dire par , "ca ne fonctionne pas" ?
A+
J'ai pensé à ça, si je veux modifier dans la cellule contenant le mot
"Date:", j'espère être capable de modifier le contenu en faisant F2
"Érico" <hahaha@videotron.ca> a écrit dans le message de news:
uSqc2GexFHA.2228@TK2MSFTNGP11.phx.gbl...
Ça ne fonctionne pas!!!!!
"anonymousA" <anonymousA@wanadoo.fr> a écrit dans le message de news:
433d6fae$0$17246$8fcfb975@news.wanadoo.fr...
bonjour,
en doublecliquant ici sur la cellule A2 on obtient la date en A3
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
If Not Intersect(Target, Range("A2")) Is Nothing Then Target.Offset(0,
1) = Format(Now, "dd/mm/yy")
End Sub
A+
bonjour à tous.
Voici mon prochain défi.
Est-ce possible de mettre dans une cellule "Date:" et à côté de
celle-ci, d'inscrire la date du jours simplement un cliquant la cellule
"Date:"?
J'en ai plusieurs dans le même onglets. Ceci est pour empêcher de faire
des boutons partout.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("B23")) Is Nothing Then Target.Offset(0, 1) = Format(Now, "dd/mm/yy")
End Sub _________________________________________________
"anonymousA" a écrit dans le message de news: 433d8fb6$0$17246$
ben , je suis désolé mais ca fonctionne sans difficulté. Dans l'exemple si tu doubles cliques sur la cellule A2 tu obtiendras bien la date ne A3. Que veut tu dire par , "ca ne fonctionne pas" ?
A+
J'ai pensé à ça, si je veux modifier dans la cellule contenant le mot "Date:", j'espère être capable de modifier le contenu en faisant F2
"Érico" a écrit dans le message de news:
Ça ne fonctionne pas!!!!!
"anonymousA" a écrit dans le message de news: 433d6fae$0$17246$
bonjour,
en doublecliquant ici sur la cellule A2 on obtient la date en A3
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("A2")) Is Nothing Then Target.Offset(0, 1) = Format(Now, "dd/mm/yy")
End Sub
A+
bonjour à tous.
Voici mon prochain défi.
Est-ce possible de mettre dans une cellule "Date:" et à côté de celle-ci, d'inscrire la date du jours simplement un cliquant la cellule "Date:"?
J'en ai plusieurs dans le même onglets. Ceci est pour empêcher de faire des boutons partout.
Merci
anonymousA
oui, et alors ! Je ne vois pas le rapport entre le workbook_open ( qui certes fait un certain nombre de choses) et la procédure Worksheet_BeforeDoubleClick, à moins que tu ne tentes de mettre Private Sub Worksheet_BeforeDoubleClick dans le module thisworkbook auquel cas ca ne va effectivement pas coller. Si tu tiens à ce que le double click agisse pour toutes les feuilles , alors il faut mettre le corps de procédure que je t'ai indiquée dans la procédure evenementielle suivante : Private Sub Workbook_SheetBeforeDoubleClick , que tu dois placer dans le module thisworkbook. Si c'est pour une feuille seulement, alors il vaut mieux utiliser Private Sub Worksheet_BeforeDoubleClick mais que tu dois placer dans le module de feuille considérée.
A+
End Sub
J'ai ceci dans mon Workbook et c'Est la cellule B23: ____________________________________________
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("B23")) Is Nothing Then Target.Offset(0, 1) = Format(Now, "dd/mm/yy")
End Sub _________________________________________________
"anonymousA" a écrit dans le message de news: 433d8fb6$0$17246$
ben , je suis désolé mais ca fonctionne sans difficulté. Dans l'exemple si tu doubles cliques sur la cellule A2 tu obtiendras bien la date ne A3. Que veut tu dire par , "ca ne fonctionne pas" ?
A+
J'ai pensé à ça, si je veux modifier dans la cellule contenant le mot "Date:", j'espère être capable de modifier le contenu en faisant F2
"Érico" a écrit dans le message de news:
Ça ne fonctionne pas!!!!!
"anonymousA" a écrit dans le message de news: 433d6fae$0$17246$
bonjour,
en doublecliquant ici sur la cellule A2 on obtient la date en A3
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("A2")) Is Nothing Then Target.Offset(0, 1) = Format(Now, "dd/mm/yy")
End Sub
A+
bonjour à tous.
Voici mon prochain défi.
Est-ce possible de mettre dans une cellule "Date:" et à côté de celle-ci, d'inscrire la date du jours simplement un cliquant la cellule "Date:"?
J'en ai plusieurs dans le même onglets. Ceci est pour empêcher de faire des boutons partout.
Merci
oui, et alors !
Je ne vois pas le rapport entre le workbook_open ( qui certes fait un
certain nombre de choses) et la procédure Worksheet_BeforeDoubleClick, à
moins que tu ne tentes de mettre Private Sub Worksheet_BeforeDoubleClick
dans le module thisworkbook auquel cas ca ne va effectivement pas coller.
Si tu tiens à ce que le double click agisse pour toutes les feuilles ,
alors il faut mettre le corps de procédure que je t'ai indiquée dans la
procédure evenementielle suivante :
Private Sub Workbook_SheetBeforeDoubleClick , que tu dois placer dans le
module thisworkbook.
Si c'est pour une feuille seulement, alors il vaut mieux utiliser
Private Sub Worksheet_BeforeDoubleClick mais que tu dois placer dans le
module de feuille considérée.
A+
End Sub
J'ai ceci dans mon Workbook et c'Est la cellule B23:
____________________________________________
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
If Not Intersect(Target, Range("B23")) Is Nothing Then Target.Offset(0, 1) =
Format(Now, "dd/mm/yy")
End Sub
_________________________________________________
"anonymousA" <anonymousA@wanadoo.fr> a écrit dans le message de news:
433d8fb6$0$17246$8fcfb975@news.wanadoo.fr...
ben , je suis désolé mais ca fonctionne sans difficulté. Dans l'exemple si
tu doubles cliques sur la cellule A2 tu obtiendras bien la date ne A3.
Que veut tu dire par , "ca ne fonctionne pas" ?
A+
J'ai pensé à ça, si je veux modifier dans la cellule contenant le mot
"Date:", j'espère être capable de modifier le contenu en faisant F2
"Érico" <hahaha@videotron.ca> a écrit dans le message de news:
uSqc2GexFHA.2228@TK2MSFTNGP11.phx.gbl...
Ça ne fonctionne pas!!!!!
"anonymousA" <anonymousA@wanadoo.fr> a écrit dans le message de news:
433d6fae$0$17246$8fcfb975@news.wanadoo.fr...
bonjour,
en doublecliquant ici sur la cellule A2 on obtient la date en A3
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
If Not Intersect(Target, Range("A2")) Is Nothing Then Target.Offset(0,
1) = Format(Now, "dd/mm/yy")
End Sub
A+
bonjour à tous.
Voici mon prochain défi.
Est-ce possible de mettre dans une cellule "Date:" et à côté de
celle-ci, d'inscrire la date du jours simplement un cliquant la cellule
"Date:"?
J'en ai plusieurs dans le même onglets. Ceci est pour empêcher de faire
des boutons partout.
oui, et alors ! Je ne vois pas le rapport entre le workbook_open ( qui certes fait un certain nombre de choses) et la procédure Worksheet_BeforeDoubleClick, à moins que tu ne tentes de mettre Private Sub Worksheet_BeforeDoubleClick dans le module thisworkbook auquel cas ca ne va effectivement pas coller. Si tu tiens à ce que le double click agisse pour toutes les feuilles , alors il faut mettre le corps de procédure que je t'ai indiquée dans la procédure evenementielle suivante : Private Sub Workbook_SheetBeforeDoubleClick , que tu dois placer dans le module thisworkbook. Si c'est pour une feuille seulement, alors il vaut mieux utiliser Private Sub Worksheet_BeforeDoubleClick mais que tu dois placer dans le module de feuille considérée.
A+
End Sub
J'ai ceci dans mon Workbook et c'Est la cellule B23: ____________________________________________
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("B23")) Is Nothing Then Target.Offset(0, 1) = Format(Now, "dd/mm/yy")
End Sub _________________________________________________
"anonymousA" a écrit dans le message de news: 433d8fb6$0$17246$
ben , je suis désolé mais ca fonctionne sans difficulté. Dans l'exemple si tu doubles cliques sur la cellule A2 tu obtiendras bien la date ne A3. Que veut tu dire par , "ca ne fonctionne pas" ?
A+
J'ai pensé à ça, si je veux modifier dans la cellule contenant le mot "Date:", j'espère être capable de modifier le contenu en faisant F2
"Érico" a écrit dans le message de news:
Ça ne fonctionne pas!!!!!
"anonymousA" a écrit dans le message de news: 433d6fae$0$17246$
bonjour,
en doublecliquant ici sur la cellule A2 on obtient la date en A3
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("A2")) Is Nothing Then Target.Offset(0, 1) = Format(Now, "dd/mm/yy")
End Sub
A+
bonjour à tous.
Voici mon prochain défi.
Est-ce possible de mettre dans une cellule "Date:" et à côté de celle-ci, d'inscrire la date du jours simplement un cliquant la cellule "Date:"?
J'en ai plusieurs dans le même onglets. Ceci est pour empêcher de faire des boutons partout.
