Autres problème avec les dates

JBARBE · 6 Janvier 2024

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 · 6 Janvier 2024

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 · 6 Janvier 2024

Bonjour,

JBARBE à dit:

VB:

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 :

VB:

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 · 6 Janvier 2024

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

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

TooFatBoy à dit:
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 :

VB:

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 · 6 Janvier 2024

JBARBE à dit:
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 · 6 Janvier 2024

JBARBE à dit:
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 · 6 Janvier 2024

JBARBE à dit:
probléme !!!!!!

TooFatBoy à dit:
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 · 6 Janvier 2024

JBARBE à dit:
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 · 6 Janvier 2024

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 · 6 Janvier 2024

patricktoulon à dit:
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 · 6 Janvier 2024

JBARBE à dit:
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 · 6 Janvier 2024

Bonjour,

VB:

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

Dranreb · 6 Janvier 2024

JBARBE à dit:
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 · 6 Janvier 2024

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 · 6 Janvier 2024

@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.

Autres problème avec les dates

JBARBE

XLDnaute Barbatruc

fanfan38

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

JBARBE

XLDnaute Barbatruc

JBARBE

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

JBARBE

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

dysorthographie

XLDnaute Accro

Dranreb

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Dranreb

XLDnaute Barbatruc

Discussions similaires