Macro de sélection par plage horaire
Bonjour,
Je souhaiterais avoir quelques conseils concernant une macro qui me pose problème.
Dans le cadre de la mise en place d'un journal de reporting, il faut que je parvienne à mettre en place le tri d'un fichier .csv venant d'une base de donnée. Et que je le formates de telle façon que je puisse l'utiliser dans un fichier .xls qui contient le tableau de reporting à compléter.
Actuellement la macro que j'ai réussi à développer permet de prendre les données brut de la bdd suivante :
2015/05/12 18:52;5;16;60;
Et les transformer en ceci :
Macro utilisée :
Sub Formatage_mise_en_forme()
'
' Formatage_mise_en_forme Macro
'
'
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, _
Semicolon:=True, Comma:=False, Space:=True, Other:=False, FieldInfo:= _
Array(Array(1, 4), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1)), _
TrailingMinusNumbers:=True
Columns("B:B").Select
Selection.NumberFormat = "[$-F400]h:mm:ss AM/PM"
Columns("E:E").Select
Selection.NumberFormat = "#,##0.00 $"
End Sub
Sub tri_date()
'
' tri_date Macro
'
'
Columns("A:A").Select
ActiveWorkbook.Worksheets("donnees_bruts").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("donnees_bruts").Sort.SortFields.Add Key _
:=Range("A1"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("donnees_bruts").Sort
.SetRange Range("A1:A10")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
Et c'est ici que je bloque. Je souhaiterais sélectionner des heures en utilisant une règle de cette forme :
Heure comprise entre hh:mm et hh:mm (19h00 et 05h00)
Sélectionner hh:mm (23h46)
Copier, en partant de la première cellule, ligne entière dans la colonne "X" (colonne "G")
Auriez-vous des idées pour m'aider à y parvenir ? Je sèche depuis plusieurs heures sur ce problème...
Vous trouverez à l'adresse suivante https://www.cjoint.com/c/EDCssb7bBdv un exemple du document .csv que j'utilise pour tester mes macros.
Merci d'avance.
Bonsoir,
Aller je dépoussière un peu l'étagère...
@ bientôt
LouReeD
Merci à toi gmb !
C'est exactement ce que je voulais faire
Bonne continuation
bonjour,
comme quoi c'est utile de faire le ménage
après 10 jours sans réponses... le message se noie sous les autres !
@ bientôt
LouReeD