Microsoft 365 code vba = valeur de ActiveCell & .FormulaR1C1 = "=DAY(TODAY())&"" ""&MONTH(TODAY())&"" ""&YEAR(TODAY())"

Modeste geedee

XLDnaute Barbatruc

• 18 Juin 2020

• #2

Bonsour®

arthour973 à dit:

Je voudrais que la cellule D6 (Cells(ActiveCell.Row, 4))
prenne la valeur de : ActiveCell & .FormulaR1C1 = "=DAY(TODAY())&"" ""&MONTH(TODAY())&"" ""&YEAR(TODAY())"

Cliquez pour agrandir...

peut-etre ? :

VB:

Sub Macro2()
    Cells(ActiveCell.Row, 4).Value = Cells(ActiveCell.Row, 1) & " (" & Format(Now, "dd mm yyyy hh\hmm)")
End Sub
[\CODE]

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 18 Juin 2020

• #3

Bonjour Lionel, Modeste geedee,

Sans plus d'explications :

VB:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell <> "" Then Cells(ActiveCell.Row, 4) = ActiveCell & Format(Date, ", dd mm yyyy")
End Sub

A+

 

Vote positif 0 Vote négatif

Solution

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 18 Juin 2020

• #4

Bonjour Modeste geedee, Bonjour Gérard,

Merci d'être toujours là à me répondre
@Modeste geedee : ça fonctionne bien - Merci à toi.
je l'ai adapté comme suit : Cells(ActiveCell.Row, 4).Value = ActiveCell & ", " & Format(Now, "dd mm yyyy)") mais je n'arrive pas à enlever cette parenthèse "c'est bon, 18 06 2020), 18 06 2020"

@Gérard Merci le code dans la feuille est nickel comme d'hab
Bonne fin de journée,
lionel,

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 18 Juin 2020

• #5

Re
@ Modeste geedee : c'est bon :
Cells(ActiveCell.Row, 4).Value = ActiveCell & ", " & Format(Date, ", dd mm yyyy")

 

Vote positif 0 Vote négatif