Bonjour
J'utilise très souvent ctrl+point-virgule puis espace puis ctrl+deux-points pour entrer NOW value dans certaines cellules
(le résultat n'est pas volatile et c'est bien comme çà). Très pratique, cela marche même si la cellule était formatée
autrement qu'en date (elle accueille parfois temporairement des %ages avant de devenir date et heures). Elle s'adapte toute
seule.
Je voudrais encore simplifier, c'est à dire ne taper qu' un "x" dans cette cellule et dans ce cas que Excel fasse ce
travail à ma place.
Comme toujours, l'idée mais ne sais pas faire pratiquement.
Évènementielle, je pense, mais je plane encore.
Et ceci ne doit pouvoir se faire que en colonne B ou E.
Bon courage.
Bonjour
J'utilise très souvent ctrl+point-virgule puis espace puis ctrl+deux-points pour entrer NOW value dans certaines cellules
(le résultat n'est pas volatile et c'est bien comme çà). Très pratique, cela marche même si la cellule était formatée
autrement qu'en date (elle accueille parfois temporairement des %ages avant de devenir date et heures). Elle s'adapte toute
seule.
Je voudrais encore simplifier, c'est à dire ne taper qu' un "x" dans cette cellule et dans ce cas que Excel fasse ce
travail à ma place.
Comme toujours, l'idée mais ne sais pas faire pratiquement.
Évènementielle, je pense, mais je plane encore.
Et ceci ne doit pouvoir se faire que en colonne B ou E.
Bon courage.
Bonjour
J'utilise très souvent ctrl+point-virgule puis espace puis ctrl+deux-points pour entrer NOW value dans certaines cellules
(le résultat n'est pas volatile et c'est bien comme çà). Très pratique, cela marche même si la cellule était formatée
autrement qu'en date (elle accueille parfois temporairement des %ages avant de devenir date et heures). Elle s'adapte toute
seule.
Je voudrais encore simplifier, c'est à dire ne taper qu' un "x" dans cette cellule et dans ce cas que Excel fasse ce
travail à ma place.
Comme toujours, l'idée mais ne sais pas faire pratiquement.
Évènementielle, je pense, mais je plane encore.
Et ceci ne doit pouvoir se faire que en colonne B ou E.
Bon courage.
Bonjour,
Un exemple :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" And Target.Value = "x" Then Target.Value = Now
End Sub
Ceci te convient-il ?
Serge
"milloche" a écrit dans le message de news:Bonjour
J'utilise très souvent ctrl+point-virgule puis espace puis ctrl+deux-points pour entrer NOW value dans certaines cellules
(le résultat n'est pas volatile et c'est bien comme çà). Très pratique, cela marche même si la cellule était formatée
autrement qu'en date (elle accueille parfois temporairement des %ages avant de devenir date et heures). Elle s'adapte
toute seule.
Je voudrais encore simplifier, c'est à dire ne taper qu' un "x" dans cette cellule et dans ce cas que Excel fasse ce
travail à ma place.
Comme toujours, l'idée mais ne sais pas faire pratiquement.
Évènementielle, je pense, mais je plane encore.
Et ceci ne doit pouvoir se faire que en colonne B ou E.
Bon courage.
Bonjour,
Un exemple :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" And Target.Value = "x" Then Target.Value = Now
End Sub
Ceci te convient-il ?
Serge
"milloche" <mille.jean-marieZZZ@neuf.fr> a écrit dans le message de news: Omzw9fweJHA.4272@TK2MSFTNGP06.phx.gbl...
Bonjour
J'utilise très souvent ctrl+point-virgule puis espace puis ctrl+deux-points pour entrer NOW value dans certaines cellules
(le résultat n'est pas volatile et c'est bien comme çà). Très pratique, cela marche même si la cellule était formatée
autrement qu'en date (elle accueille parfois temporairement des %ages avant de devenir date et heures). Elle s'adapte
toute seule.
Je voudrais encore simplifier, c'est à dire ne taper qu' un "x" dans cette cellule et dans ce cas que Excel fasse ce
travail à ma place.
Comme toujours, l'idée mais ne sais pas faire pratiquement.
Évènementielle, je pense, mais je plane encore.
Et ceci ne doit pouvoir se faire que en colonne B ou E.
Bon courage.
Bonjour,
Un exemple :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" And Target.Value = "x" Then Target.Value = Now
End Sub
Ceci te convient-il ?
Serge
"milloche" a écrit dans le message de news:Bonjour
J'utilise très souvent ctrl+point-virgule puis espace puis ctrl+deux-points pour entrer NOW value dans certaines cellules
(le résultat n'est pas volatile et c'est bien comme çà). Très pratique, cela marche même si la cellule était formatée
autrement qu'en date (elle accueille parfois temporairement des %ages avant de devenir date et heures). Elle s'adapte
toute seule.
Je voudrais encore simplifier, c'est à dire ne taper qu' un "x" dans cette cellule et dans ce cas que Excel fasse ce
travail à ma place.
Comme toujours, l'idée mais ne sais pas faire pratiquement.
Évènementielle, je pense, mais je plane encore.
Et ceci ne doit pouvoir se faire que en colonne B ou E.
Bon courage.
Mauvaise réponse, toutes mes excuses.
Serge
"garnote" a écrit dans le message de news:Bonjour,
Un exemple :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" And Target.Value = "x" Then Target.Value = Now
End Sub
Ceci te convient-il ?
Serge
"milloche" a écrit dans le message de news:Bonjour
J'utilise très souvent ctrl+point-virgule puis espace puis ctrl+deux-points pour entrer NOW value dans certaines cellules
(le résultat n'est pas volatile et c'est bien comme çà). Très pratique, cela marche même si la cellule était formatée
autrement qu'en date (elle accueille parfois temporairement des %ages avant de devenir date et heures). Elle s'adapte
toute seule.
Je voudrais encore simplifier, c'est à dire ne taper qu' un "x" dans cette cellule et dans ce cas que Excel fasse ce
travail à ma place.
Comme toujours, l'idée mais ne sais pas faire pratiquement.
Évènementielle, je pense, mais je plane encore.
Et ceci ne doit pouvoir se faire que en colonne B ou E.
Bon courage.
Mauvaise réponse, toutes mes excuses.
Serge
"garnote" <garnote3RIEN@videotron.ca> a écrit dans le message de news: egx7mlweJHA.4180@TK2MSFTNGP06.phx.gbl...
Bonjour,
Un exemple :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" And Target.Value = "x" Then Target.Value = Now
End Sub
Ceci te convient-il ?
Serge
"milloche" <mille.jean-marieZZZ@neuf.fr> a écrit dans le message de news: Omzw9fweJHA.4272@TK2MSFTNGP06.phx.gbl...
Bonjour
J'utilise très souvent ctrl+point-virgule puis espace puis ctrl+deux-points pour entrer NOW value dans certaines cellules
(le résultat n'est pas volatile et c'est bien comme çà). Très pratique, cela marche même si la cellule était formatée
autrement qu'en date (elle accueille parfois temporairement des %ages avant de devenir date et heures). Elle s'adapte
toute seule.
Je voudrais encore simplifier, c'est à dire ne taper qu' un "x" dans cette cellule et dans ce cas que Excel fasse ce
travail à ma place.
Comme toujours, l'idée mais ne sais pas faire pratiquement.
Évènementielle, je pense, mais je plane encore.
Et ceci ne doit pouvoir se faire que en colonne B ou E.
Bon courage.
Mauvaise réponse, toutes mes excuses.
Serge
"garnote" a écrit dans le message de news:Bonjour,
Un exemple :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" And Target.Value = "x" Then Target.Value = Now
End Sub
Ceci te convient-il ?
Serge
"milloche" a écrit dans le message de news:Bonjour
J'utilise très souvent ctrl+point-virgule puis espace puis ctrl+deux-points pour entrer NOW value dans certaines cellules
(le résultat n'est pas volatile et c'est bien comme çà). Très pratique, cela marche même si la cellule était formatée
autrement qu'en date (elle accueille parfois temporairement des %ages avant de devenir date et heures). Elle s'adapte
toute seule.
Je voudrais encore simplifier, c'est à dire ne taper qu' un "x" dans cette cellule et dans ce cas que Excel fasse ce
travail à ma place.
Comme toujours, l'idée mais ne sais pas faire pratiquement.
Évènementielle, je pense, mais je plane encore.
Et ceci ne doit pouvoir se faire que en colonne B ou E.
Bon courage.
Bonjour
J'utilise très souvent ctrl+point-virgule puis espace puis
ctrl+deux-points pour entrer NOW value dans certaines cellules (le
résultat n'est pas volatile et c'est bien comme çà). Très pratique, cela
marche même si la cellule était formatée autrement qu'en date (elle
accueille parfois temporairement des %ages avant de devenir date et
heures). Elle s'adapte toute seule.
Je voudrais encore simplifier, c'est à dire ne taper qu' un "x" dans cette
cellule et dans ce cas que Excel fasse ce travail à ma place.
Comme toujours, l'idée mais ne sais pas faire pratiquement.
Évènementielle, je pense, mais je plane encore.
Et ceci ne doit pouvoir se faire que en colonne B ou E.
Bon courage.
Bonjour
J'utilise très souvent ctrl+point-virgule puis espace puis
ctrl+deux-points pour entrer NOW value dans certaines cellules (le
résultat n'est pas volatile et c'est bien comme çà). Très pratique, cela
marche même si la cellule était formatée autrement qu'en date (elle
accueille parfois temporairement des %ages avant de devenir date et
heures). Elle s'adapte toute seule.
Je voudrais encore simplifier, c'est à dire ne taper qu' un "x" dans cette
cellule et dans ce cas que Excel fasse ce travail à ma place.
Comme toujours, l'idée mais ne sais pas faire pratiquement.
Évènementielle, je pense, mais je plane encore.
Et ceci ne doit pouvoir se faire que en colonne B ou E.
Bon courage.
Bonjour
J'utilise très souvent ctrl+point-virgule puis espace puis
ctrl+deux-points pour entrer NOW value dans certaines cellules (le
résultat n'est pas volatile et c'est bien comme çà). Très pratique, cela
marche même si la cellule était formatée autrement qu'en date (elle
accueille parfois temporairement des %ages avant de devenir date et
heures). Elle s'adapte toute seule.
Je voudrais encore simplifier, c'est à dire ne taper qu' un "x" dans cette
cellule et dans ce cas que Excel fasse ce travail à ma place.
Comme toujours, l'idée mais ne sais pas faire pratiquement.
Évènementielle, je pense, mais je plane encore.
Et ceci ne doit pouvoir se faire que en colonne B ou E.
Bon courage.
Un aperçu de ce qui est possible de faire :
Si tu tapes X dans n'importe quelle cellule de la feuille
elle se transformera en Date & heure...
Tu peux décider du format de la date que tu désires...
Tu places cette procédure dans le module feuille où l'action se déroule
Tu remplaces Range("a:A") par la plage de cellules que tu veux affecter
par la procédure.
'------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim C As Range
For Each C In Intersect(Range("A:A"), Target)
If UCase(C) = "X" Then
Application.EnableEvents = False
C = "": C = Now
C.NumberFormat = "DD/MM/YYYY HH:MM:SS"
Application.EnableEvents = True
ElseIf C = "" Then
C.NumberFormat = "General"
End If
Next
End Sub
'------------------------------
"milloche" a écrit dans le message de groupe de discussion
:
Bonjour
J'utilise très souvent ctrl+point-virgule puis espace puis ctrl+deux-points pour entrer
NOW value dans certaines cellules (le résultat n'est pas volatile et c'est bien comme
çà).
Très pratique, cela marche même si la cellule était formatée autrement qu'en date (elle
accueille parfois temporairement des %ages avant de devenir date et heures). Elle
s'adapte
toute seule.
Je voudrais encore simplifier, c'est à dire ne taper qu' un "x" dans cette cellule et
dans
ce cas que Excel fasse ce travail à ma place.
Comme toujours, l'idée mais ne sais pas faire pratiquement.
Évènementielle, je pense, mais je plane encore.
Et ceci ne doit pouvoir se faire que en colonne B ou E.
Bon courage.
Un aperçu de ce qui est possible de faire :
Si tu tapes X dans n'importe quelle cellule de la feuille
elle se transformera en Date & heure...
Tu peux décider du format de la date que tu désires...
Tu places cette procédure dans le module feuille où l'action se déroule
Tu remplaces Range("a:A") par la plage de cellules que tu veux affecter
par la procédure.
'------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim C As Range
For Each C In Intersect(Range("A:A"), Target)
If UCase(C) = "X" Then
Application.EnableEvents = False
C = "": C = Now
C.NumberFormat = "DD/MM/YYYY HH:MM:SS"
Application.EnableEvents = True
ElseIf C = "" Then
C.NumberFormat = "General"
End If
Next
End Sub
'------------------------------
"milloche" <mille.jean-marieZZZ@neuf.fr> a écrit dans le message de groupe de discussion
:
Omzw9fweJHA.4272@TK2MSFTNGP06.phx.gbl...
Bonjour
J'utilise très souvent ctrl+point-virgule puis espace puis ctrl+deux-points pour entrer
NOW value dans certaines cellules (le résultat n'est pas volatile et c'est bien comme
çà).
Très pratique, cela marche même si la cellule était formatée autrement qu'en date (elle
accueille parfois temporairement des %ages avant de devenir date et heures). Elle
s'adapte
toute seule.
Je voudrais encore simplifier, c'est à dire ne taper qu' un "x" dans cette cellule et
dans
ce cas que Excel fasse ce travail à ma place.
Comme toujours, l'idée mais ne sais pas faire pratiquement.
Évènementielle, je pense, mais je plane encore.
Et ceci ne doit pouvoir se faire que en colonne B ou E.
Bon courage.
Un aperçu de ce qui est possible de faire :
Si tu tapes X dans n'importe quelle cellule de la feuille
elle se transformera en Date & heure...
Tu peux décider du format de la date que tu désires...
Tu places cette procédure dans le module feuille où l'action se déroule
Tu remplaces Range("a:A") par la plage de cellules que tu veux affecter
par la procédure.
'------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim C As Range
For Each C In Intersect(Range("A:A"), Target)
If UCase(C) = "X" Then
Application.EnableEvents = False
C = "": C = Now
C.NumberFormat = "DD/MM/YYYY HH:MM:SS"
Application.EnableEvents = True
ElseIf C = "" Then
C.NumberFormat = "General"
End If
Next
End Sub
'------------------------------
"milloche" a écrit dans le message de groupe de discussion
:
Bonjour
J'utilise très souvent ctrl+point-virgule puis espace puis ctrl+deux-points pour entrer
NOW value dans certaines cellules (le résultat n'est pas volatile et c'est bien comme
çà).
Très pratique, cela marche même si la cellule était formatée autrement qu'en date (elle
accueille parfois temporairement des %ages avant de devenir date et heures). Elle
s'adapte
toute seule.
Je voudrais encore simplifier, c'est à dire ne taper qu' un "x" dans cette cellule et
dans
ce cas que Excel fasse ce travail à ma place.
Comme toujours, l'idée mais ne sais pas faire pratiquement.
Évènementielle, je pense, mais je plane encore.
Et ceci ne doit pouvoir se faire que en colonne B ou E.
Bon courage.
Bonjour,
'---------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Or Target.Column = 5 Then
If UCase(Target) = "X" Then Target = Now
End If
End Sub
'----------------
--
Salutations
JJ
"milloche" a écrit dans le message de news:Bonjour
J'utilise très souvent ctrl+point-virgule puis espace puis ctrl+deux-points pour entrer
NOW value dans certaines cellules (le résultat n'est pas volatile et c'est bien comme
çà). Très pratique, cela marche même si la cellule était formatée autrement qu'en date
(elle accueille parfois temporairement des %ages avant de devenir date et heures). Elle
s'adapte toute seule.
Je voudrais encore simplifier, c'est à dire ne taper qu' un "x" dans cette cellule et
dans ce cas que Excel fasse ce travail à ma place.
Comme toujours, l'idée mais ne sais pas faire pratiquement.
Évènementielle, je pense, mais je plane encore.
Et ceci ne doit pouvoir se faire que en colonne B ou E.
Bon courage.
Bonjour,
'---------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Or Target.Column = 5 Then
If UCase(Target) = "X" Then Target = Now
End If
End Sub
'----------------
--
Salutations
JJ
"milloche" <mille.jean-marieZZZ@neuf.fr> a écrit dans le message de news:
Omzw9fweJHA.4272@TK2MSFTNGP06.phx.gbl...
Bonjour
J'utilise très souvent ctrl+point-virgule puis espace puis ctrl+deux-points pour entrer
NOW value dans certaines cellules (le résultat n'est pas volatile et c'est bien comme
çà). Très pratique, cela marche même si la cellule était formatée autrement qu'en date
(elle accueille parfois temporairement des %ages avant de devenir date et heures). Elle
s'adapte toute seule.
Je voudrais encore simplifier, c'est à dire ne taper qu' un "x" dans cette cellule et
dans ce cas que Excel fasse ce travail à ma place.
Comme toujours, l'idée mais ne sais pas faire pratiquement.
Évènementielle, je pense, mais je plane encore.
Et ceci ne doit pouvoir se faire que en colonne B ou E.
Bon courage.
Bonjour,
'---------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Or Target.Column = 5 Then
If UCase(Target) = "X" Then Target = Now
End If
End Sub
'----------------
--
Salutations
JJ
"milloche" a écrit dans le message de news:Bonjour
J'utilise très souvent ctrl+point-virgule puis espace puis ctrl+deux-points pour entrer
NOW value dans certaines cellules (le résultat n'est pas volatile et c'est bien comme
çà). Très pratique, cela marche même si la cellule était formatée autrement qu'en date
(elle accueille parfois temporairement des %ages avant de devenir date et heures). Elle
s'adapte toute seule.
Je voudrais encore simplifier, c'est à dire ne taper qu' un "x" dans cette cellule et
dans ce cas que Excel fasse ce travail à ma place.
Comme toujours, l'idée mais ne sais pas faire pratiquement.
Évènementielle, je pense, mais je plane encore.
Et ceci ne doit pouvoir se faire que en colonne B ou E.
Bon courage.
La première solution de garnote me plaisait bien (1 ligne) mais elle ne formatait pas la cellule, contrairement au clavier.
J'ai rajouté une ligne pour le formatage et impecable donc 2 lignes.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Value = "x" Then Target.Value = Now
Target.NumberFormat = "m/d/yyyy"
End Sub
Les autres solutions sont bonnes aussi, mais plus grosses.
Mais si je comprends bien évitent de faire des bêtises dans d'autres cellules que celles prévues.
Mon dilemme : je ne sais plus que choisir.
Je me retrouve comme un enfant au pied du sapin devant plein de cadeaux. Je vais tester tout cà.
Merci à tous deux.
JMM
"michdenis" a écrit dans le message de news:Un aperçu de ce qui est possible de faire :
Si tu tapes X dans n'importe quelle cellule de la feuille
elle se transformera en Date & heure...
Tu peux décider du format de la date que tu désires...
Tu places cette procédure dans le module feuille où l'action se déroule
Tu remplaces Range("a:A") par la plage de cellules que tu veux affecter
par la procédure.
'------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim C As Range
For Each C In Intersect(Range("A:A"), Target)
If UCase(C) = "X" Then
Application.EnableEvents = False
C = "": C = Now
C.NumberFormat = "DD/MM/YYYY HH:MM:SS"
Application.EnableEvents = True
ElseIf C = "" Then
C.NumberFormat = "General"
End If
Next
End Sub
'------------------------------
"milloche" a écrit dans le message de groupe de discussion :
Bonjour
J'utilise très souvent ctrl+point-virgule puis espace puis ctrl+deux-points pour entrer
NOW value dans certaines cellules (le résultat n'est pas volatile et c'est bien comme çà).
Très pratique, cela marche même si la cellule était formatée autrement qu'en date (elle
accueille parfois temporairement des %ages avant de devenir date et heures). Elle s'adapte
toute seule.
Je voudrais encore simplifier, c'est à dire ne taper qu' un "x" dans cette cellule et dans
ce cas que Excel fasse ce travail à ma place.
Comme toujours, l'idée mais ne sais pas faire pratiquement.
Évènementielle, je pense, mais je plane encore.
Et ceci ne doit pouvoir se faire que en colonne B ou E.
Bon courage.
La première solution de garnote me plaisait bien (1 ligne) mais elle ne formatait pas la cellule, contrairement au clavier.
J'ai rajouté une ligne pour le formatage et impecable donc 2 lignes.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Value = "x" Then Target.Value = Now
Target.NumberFormat = "m/d/yyyy"
End Sub
Les autres solutions sont bonnes aussi, mais plus grosses.
Mais si je comprends bien évitent de faire des bêtises dans d'autres cellules que celles prévues.
Mon dilemme : je ne sais plus que choisir.
Je me retrouve comme un enfant au pied du sapin devant plein de cadeaux. Je vais tester tout cà.
Merci à tous deux.
JMM
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news: etCYQoweJHA.5932@TK2MSFTNGP03.phx.gbl...
Un aperçu de ce qui est possible de faire :
Si tu tapes X dans n'importe quelle cellule de la feuille
elle se transformera en Date & heure...
Tu peux décider du format de la date que tu désires...
Tu places cette procédure dans le module feuille où l'action se déroule
Tu remplaces Range("a:A") par la plage de cellules que tu veux affecter
par la procédure.
'------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim C As Range
For Each C In Intersect(Range("A:A"), Target)
If UCase(C) = "X" Then
Application.EnableEvents = False
C = "": C = Now
C.NumberFormat = "DD/MM/YYYY HH:MM:SS"
Application.EnableEvents = True
ElseIf C = "" Then
C.NumberFormat = "General"
End If
Next
End Sub
'------------------------------
"milloche" <mille.jean-marieZZZ@neuf.fr> a écrit dans le message de groupe de discussion :
Omzw9fweJHA.4272@TK2MSFTNGP06.phx.gbl...
Bonjour
J'utilise très souvent ctrl+point-virgule puis espace puis ctrl+deux-points pour entrer
NOW value dans certaines cellules (le résultat n'est pas volatile et c'est bien comme çà).
Très pratique, cela marche même si la cellule était formatée autrement qu'en date (elle
accueille parfois temporairement des %ages avant de devenir date et heures). Elle s'adapte
toute seule.
Je voudrais encore simplifier, c'est à dire ne taper qu' un "x" dans cette cellule et dans
ce cas que Excel fasse ce travail à ma place.
Comme toujours, l'idée mais ne sais pas faire pratiquement.
Évènementielle, je pense, mais je plane encore.
Et ceci ne doit pouvoir se faire que en colonne B ou E.
Bon courage.
La première solution de garnote me plaisait bien (1 ligne) mais elle ne formatait pas la cellule, contrairement au clavier.
J'ai rajouté une ligne pour le formatage et impecable donc 2 lignes.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Value = "x" Then Target.Value = Now
Target.NumberFormat = "m/d/yyyy"
End Sub
Les autres solutions sont bonnes aussi, mais plus grosses.
Mais si je comprends bien évitent de faire des bêtises dans d'autres cellules que celles prévues.
Mon dilemme : je ne sais plus que choisir.
Je me retrouve comme un enfant au pied du sapin devant plein de cadeaux. Je vais tester tout cà.
Merci à tous deux.
JMM
"michdenis" a écrit dans le message de news:Un aperçu de ce qui est possible de faire :
Si tu tapes X dans n'importe quelle cellule de la feuille
elle se transformera en Date & heure...
Tu peux décider du format de la date que tu désires...
Tu places cette procédure dans le module feuille où l'action se déroule
Tu remplaces Range("a:A") par la plage de cellules que tu veux affecter
par la procédure.
'------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim C As Range
For Each C In Intersect(Range("A:A"), Target)
If UCase(C) = "X" Then
Application.EnableEvents = False
C = "": C = Now
C.NumberFormat = "DD/MM/YYYY HH:MM:SS"
Application.EnableEvents = True
ElseIf C = "" Then
C.NumberFormat = "General"
End If
Next
End Sub
'------------------------------
"milloche" a écrit dans le message de groupe de discussion :
Bonjour
J'utilise très souvent ctrl+point-virgule puis espace puis ctrl+deux-points pour entrer
NOW value dans certaines cellules (le résultat n'est pas volatile et c'est bien comme çà).
Très pratique, cela marche même si la cellule était formatée autrement qu'en date (elle
accueille parfois temporairement des %ages avant de devenir date et heures). Elle s'adapte
toute seule.
Je voudrais encore simplifier, c'est à dire ne taper qu' un "x" dans cette cellule et dans
ce cas que Excel fasse ce travail à ma place.
Comme toujours, l'idée mais ne sais pas faire pratiquement.
Évènementielle, je pense, mais je plane encore.
Et ceci ne doit pouvoir se faire que en colonne B ou E.
Bon courage.
Bon alors maintenant merci à tous trois
"Jacky" a écrit dans le message de news:Bonjour,
'---------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Or Target.Column = 5 Then
If UCase(Target) = "X" Then Target = Now
End If
End Sub
'----------------
--
Salutations
JJ
"milloche" a écrit dans le message de news:Bonjour
J'utilise très souvent ctrl+point-virgule puis espace puis ctrl+deux-points pour
entrer NOW value dans certaines cellules (le résultat n'est pas volatile et c'est bien
comme çà). Très pratique, cela marche même si la cellule était formatée autrement
qu'en date (elle accueille parfois temporairement des %ages avant de devenir date et
heures). Elle s'adapte toute seule.
Je voudrais encore simplifier, c'est à dire ne taper qu' un "x" dans cette cellule et
dans ce cas que Excel fasse ce travail à ma place.
Comme toujours, l'idée mais ne sais pas faire pratiquement.
Évènementielle, je pense, mais je plane encore.
Et ceci ne doit pouvoir se faire que en colonne B ou E.
Bon courage.
Bon alors maintenant merci à tous trois
"Jacky" <Dupond@marcel.fr> a écrit dans le message de news:
OQdUk2weJHA.5932@TK2MSFTNGP03.phx.gbl...
Bonjour,
'---------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Or Target.Column = 5 Then
If UCase(Target) = "X" Then Target = Now
End If
End Sub
'----------------
--
Salutations
JJ
"milloche" <mille.jean-marieZZZ@neuf.fr> a écrit dans le message de news:
Omzw9fweJHA.4272@TK2MSFTNGP06.phx.gbl...
Bonjour
J'utilise très souvent ctrl+point-virgule puis espace puis ctrl+deux-points pour
entrer NOW value dans certaines cellules (le résultat n'est pas volatile et c'est bien
comme çà). Très pratique, cela marche même si la cellule était formatée autrement
qu'en date (elle accueille parfois temporairement des %ages avant de devenir date et
heures). Elle s'adapte toute seule.
Je voudrais encore simplifier, c'est à dire ne taper qu' un "x" dans cette cellule et
dans ce cas que Excel fasse ce travail à ma place.
Comme toujours, l'idée mais ne sais pas faire pratiquement.
Évènementielle, je pense, mais je plane encore.
Et ceci ne doit pouvoir se faire que en colonne B ou E.
Bon courage.
Bon alors maintenant merci à tous trois
"Jacky" a écrit dans le message de news:Bonjour,
'---------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Or Target.Column = 5 Then
If UCase(Target) = "X" Then Target = Now
End If
End Sub
'----------------
--
Salutations
JJ
"milloche" a écrit dans le message de news:Bonjour
J'utilise très souvent ctrl+point-virgule puis espace puis ctrl+deux-points pour
entrer NOW value dans certaines cellules (le résultat n'est pas volatile et c'est bien
comme çà). Très pratique, cela marche même si la cellule était formatée autrement
qu'en date (elle accueille parfois temporairement des %ages avant de devenir date et
heures). Elle s'adapte toute seule.
Je voudrais encore simplifier, c'est à dire ne taper qu' un "x" dans cette cellule et
dans ce cas que Excel fasse ce travail à ma place.
Comme toujours, l'idée mais ne sais pas faire pratiquement.
Évènementielle, je pense, mais je plane encore.
Et ceci ne doit pouvoir se faire que en colonne B ou E.
Bon courage.
Bonjour
J'utilise tr�s souvent ctrl+point-virgule puis espace puis ctrl+d eux-points pour entrer
NOW value dans certaines cellules (le r�sultat n'est pas volatile et c'est bien comme ��).
Tr�s pratique, cela marche m�me si la cellule �ta it format�e autrement qu'en date (elle
accueille parfois temporairement des %ages avant de devenir date et heure s). Elle s'adapte
toute seule.
Je voudrais encore simplifier, c'est � dire ne taper qu' un "x" d ans cette cellule et dans
ce cas que Excel fasse ce travail � ma place.
Comme toujours, l'id�e mais ne sais pas faire pratiquement.
�v�nementielle, je pense, mais je plane encore.
Et ceci ne doit pouvoir se faire que en colonne B ou E.
Bon courage.
Bonjour
J'utilise tr�s souvent ctrl+point-virgule puis espace puis ctrl+d eux-points pour entrer
NOW value dans certaines cellules (le r�sultat n'est pas volatile et c'est bien comme ��).
Tr�s pratique, cela marche m�me si la cellule �ta it format�e autrement qu'en date (elle
accueille parfois temporairement des %ages avant de devenir date et heure s). Elle s'adapte
toute seule.
Je voudrais encore simplifier, c'est � dire ne taper qu' un "x" d ans cette cellule et dans
ce cas que Excel fasse ce travail � ma place.
Comme toujours, l'id�e mais ne sais pas faire pratiquement.
�v�nementielle, je pense, mais je plane encore.
Et ceci ne doit pouvoir se faire que en colonne B ou E.
Bon courage.
Bonjour
J'utilise tr�s souvent ctrl+point-virgule puis espace puis ctrl+d eux-points pour entrer
NOW value dans certaines cellules (le r�sultat n'est pas volatile et c'est bien comme ��).
Tr�s pratique, cela marche m�me si la cellule �ta it format�e autrement qu'en date (elle
accueille parfois temporairement des %ages avant de devenir date et heure s). Elle s'adapte
toute seule.
Je voudrais encore simplifier, c'est � dire ne taper qu' un "x" d ans cette cellule et dans
ce cas que Excel fasse ce travail � ma place.
Comme toujours, l'id�e mais ne sais pas faire pratiquement.
�v�nementielle, je pense, mais je plane encore.
Et ceci ne doit pouvoir se faire que en colonne B ou E.
Bon courage.