Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Autres problème avec les dates

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion JBARBE
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

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
 
Trier par date Trier par votes
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
Cliquez pour agrandir...
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:
Vote positif 0 Vote négatif
TooFatBoy à dit:
Sheets("SG").Range("A6:A66").NumberFormat= "dddd dd/mm/yy"
Cliquez pour agrandir...
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
 
Dernière édition:
Vote positif 0 Vote négatif
JBARBE à dit:
c'est ça
Sub Au()
Sheets("SG").Range("Date").NumberFormat = "dddd dd/mm/yy"
End Sub
Cliquez pour agrandir...
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.
 
Vote positif 0 Vote négatif
JBARBE à dit:
J'ai une feuille avec une date 12/12/2023 qui c'est transformé en 45272
Cliquez pour agrandir...
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 …
 
Vote positif 0 Vote négatif
@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.
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

F
  • Question Question
Microsoft 365 Problème mémoire insuffisante
Réponses
5
Affichages
237
TooFatBoy
F
  • Question Question
XL 2021 probleme dans la macro
Réponses
4
Affichages
177
kiki29
U
  • Question Question
Autres [RÉSOLU] Compléter la macro mais comment et où?
Réponses
2
Affichages
240
un internaute
U
  • Résolu(e)
Microsoft 365 Problème de formatage de dates au format EUR
Réponses
2
Affichages
155
R1-
C
  • Question Question
XL 2021 VBA excel
Réponses
4
Affichages
169
CDALE
C
  • Question Question
Microsoft 365 VBA : copier les adresses
Réponses
7
Affichages
340
VBA_dev_Anne_Marie
G
  • Résolu(e)
XL 2021 VBA dates au mauvais format
Réponses
5
Affichages
394
vgendron
S
  • Question Question
XL 2019 Modifications avec Combobox liées
Réponses
7
Affichages
297
Dranreb
  • Question Question
XL 2019 code pour tous les disques
Réponses
3
Affichages
665
AtTheOne
U
  • Question Question
Autres incorporer une macro dans une autre macro
Réponses
5
Affichages
472
Phil69970
  • Résolu(e)
XL 2021 Bug dans code vba
Réponses
8
Affichages
311
thunder23
  • Question Question
XL 2021 Importer les données Access dans Excel
Réponses
2
Affichages
433
badraaliou4
T
  • Résolu(e)
XL 2019 Filtrer certains champs au démarrage avec vba
2
Réponses
15
Affichages
488
telemarrk
T
L
  • Résolu(e)
Microsoft 365 Extraire les données de la valeur cherchée en note
Réponses
5
Affichages
207
Lau01150
L
K
  • Résolu(e)
XL 2016 Affichage TextBox
Réponses
6
Affichages
243
KRUG WOO
K
E
  • Question Question
Microsoft 365 Listbox avec plus de 10 colonnes
Réponses
6
Affichages
656
Excellearning
E
  • Question Question
XL 2021 Exportation feuille msgbox yes no avec module Thisworkbook
2
Réponses
21
Affichages
1 K
Nicolas JACQUIN
D
  • Question Question
XL 2021 Filtre Multi Critères Listview VBA
2
Réponses
21
Affichages
2 K
Dranreb
G
  • Résolu(e)
XL 2016 Pb de tri et sous totaux
2
Réponses
27
Affichages
643
Gestionnaire_rh
G
B
  • Question Question
XL 2013 Comment trier les nom des feuilles et fusionner leur tableaux dans une une autre feuille ?
Réponses
10
Affichages
695
Compte Supprimé 979
C
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…