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
 

TooFatBoy

XLDnaute Barbatruc
Bonjour,

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.
 
Dernière édition:

JBARBE

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

JBARBE

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

Dranreb

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

Discussions similaires

Réponses
11
Affichages
446

Statistiques des forums

Discussions
313 274
Messages
2 096 750
Membres
106 738
dernier inscrit
Lacbus