E
ERIC DUMONTET
Guest
<HTML>Bonjour,
Je continue ma macro concernant les produtis vendus par des commerciaux
mais malédiction la 1ère colonne (champ) correspond à une date.
Cette date quand je la rentre en automatique (par InputBox) j'ai de sacrés ratés en effet en entrant par exemple 12/10 je me retrouve avec 10 déc etc.. alors qu'en entrant cette date en directe (sans macro) j'ai bien 12 oct ??.
1/ Comment peut-on donner un format date à un InputBox (en dehors du format cellule (s'il s'agit bien de cela)
Quand je lance ensuite un filtrage Personnalisé pour extraire les ventes entre 2 dates evidemment la restitution est incohérente
2/ Y'a t-il un moyen autre pour obtenir des restitutions pertinente:
voici ma macro de saisie (1)
SAISIE:
Do Until ActiveCell = ""
If ActiveCell <> "" Then
ActiveCell.Offset(1, 0).Range("A1").Select
End If
Loop
'MACRO Date
Selection.NumberFormat = "jj.mmm"
Mdir = InputBox("SAISISSEZ VOTRE DATE : (sous la forme JJ.MM.AA ....c'est impératif)", "CATOR")
ActiveCell.FormulaR1C1 = Mdir
If ActiveCell = "" Then
GoTo FIN:
Else
.........ET VOICI ma macro de FILTRAGE :
Sub GLOB_DATE()
On Error Resume Next
Dim ValeurCherchee
Dim Resultat
Sheets("FICHE SAISIE").Select
ValeurCherchee = InputBox("Indiquer le début de période ", "CATOR", "jj.mm.aa")
Selection.NumberFormat = "d-mmm-yy"
Resultat = InputBox("Indiquer la fin de période ", "CATOR", "jj.mm.aa")
Selection.NumberFormat = "d-mmm-yy"
Selection.AutoFilter Field:=1, Criteria1:=">" & ValeurCherchee, Operator:=xlAnd, _
Criteria2:="<" & Resultat
End Sub
Merci d'avance pour proposition</HTML>
Je continue ma macro concernant les produtis vendus par des commerciaux
mais malédiction la 1ère colonne (champ) correspond à une date.
Cette date quand je la rentre en automatique (par InputBox) j'ai de sacrés ratés en effet en entrant par exemple 12/10 je me retrouve avec 10 déc etc.. alors qu'en entrant cette date en directe (sans macro) j'ai bien 12 oct ??.
1/ Comment peut-on donner un format date à un InputBox (en dehors du format cellule (s'il s'agit bien de cela)
Quand je lance ensuite un filtrage Personnalisé pour extraire les ventes entre 2 dates evidemment la restitution est incohérente
2/ Y'a t-il un moyen autre pour obtenir des restitutions pertinente:
voici ma macro de saisie (1)
SAISIE:
Do Until ActiveCell = ""
If ActiveCell <> "" Then
ActiveCell.Offset(1, 0).Range("A1").Select
End If
Loop
'MACRO Date
Selection.NumberFormat = "jj.mmm"
Mdir = InputBox("SAISISSEZ VOTRE DATE : (sous la forme JJ.MM.AA ....c'est impératif)", "CATOR")
ActiveCell.FormulaR1C1 = Mdir
If ActiveCell = "" Then
GoTo FIN:
Else
.........ET VOICI ma macro de FILTRAGE :
Sub GLOB_DATE()
On Error Resume Next
Dim ValeurCherchee
Dim Resultat
Sheets("FICHE SAISIE").Select
ValeurCherchee = InputBox("Indiquer le début de période ", "CATOR", "jj.mm.aa")
Selection.NumberFormat = "d-mmm-yy"
Resultat = InputBox("Indiquer la fin de période ", "CATOR", "jj.mm.aa")
Selection.NumberFormat = "d-mmm-yy"
Selection.AutoFilter Field:=1, Criteria1:=">" & ValeurCherchee, Operator:=xlAnd, _
Criteria2:="<" & Resultat
End Sub
Merci d'avance pour proposition</HTML>
