OVH Cloud OVH Cloud

date par ctrl+; par macro

3 réponses
Avatar
gilles
Bonjour à tous;
le raccourci ctrl ; permet de mettre la date du jour
j'ai voulu insérer cette manip dans un code mais le code reprend la date
exacte
ex:(à partir de l'enregistreur)

Range("J32").Select
ActiveCell.FormulaR1C1 = "10/26/2005"
Range("K38").Select

J'aimerais que "10/26/2005" soit remplacé par une variable ou un code que je
ne maitrise pas
Est-ce qu'il existe une méthode permettant de contourner ce pb car je
voudrais mettre la date dans des cellules mais que la date reste au jour de
la saisie?

En fait, quand je double-click sur une cellule de la colonne B, je lance de
actions, mais je voudrais ajouter la date sur la même ligne d'une autre
colonne
(je pense que ça doit pas être trop clair, mon charabia!!)
Si un puissant cerveau vbatiste peut m'éclairer la dessus...
MERCI



--
en VBA aussi, ne remettons pas au lendemain ce qu'on peut faire aujourd'hui,
mais à chaque jour suffit sa peine...

3 réponses

Avatar
SL
Bonjour

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
If Target.Column = 2 Then Target(1, 9) = Date
End Sub

mettra la date du jour en colonne J si tu double-cliques en colonne B.

Stéphane

"gilles" a écrit dans le message de news:

Bonjour à tous;
le raccourci ctrl ; permet de mettre la date du jour
j'ai voulu insérer cette manip dans un code mais le code reprend la date
exacte
ex:(à partir de l'enregistreur)

Range("J32").Select
ActiveCell.FormulaR1C1 = "10/26/2005"
Range("K38").Select

J'aimerais que "10/26/2005" soit remplacé par une variable ou un code que
je
ne maitrise pas
Est-ce qu'il existe une méthode permettant de contourner ce pb car je
voudrais mettre la date dans des cellules mais que la date reste au jour
de
la saisie?

En fait, quand je double-click sur une cellule de la colonne B, je lance
de
actions, mais je voudrais ajouter la date sur la même ligne d'une autre
colonne
(je pense que ça doit pas être trop clair, mon charabia!!)
Si un puissant cerveau vbatiste peut m'éclairer la dessus...
MERCI



--
en VBA aussi, ne remettons pas au lendemain ce qu'on peut faire
aujourd'hui,
mais à chaque jour suffit sa peine...


Avatar
Modeste
bonsour®
gilles wrote:
ex:(à partir de l'enregistreur)
Range("J32").Select
ActiveCell.FormulaR1C1 = "10/26/2005"
J'aimerais que "10/26/2005" soit remplacé par une variable ou un code que
je ne maitrise pas
je voudrais mettre la date dans des cellules mais que la date reste au
jour de la saisie?



;o)))
simplement ....
Range("J32").Select
ActiveCell= Now()


--
n'oubliez pas les FAQ :
http://www.excelabo.net http://dj.joss.free.fr/faq.htm
http://www.faqoe.com http://faqword.free.fr
--
Feed Back
http://viadresse.com/?94912042

Avatar
gilles
Bonsoir SL et Modeste
Et merci de votre aide
ça parait pourtant très simple!!!

--
gilles72



Bonjour

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
If Target.Column = 2 Then Target(1, 9) = Date
End Sub

mettra la date du jour en colonne J si tu double-cliques en colonne B.

Stéphane

"gilles" a écrit dans le message de news:

Bonjour à tous;
le raccourci ctrl ; permet de mettre la date du jour
j'ai voulu insérer cette manip dans un code mais le code reprend la date
exacte
ex:(à partir de l'enregistreur)

Range("J32").Select
ActiveCell.FormulaR1C1 = "10/26/2005"
Range("K38").Select

J'aimerais que "10/26/2005" soit remplacé par une variable ou un code que
je
ne maitrise pas
Est-ce qu'il existe une méthode permettant de contourner ce pb car je
voudrais mettre la date dans des cellules mais que la date reste au jour
de
la saisie?

En fait, quand je double-click sur une cellule de la colonne B, je lance
de
actions, mais je voudrais ajouter la date sur la même ligne d'une autre
colonne
(je pense que ça doit pas être trop clair, mon charabia!!)
Si un puissant cerveau vbatiste peut m'éclairer la dessus...
MERCI



--
en VBA aussi, ne remettons pas au lendemain ce qu'on peut faire
aujourd'hui,
mais à chaque jour suffit sa peine...