Code VBA

[cora]

Bonjour à tous,

J'avais récupérer ce code qui me permet d'inscrire automatiquement la date du jour sur une des cellules de la colonnes H, dès lors qu'une valeur est saisie dans une des cellules de la colonne I. Le souci c'est que la date du jour s'affiche dans ce format: "05/04/2013 09:11:31" et je souhaiterais qu'elle s'affiche dans ce format: "05/04/2013" sans l'heure. est-ce possible ?

Merci de votre aide

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count <> 1 Then Exit Sub
If Intersect(Target, Range("I12:I200")) Is Nothing Then Exit Sub
If Target = "" Then Target.Offset(0, -1) = "=today()" Else Target.Offset(0, -1) = Now()
End Sub

 

[Dull]

Re : Code VBA

Salut Cora, le Forum

Pas testé mais essaye de remplacer Now() par Date

Bonne Journée

 

[cora]

Re : Code VBA

Excellent, ça fonctionne

Merci beaucoup !!

 

[Orodreth]

Re : Code VBA

Bonjour,

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count <> 1 Then Exit Sub
    If Intersect(Target, Range("I12:I200")) Is Nothing Then Exit Sub
    If Target = "" Then Target.Offset(0, -1) = "=today()" Else Target.Offset(0, -1) = Format(Date(), "DD/MM/YYYY")
End Sub

Si la solution de Dull ne suffit pas, voilà qui devrait régler le problème en forçant le format.

EDIT: petit croisement, la solution de Dull marche, pas besoin d'aller plus loin

Cordialement,

 

[Lone-wolf]

Re : Code VBA

Bonjour cora,

Voici une proposition. Met la colonne H au format Date persoonlisée et ensuite copie le code.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim lig As Long, i As Integer, madate
If Not Intersect(Target, Range("h1:h20000")) Is Nothing Then Exit Sub
lig = Range("h65536").End(xlUp).Row
On Error Resume Next
For i = 1 To lig
If Cells(i + 1, 9).Value = "" Then Exit For
Cells(i + 1, 8).Value = Date
madate = Cells(i, 8)
 If IsDate(madate) Then
With Cells(i + 1, 8)
If .NumberFormat = "mm/dd/yyyy" Then
madate = .Value
.NumberFormat = "dd/mm/yyyy"
.Value = CDate(Month(madate) & "/" & Day(madate) & "/" & Year(madate))
End If
End With
End If
Next i
End Sub

A bientôt 😎