Macro permettant de changer un format date + heure en ne gardant que la date

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion achatenet
  • 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
A

achatenet

XLDnaute Nouveau
Bonsoir,

Dans le cadre de mon stage, je dois réaliser une macro permettant le retraitement d'une extraction tiré d'un logiciel. Cete extraction possède des doublons qui sont différencié par la date de création. Or une même ligne peut avoir été créé avec un léger décalage temporel empéchant la suppression des doublons.

J'ai réussi à réaliser une macro mais elles m'inversent le jours et la date à chaque fois que je clique sur mon bouton executant la macro.

Voici mon code :

Private Sub CommandButton1_Click()
Dim monDico As Object
Dim i As Integer

Set monDico = CreateObject("Scripting.Dictionary")

Application.ScreenUpdating = False

i = 1
Do While Cells(i, "A") <> ""
If Not monDico.Exists(Cells(i, "A") & Cells(i, "B") & Cells(i, "C") & Cells(i, "D")) Then
monDico(Cells(i, "A") & Cells(i, "B") & Cells(i, "C") & Cells(i, "D")) = ""
i = i + 1
Else
Rows(i).EntireRow.Delete
End If
Loop
For Each C In Sheets("Data RDV").Range("A1:A" & Range("A" & Application.Rows.Count).End(xlUp).Row)
C.Value = Left(C, 10)
C.NumberFormat = "dd/mm/yyyy"
Next C
Range("A2:Z1000").Sort Key1:=Range("B2"), Order1:=xlAscending
Range("E2").Select
Selection.AutoFill Destination:=Range("E2:E597"), Type:=xlFillDefault
Range("E2:E597").Select
Range("F2").Select
Selection.AutoFill Destination:=Range("F2:F597"), Type:=xlFillDefault
Range("F2:F597").Select

[F2].AutoFill Destination:=Range("F2:F" & Range("A65536").End(xlUp).Row)
[E2].AutoFill Destination:=Range("E2:E" & Range("D65536").End(xlUp).Row)


End Sub




Voyez vous d'où peux venir le problème ? Auriez vous une solution ?


Merci d'avance pour votre réactivité !


Amicalement !
 
Trier par date Trier par votes
Re : Macro permettant de changer un format date + heure en ne gardant que la date

Bonsoir achatenet, et bienvenue,

Peut-être en modifiant comme ceci:

Code: 
For Each C In Sheets("Data RDV").Range("A1:A" & Range("A" & Application.Rows.Count).End(xlUp).Row)
    C.Value = Cdate(Left(C, 10))
Next C
Dans ce cas, la ligne de mise au format de la cellule n'est plus indispensable, mais tu peux la conserver.

Cordialement.
 
Vote positif 0 Vote négatif
Re : Macro permettant de changer un format date + heure en ne gardant que la date

Bonsour®

🙄 en reprenant la réponse de Papou-net ...
VB: 
For Each C In Sheets("Data RDV").Range("A1:A" & Range("A" & Application.Rows.Count).End(xlUp).Row)
     C.Value = Int(C)
     C.NumberFormat = "dd/mm/yyyy"
Next C
 
Vote positif 0 Vote négatif
Re : Macro permettant de changer un format date + heure en ne gardant que la date

Bonjour à tous,

Merci pour vos propositions, malheureusement aucune n'a marché... Au vue des autres topics je pense qu'il est plus simple pour tous le monde que je joigne un classeur excel.

Pour rappel ma demande ne porte que sur le chgt de format de la date, le reste fonctionne.

Merci de votre sur votre temps pour m'aider, c'est vraiment sympa !
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Macro permettant de changer un format date + heure en ne gardant que la date

Bonsour®

il faut commencer la conversion à la ligne 2 !!!

VB: 
 For Each c In Sheets("Data RDV").Range("A2:A" & Range("A" & Application.Rows.Count).End(xlUp).Row)
    c.Value = Int(CDate(c))
    'c.NumberFormat = "dd/mm/yyyy"
Next c
 
Vote positif 0 Vote négatif
Re : Macro permettant de changer un format date + heure en ne gardant que la date

Bonjour,

J'aimerai faire l'inverse, c'est à dire en partant de la date, j'aimerai y ajouter une heure.

Je m'explique, dans la colonne B, j'ai mes dates,
Dans ma colonne A, j'ai des données (A,B,C,D...)

J'aimerai effectuer comme ci-dessous

Si A=1, alors B = date + 11:30:00
Si A=2, alors B = date + 12:00:00
etc...

J'ai repris le code du dessus, en essayant d'y ajouter l'heure.

Code: 
For Each c In Sheets("test").Range("A2:A" & Range("A" & Application.Rows.Count).End(xlUp).Row)
   
if Range("A" & c) = "1" then
    c.Value = Int(CDate(c))
    'c.NumberFormat = "dd/mm/yyyy" & "11:30:00"

if Range("A" & c) = "2" then
    c.Value = Int(CDate(c))
    'c.NumberFormat = "dd/mm/yyyy" & "12:00:00"

Next c

Cependant, ça ne marche pas... Auriez-vous une idée svp?

Merci d'avance ;-)
 
Vote positif 0 Vote négatif
Re : Macro permettant de changer un format date + heure en ne gardant que la date

Bonsour®
kalek93 à dit:
Bonjour,

J'aimerai faire l'inverse, c'est à dire en partant de la date, j'aimerai y ajouter une heure.

