Problème de format de date

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:

---

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

---

Pièce jointe 617344

Bonjour,
Essayez ceci:

Code:

---

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

ca ne fonctionne pas

Salut.

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

Code:

---

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:

---

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?

voila ma problematique

J'aimerai que les dates soient reconnue par excel

je vous joins un exemple de date

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

Merci

comment le transcrire en vba ?

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

J'utilise des version office qui n'ont pas power query (niveau sécurité) donc je dois passer par les macros.

Bonjour le fil, Laurent27530

Problème de sécurité !? Et l'utilisation de VBA n'en est pas un :?

D'ailleurs pourquoi l'utiliser pour une conversion de date...
1) mettre la valeur 1 dans une cellule
2) copier cette cellule
3) sélectionner la colonne de date
4) Collage spécial -> valeur par multiplication

Et hop c'est magique ;)

Bonjour à tous

Citation:

---

Envoyé par laurent27530

J'utilise des version office qui n'ont pas power query (niveau sécurité) donc je dois passer par les macros.

---

Je rappelle que PowerQuery est totalement intégré à Excel depuis la version 2016

Donc avec 365, ne pas l'avoir signifie une installation très particulière...

Côté sécurité, VBA est à mon humble avis, partagé par Bruno que je salue, plus à risques...

Ici de toute évidence il s'agit d'un problème d'import à régler en amont en paramétrant correctement l'import et non a posteriori où les dates pouvant s'inverser sans erreur peuvent être totalement différentes de la source...

Bonjour,
Pour les versions antérieures à 2016, on peut ajouter PowerQuery comme complément depuis, c'est intégré (voir onglet Data ou Données)

Utilisez l'enregistreur de macro en suivant ce que Stéphane (fil) a décrit et vous aurez une idée des propriétés et/ou méthodes à employer pour le VBA.

Je partage ce qu'à répondu BrunoM45 (Sécurité pour Power Query mais pour VBA ???)

Citation:

---

Envoyé par laurent27530

Code:

---

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:

---

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

---

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