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

 

[JBARBE]

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.

voici le programme :
le mot de passe est > ABcH5K68Z

 

[TooFatBoy]

Il faut décocher "Formules dans les cellules au lieu de leurs résultats calculés".

Ensuite, tu peux utiliser le format d'affichage que tu veux : "jjjj jj/mm/aaaa" ou "jj/mm/aa" ou autre.

 

[Eric C]

Bonsoir le forum
Bonsoir le fil (trop de monde) - Meilleurs voeux à toutes & à tous

Notre ami Jacky (trop fort TooFatBoy) à perçé le mystère du problème du fichier. En effet, le soucis semble venir des formules dans les cellules. Après recherches et si tu ne veux pas faire de recherches pour trouver la "coche" à décocher, tu fais

CTRL "

(je ne suis pas à l'origine de cette trouvaille --- Voir ICI --). Et pour notre ami JBARBE le cross posting n'est pas bien vu même en cas de "tirage" de cheveux.
Bonne soirée à toutes & à tous

 

[JBARBE]

Bonjour,
C'était dû à une mauvaise manipulation
Bizarre que l'on n'a pu rien faire
J'ai pu récupérer le programme sur une clé USB qui n'avait pas été sauvegardé à ce moment là !
Merci à tous !
Bonne journée

 

[TooFatBoy]

Bizarre que l'on n'a pu rien faire

Décocher "Formules dans les cellules au lieu de leurs résultats calculés", ou utiliser l'excellent raccourci-clavier <Ctrl>+<"> indiqué par le non moins excellent Eric C, n'est pas exactement "ne rien pouvoir faire", puisque ça permet d'afficher de nouveau la date sous la forme que tu veux.