Autres problème avec les dates

JBARBE

XLDnaute Barbatruc
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
 

Eric C

XLDnaute Barbatruc
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
VB:
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
 
Dernière édition:

Discussions similaires

Réponses
11
Affichages
453

Statistiques des forums

Discussions
313 313
Messages
2 097 044
Membres
106 816
dernier inscrit
Garry972