Discussion :

[kikie43]

Bonjour à tous

J'ai un pb au niveau des formats date.
Grace à un code, je copie la valeur d'une cellule, qui contient une date, et la recopie sur une autre feuille.
Dans le code, ma variable prend bien la valeur date ex : 12/01/2015 mais quand je la copie dans une autre cellule, cette valeur ne suit pas (j'ai 01/12/2015).
Par contre avec le 13/01/2015 cela fonctionne !
Il s'agit surement d'un format date qui ne marche pas, mais je n'arrive pas à trouver ou ça pèche !

Merci de votre aide
Cordialement

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
 
If Target.Column = colonnedbclick Then
 
 
    If MsgBox("Attention vous allez archiver la ligne sélectionnée. " & vbcrlt & "Voulez vous continuer ?", vbYesNo) = vbYes Then
    lignearchiv = Target.Row
 
 
    odjd = odj.Cells(Target.Row, 1).Value
 
   lignehisto = fdata.Cells(lignemax, 1).End(xlUp).Row + 1
    fdata.Cells(lignehisto, 1) = odjd
 
        odj.Rows(lignearchiv & ":" & lignearchiv).EntireRow.Delete
 
    End If

[Daniel.C]

Bonjour,

1. quelle est ta version d'Excel ?
2. Comment as-tu défini la variable "odjd" ?

[casefayere]

Bonjour,,
si odjd est bien déclaré en date, j'écrirais comme ça

Code :

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

1
2
3
4
   ......
 odjd = CDate(odj.Cells(Target.Row, 1))
.........
    fdata.Cells(lignehisto, 1) = CDate(odjd)

[Igloobel]

Bonjour,

tu as plein de cours qui t'explique de façon clair la gestion des dates
là tu as 2 cours très interessant

http://mhubiche.developpez.com/vba/f...ions/datetime/
http://silkyroad.developpez.com/excel/dateheure/#LIX

Mais surtout Lit celui-ci

http://didier-gonard.developpez.com/tutoriels/office/excel/comprendre-et-gerer-dates-sous-excel-et-vba/

Qui réponds a ton problème

Personnellement j'ai grace a ce cours compris la subtilité des dates qui se mettent au format anglais pour les 12 premiers jours de chaque mois.

A+

[Daniel.C]

Il semblerait qu'avec Excel 2013, on n'ait plus ce problème :

Code :

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

1
2
3
Dim odjd As Date
odjd = [A1]
[B1] = odjd

fonctionne quelle que soit la date...

[Marc-L]

Bonjour,

je n'ai jamais eu de souci avec la propriété Value2, comme indiqué dans l'aide VBA …


__________________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …


__________________________________________________________________________________________________
Tous unis, tous Charlie

[Igloobel]

Ah Ouais comme d'hab.

Marc L toujours très succins mais toujours juste

Je ne connaissais pas la méthode .Value2 mais elle m'a l'air interessante.

Extrait de l'aide :

Remarques

La seule différence existant entre cette propriété et la propriété Value réside dans le fait que la propriété Value2 n'utilise pas les types de données aux formats Currency et Date. Vous pouvez retourner des données de ce type sous forme de nombres à virgule flottante en utilisant le type de données Double.