Macro Vba - saisie de date
MisterVba
-
MisterVBA -
MisterVBA -
Bonsoir,
Je souhaiterai à l'aide d'une macro demander à l'utilisateur d'un fichier excel de saisir une date (mise en variable au format jj/mm/aaaa) dans une fenêtre du type Input box.
Puis Excel fais un tri de tableau en fonction de cette date variable.
Merci d'avance pour votre aide
Je souhaiterai à l'aide d'une macro demander à l'utilisateur d'un fichier excel de saisir une date (mise en variable au format jj/mm/aaaa) dans une fenêtre du type Input box.
Puis Excel fais un tri de tableau en fonction de cette date variable.
Merci d'avance pour votre aide
4 réponses
-
Bonsoir,
Ca fait tout de même beaucoup de questions !
Je pense qu'un des problèmes se situe dans la mise en forme date dans vba :
Range("A1") = DateSerial(Year(TextBox1), Month(TextBox1), Day(TextBox1))
Bon....? Adieu ! -
Je me suis mal exprimé:
La procédure que souhaite faire suivre à l'utilisateur est :
1. je clique sur un bouton (=> sur lequel j'ai affecté une macro)
2.Excel affiche une boite de dialogue, qui demande à l'utilisateur de saisir une date au format jj/mm/aaaa
3.la macro fait un filtre dans une feuille en fonction de la date saisie (prend toutes les dates après celle saisie par l'utilisateur, c'est à dire supérieur)
Merci d'avance pour votre aid -
Re,
Bien ce que je disais, "beaucoup de questions !" Y a-il un endroit particulier où tu n'arrives pas ou bien est-ce la total que tu demandes ? -
Voici mon code ou il ya un bug lorsqu'il filtre :
Sub Macro()
Dim Datemin As String
'********
Datemin = InputBox("Date de début (au format jj/mm/aaaa: ", "Filtre date", Date)
Selection.AutoFilter Field:=10, Criteria1:>Datemin, Operator:=xlAnd
End Sub
Merci pour votre aide
