Autres problème avec les dates

[JBARBE]

bonjour à tous,
c'est encore moi ,
J'ai une feuille avec une date 12/12/2023 qui c'est transformé en 45272
j'ai essayer ceci qui efface la cellule !!!!!!

Sub Au()
Dim dateTest As String
Dim J As Long
For J = 6 To 66
If Sheets("SG").Cells(J, 1) <> "" Then
Sheets("SG").Cells(J, 1) = format(dateTest, "dddd/mm/yy")
End If
Next
End Sub

bon sang je ne vais pas m'en sortir
merci à l'avance
bonne journée

 

[fanfan38]

Bonjour
45272 c'est la manière à Excel de gerer les dates
Il suffit de mettre en forme la cellule qui reçoit la date...
Mais sans fichier...
A+ François

 

[TooFatBoy]

Bonjour,

Sub Au()
Dim dateTest As String
Dim J As Long
For J = 6 To 66
If Sheets("SG").Cells(J, 1) <> "" Then
Sheets("SG").Cells(J, 1) = format(dateTest, "dddd/mm/yy")
End If
Next
End Sub

La variable dateTest est censée contenir une date, donc elle ne doit pas être de type String, mais plutôt de type Date.


Ceci dit, cette variable me semble inutile.
Essaye ceci :

Sub Au()
    Sheets("SG").Range("A6:A66").NumberFormat= "dddd dd/mm/yy"
End Sub

Mais sans fichier... 😉
Et comme dit dans ton fil précédent : il serait préférable d'utiliser la balise code avec la variable vb pour encadrer le code VBA que tu postes dans tes messages, afin de le rendre lisible plus facilement.

 

[JBARBE]

Sheets("SG").Range("A6:A66").NumberFormat= "dddd dd/mm/yy"

Sub Au()
Sheets("SG").Range("Date").NumberFormat = "dddd dd/mm/yy"
End Sub

Bonjour,


La variable dateTest est censée contenir une date, donc elle ne doit pas être de type String, mais plutôt de type Date.


Ceci dit, cette variable me semble inutile.
Essaye ceci :

Sub Au()
    Sheets("SG").Range("A6:A66").NumberFormat= "dddd dd/mm/yy"
End Sub

Mais sans fichier... 😉
Et comme dit dans ton fil précédent : il serait préférable d'utiliser la balise code avec la variable vb pour encadrer le code VBA que tu postes dans tes messages, afin de le rendre lisible plus facilement.

Date​						=(SoldeB-SOMME.SI($E$6:$E$63278;"=P";$F$6:$F$63278)+SOMME.SI($E$6:$E$63278;"=P";$G$6:$G$63278))​
45288​		Portable		31,99​	0​

Sheets(« SG »)

Range(« A4 »)

Sub Au()
Sheets("SG").Range("Date").NumberFormat = "dddd dd/mm/yy"
End Sub

 

[JBARBE]

Sub Au()
Sheets("SG").Range("Date").NumberFormat = "dddd dd/mm/yy"
End Sub

Date​						=(SoldeB-SOMME.SI($E$6:$E$63278;"=P";$F$6:$F$63278)+SOMME.SI($E$6:$E$63278;"=P";$G$6:$G$63278))​
45288​		Portable		31,99​	0​

Sheets(« SG »)

Range(« A4 »)

Sub Au()
Sheets("SG").Range("Date").NumberFormat = "dddd dd/mm/yy"
End Sub

probléme !!!!!!

45288 =28/12/2023​

 

[TooFatBoy]

il semble que c'est la colonne 1 qui pose probéme

D'où ma proposition de macro.
Essaye-la et dis moi quoi. 😉

 

[JBARBE]

probléme !!!!!!

D'où ma proposition de macro.
Essaye-la et dis moi quoi. 😉

c'est ça
Sub Au()
Sheets("SG").Range("Date").NumberFormat = "dddd dd/mm/yy"
End Sub

 

[TooFatBoy]

c'est ça
Sub Au()
Sheets("SG").Range("Date").NumberFormat = "dddd dd/mm/yy"
End Sub

Pourquoi aurais-je écrit un truc pareil qui n'a aucun sens ???


Et comme dit précédemment : il serait préférable d'utiliser la balise code avec la variable vb pour encadrer le code VBA que tu postes dans tes messages, afin de le rendre lisible plus facilement.

 

[patricktoulon]

re
Bonjour à tous
@JBARRE
si ta date est rapatriée par formule il est possible que ce soit du texte
englobe ta formule dans un CNUM et formate ta cellule

 

[TooFatBoy]

si ta date est rapatriée par formule il est possible que ce soit du texte

Si avant ça affichait une date et que ça s'est transformé en 45272, il y a peu de chances que ce soit du texte, à mon avis.

Moi, j'aimerais bien qu'il teste ma proposition... 🙏

 

[TooFatBoy]

c'est ça
Sub Au()
Sheets("SG").Range("Date").NumberFormat = "dddd dd/mm/yy"
End Sub

Si tu n'arrives pas à tester ma proposition, essaye simplement de modifier le format d'affichage des cellules de la colonne A, en utilisant le format personnalisé jj/mm/aaaa.

 

[dysorthographie]

Bonjour,

Sheets("SG").Cells(J, 1).NumberFormat = "General"
Sheets("SG").Cells(J, 1) = Format(dateTest, "yyyy-mm-dd")

 

[Dranreb]

J'ai une feuille avec une date 12/12/2023 qui c'est transformé en 45272

Pourquoi parlez vous de transformation ? Il n'y a aucune transformation de la valeur de la cellule : le 12/12/2023 c'est bien 45272 jours à partir du 1/1/1900. La seule chose qui ne vous convient pas c'est le format d'affichage de la cellule.
Cessez de confondre la valeur d'une cellule avec ce que vous y voyez, en particulier quand c'est une date ou une heure …

 

[patricktoulon]

re
@Dranreb personne ne confond
mais une formule peut très bien renvoyer 45272 en tant que texte
et pour peu que la cellule soit en format texte
c'est pour cela que je propose CNUM
cnum(45272) formaté en date sera toujours une date (sur à 100%)
😉

 

[Dranreb]

@JBARBE confondait de tout évidence, comme beaucoup.
D'accord avec le reste, qui confirme encore que ce qu'on voit dans une cellule est toujours un texte en fonction de sa valeur et de son format, et non pas sa valeur elle même.