Je m'explique, dans la colonne B, j'ai mes dates,
Dans ma colonne A, j'ai des données (A,B,C,D...)

J'aimerai effectuer comme ci-dessous

Si A=1, alors B = date + 11:30:00
Si A=2, alors B = date + 12:00:00
etc...
Cliquez pour agrandir...

VB: 
For Each c In Sheets("test").Range("A2:A" & Range("A" & Application.Rows.Count).End(xlUp).Row)
   
  select case c.value
      case 1
            C.offset(0,1) = int(C.offset(0,1))+timevalue("11:30:00")  
      case 2
            c.offset(0,1) = int(C.offset(0,1))+timevalue("12:00:00") 
     ' case 3  '---------  adapter les lignes en commentaire selon besoin
      '     c.offset(0,1) = int(C.offset(0,1))+timevalue("14:30:00") 
      ' case ?
      '     c.offset(0,1) = int(C.offset(0,1))+timevalue("?h:?m:?s") 

      case else
            '----------
  end select 
next
 
Vote positif 0 Vote négatif
Re : Macro permettant de changer un format date + heure en ne gardant que la date

Bonjour à tous,

Peux-tu essayer avec :

VB: 
For Each c In Feuil1.Range("A2:A" & Range("A" & Application.Rows.Count).End(xlUp).Row)
If c = 1 Then c.Offset(, 1) = c.Offset(, 1).Value & " 11:30:00"
If c = 2 Then c.Offset(, 1) = c.Offset(, 1).Value & " 12:00:00"
Next c

A+ à tous

Edition : Oups... Bonjour Geedee
 
Vote positif 0 Vote négatif
Re : Macro permettant de changer un format date + heure en ne gardant que la date

Bonjour à tous,

VB: 
For Each c In Feuil1.Range("H2:H" & Range("H" & Application.Rows.Count).End(xlUp).Row)
If c = 1 Then c.Offset(, 4) = c.Offset(, 4).Value & " 11:30:00"
If c = 2 Then c.Offset(, 4) = c.Offset(, 4).Value & " 12:00:00"
Next c

Décalage de 0 ligne et 1 colonne

A+ à tous
 
Vote positif 0 Vote négatif
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

U
  • Question Question
Autres [RÉSOLU] Compléter la macro mais comment et où?
Réponses
2
Affichages
241
un internaute
U
ph.vanne
  • Question Question
Autres fenêtre "Publication"
Réponses
10
Affichages
547
ph.vanne
ph.vanne
V
  • Question Question
XL 2016 transformer en boucle une macro créer avec l'enregistreur automatique
Réponses
3
Affichages
104
vazvaz
V
D
  • Question Question
XL 2016 VBA format date
2
Réponses
17
Affichages
2 K
vgendron
vgendron
S
  • Question Question
Microsoft 365 créer un macro vba
Réponses
0
Affichages
460
souhaib ad
S
C
  • Question Question
XL 2021 Positionnement sur une cellule en fonction de la date, du jour et de l'heure
Réponses
2
Affichages
482
clausen
C
S
  • Résolu(e)
Autres ActiveWorkbook.Worksheets("vierge").AutoFilter.Sort.SortFields.Clear
2
Réponses
23
Affichages
2 K
AtTheOne
AtTheOne
V
  • Résolu(e)
XL 2016 Exportation au format PDF à l'aide d'une macro : erreur 1004 'Document non enregistré'
Réponses
14
Affichages
1 K
Phil69970
Phil69970
V
  • Résolu(e)
XL 2016 Facturier : Retour à la ligne sur la facture
2
Réponses
19
Affichages
1 K
Vermithor
V
L
  • Question Question
Microsoft 365 Faire agir une macro en fonction de l'emplacement du bouton
Réponses
2
Affichages
446
AtTheOne
AtTheOne
Chasse
  • Question Question
Microsoft 365 Copier et coller formes sans changer de feuille
Réponses
2
Affichages
614
Chasse
Chasse
K
  • Résolu(e)
Microsoft 365 Ouvrir un autre classeur excel (VBA) pour utiliser les données de celui dans le classeur actif
Réponses
5
Affichages
1 K
Dranreb
Dranreb
L
  • Résolu(e)
Microsoft 365 Pb de valeur de variable entre Sub
Réponses
5
Affichages
600
loreak
L
A
  • Résolu(e)
XL 2016 Autofill Destination sur colonne adjacente
Réponses
3
Affichages
533
Aldonanou
A
U
  • Question Question
Autres Enregistrer sur Onglet TOTO
Réponses
2
Affichages
577
un internaute
U
U
  • Résolu(e)
Autres Mettre en couleur ligne avec VBA car MFC occupées (Excel 2003)
2
Réponses
15
Affichages
2 K
un internaute
U
F
  • Question Question
Microsoft 365 Copier un dossier et son contenu puis y enregistrer un classeur. Renommer chaque élément selon des valeurs de cellules
Réponses
1
Affichages
767
Zon
Z
L
  • Question Question
XL 2016 Macro et suppressions de lignes
Réponses
9
Affichages
874
fanfan38
fanfan38
Ferbank
  • Question Question
XL 2019 modifier une macro
Réponses
2
Affichages
1 K
Ferbank
Ferbank
K
  • Résolu(e)
XL 2019 Copier Seulement les lignes affichée après un filtre de tableau
Réponses
9
Affichages
2 K
Kushi
K
Retour