Date non validée après macro
mickysor
-
mickysor -
mickysor -
Bonjour,
j'ai une macro vba qui me reporte dans l'onglet "archivage" en fin de colonne une date située dans Range("macros!af3") sous ce format (jj/mm/aaa).jusque la tout marche très bien sauf que quand je veux filtrer cette date impossible! on dirait qu'elle n'est pas validée en tant que date et ne filtre rien!! alors j'ai créé une autre macro pour convertir la colonne en date et ca ne marche pas non plus!
Voici mes deux macros:
Dim lig8 As Long
With Sheets("archivage")
lig8 = .UsedRange.Rows.Count + 1
While .Cells(lig8 - 0, 1).Value = ""
lig8 = lig8 - 1
Wend
.Cells(lig8, 8).Value = Range("macros!af3")
End With
ma deuxième macro:
Sheets("archivage").Select
Columns("H:H").Select
Range("H35775").Activate
Columns("H:H").Select
Selection.TextToColumns Destination:=Range("H1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 3), TrailingMinusNumbers:=True
j'ai une macro vba qui me reporte dans l'onglet "archivage" en fin de colonne une date située dans Range("macros!af3") sous ce format (jj/mm/aaa).jusque la tout marche très bien sauf que quand je veux filtrer cette date impossible! on dirait qu'elle n'est pas validée en tant que date et ne filtre rien!! alors j'ai créé une autre macro pour convertir la colonne en date et ca ne marche pas non plus!
Voici mes deux macros:
Dim lig8 As Long
With Sheets("archivage")
lig8 = .UsedRange.Rows.Count + 1
While .Cells(lig8 - 0, 1).Value = ""
lig8 = lig8 - 1
Wend
.Cells(lig8, 8).Value = Range("macros!af3")
End With
ma deuxième macro:
Sheets("archivage").Select
Columns("H:H").Select
Range("H35775").Activate
Columns("H:H").Select
Selection.TextToColumns Destination:=Range("H1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 3), TrailingMinusNumbers:=True
A voir également:
- Date non validée après macro
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Jitbit macro recorder - Télécharger - Confidentialité
- Jm date avis - Forum Consommation & Internet
- Convertir chiffre en lettre excel sans macro ✓ - Forum Excel
avec macro ça ne marche pas!!
cette ligne
.Cells(lig8, 8).Value = Range("macros!af3"))
a été changée en
.Cells(lig8, 8).Value = CDate(Range("macros!af3"))
pour cette macro:
Dim lig8 As Long
With Sheets("archivage")
lig8 = .UsedRange.Rows.Count + 1
While .Cells(lig8 - 0, 1).Value = ""
lig8 = lig8 - 1
Wend
.Cells(lig8, 8).Value = CDate(Range("macros!af3"))
End With
Range("macros!af1") = Me.TextBox4.Value
Range("macros!ag1") = Me.TextBox1.Value
Sheets("archivage").Select
Range("a1").Select