Discussion :

[lucien(67)]

Bonjour,

J'utilise l'instruction suivante pour mettre une date automatiquement dans une feuille excel

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
x = Format(DateSerial(année, mois, jour), "dd-mm-yy")
 ActiveSheet.Range("B1").Value = x

L'affichage dans la cellule B1 fonctionne pour les dates dont le jour est supérieur à 12 ex 13-02-2013 ; cependant pour les jours compris entre 1 et 12 l'affichage commence par le mois puis le jour et l'année.Comment puis je rétablir le format pour le jour inférieur à 13

Cordialement
Lucien

[Kimy_Ire]

Check ça : http://www.developpez.net/forums/d12...ormat-anglais/

Tiré de la discution :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub test()
Dim Str As String
Dim myday As String
Dim mymonth As String
Dim myyear As String
 
With Worksheets("...")
For i = 0 To Columns(1).Find("*", , , , xlByColumns, xlPrevious).Row - 1
    Str = Range("A1").Offset(i, 0).Value
    myday = Left(Str, 2)
    mymonth = Mid(Str, 4, 2)
    myyear = Right(Str, 4)
 
    Range("A1").Offset(i, 0) = DateValue(myday & "/" & mymonth & "/" & myyear)
Next i
End With

Tiens moi au courant !

[lucien(67)]

Bonsoir Kimy Ire,

J'ai essayé vos solutions , mais l'affichage dans la cellule B1 ne change pas, à la lecture de la valeur x au pas à pas; elle est bien formatée ex 3/02/2013. Pourtant dès l'affichage de cette valeur dans la cellule B1 la valeur se converti 02/03/2013.
Je vous inscris ci dessous le code complet utiliséDim jour As Integer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Dim mois As String
Dim année As String
Dim x As String
 
 
 
Cells(8, 3).Activate
mois = ActiveCell.Value
Cells(8, 5).Activate
année = ActiveCell.Value
NbJourMoisCourant = Day(DateSerial(année, mois + 1, 0))
 
For jour = NbJourMoisCourant To 1 Step -1
x = DateSerial(année, mois, jour)
Sheets("Ech").Select
    ActiveSheet.Range("A1:U51").Select
    Selection.Copy
    Sheets.Add after:=Données
    ActiveSheet.Name = jour
    ActiveSheet.Paste
    ActiveSheet.Range("B1").Value = x

Avez vous une solution pour résoudre ce problème

bien cordialement
Lucien

[tedo01]

Bonjour,
Essaie déjà avec Dim x As Date au lieu de Dim x As String...

[lucien(67)]

Super, celà fonctionne

Merci

Lucien