Discussion :

[laurent27530]

Bonjour,

Je recopie des date dans une feuille

Toutes les dates inférieures a 12 (jour) sont considérées en format date.

En revanche toute les dates supérieures ou égale a 13 sont dans le format général

Il faut que je valide la cellule pour que le bon format soit appliqué.

Avez vous une solution ?

Code POWERSHELL :

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

1
2
3
4
5
For L = 2 To Cpt
txtDate = CSng(CDate(Sheets("Temp").Range("B" & L)))
Sheets("TEMP_SUM").Range("A" & L) = Format(CDate(txtDate), "dd/mm/yyyy")
Sheets("TEMP_SUM").Range("A" & L).Activate
Next

[ARTURO83]

Bonjour,
Essayez ceci:

Code :

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

1
2
3
4
For L = 2 To cpt
    txtDate = CDbl(Sheets("Temp").Range("B" & L))
    Sheets("TEMP_SUM").Range("A" & L) = Format(CDate(txtDate), "m/d/yyyy")
Next

Cdlt

[laurent27530]

ca ne fonctionne pas

[Pierre Fauconnier]

Salut.

Je ne comprends pas pourquoi tu passes par un FORMAT sur un CDATE ou sur un CDBL... ^^

Code :

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

1
2
3
4
5
6
7
8
9
Sub Test()
Dim cpt As Long
Dim i As Long
 
cpt = 10
For i = 2 To cpt
  Sheets("temp sum").Range("a" & i).Value = Sheets("temp").Range("b" & i).Value
Next
End Sub

Je ne comprends pas pourquoi tu passes par une boucle:

Code :

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

1
2
3
4
5
6
Sub Test1()
  Dim cpt As Long
 
  cpt = 10
  Sheets("temp sum").Range("a2:a" & cpt).Value = Sheets("temp").Range("b2:b" & cpt).Value
End Sub

Bref, je ne comprends pas ta demande. Que cherches-tu à réaliser? Quelles sont tes données de départ? Quels sont les problèmes que tu rencontres?

[laurent27530]

voila ma problematique

J'aimerai que les dates soient reconnue par excel

je vous joins un exemple de date

[Raccourcix]

Bonjour
il faut sélectionner la plage, menu Données/Convertir/Suivant, Suivant, cocher Date et Terminer
Avec cette option Date vous pouvez choisir la forme de vos dates : MJA, pour mois, jour, année ou JMA pour jour, mois, année...

Stéphane

[laurent27530]

Merci

comment le transcrire en vba ?

[Raccourcix]

Pourquoi vouloir du VBA ?
Si c'est un besoin ponctuel le plus simple est de le faire à la main
Si c'est récurrent, le mieux est de passer par Power Query pour récupérer directement les données à la source sans copié collé.
Vous pouvez importer des données de nombreuses sources puis enregistrer les transformations nécessaires et ensuite les mettre à jour d'un simple clic.
Stéphane

[deedolith]

Code POWERSHELL :

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

1
2
3
4
5
For L = 2 To Cpt
txtDate = CSng(CDate(Sheets("Temp").Range("B" & L)))
Sheets("TEMP_SUM").Range("A" & L) = Format(CDate(txtDate), "dd/mm/yyyy")
Sheets("TEMP_SUM").Range("A" & L).Activate
Next

Salut,

Je pense que tu confonds le contenu et le contenant, ce n'est pas la donnée que tu dois formatter, mais la cellule.
En formattant la donnée, tu transformes cette dernière (de date, elle devient texte).
Essaye ceci:

Code :

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

Sheets("TEMP_SUM").Range("A" & L).NumberFormat = "dd/mm/yyyy"

[Thumb down]

Bonjour,
Sheets("TEMP_SUM").Range("A:A").Value=Sheets("TEMP_SUM").Range("A:A").value