Répondre à la discussion
Affichage des résultats 1 à 1 sur 1

VBA - problème avec les dates dans les filtres automatiques



  1. #1
    xav0211

    Question VBA - problème avec les dates dans les filtres automatiques


    ------

    Salut à tous! Voilà je suis en stage pr mes études et il m'a été demandé de faire un programme VBA pr piloter excel. En fait, il faut que je traite les valeurs d'un fichier excel de la forme :
    - colonne A : date de la mesure au format jj/mm/aaaa
    - colonne B : heure de la mesure au format hh/mm/ss
    - colonne C : mesure au format standard
    en plus faut ke j'ai fini d'ici deux semaines... je suis mal!

    il faut modéliser les valeurs pr des intervalles choisis par l'utilisateur, dc j'ai choisi de faire une boite de dialogue pr entrer les choix de l'utilisateur en mémoire, et après faire un filtre automatique... mais rien ne marche et je comprends rien!!!!
    ca me tri rien... et en plus y a des pb de compatibilité jj/mm/aaaa et mm/jj/aaaa avec VBA...

    voilà le programme ke j'ai fait,



    Dim c1 As Date
    Dim c2 As Date

    Private Sub CommandButton1_Click()


    TextBox1.Value = Format(TextBox1.Value, "dd/mm/yyyy")
    TextBox2.Value = Format(TextBox2.Value, "dd/mm/yyyy")


    If UserForm1.TextBox1.Text = "" Then
    MsgBox "Vous n'avez rien saisi," & Chr(10) & "recommencez!"
    Exit Sub

    Else
    TextBox1.Value = Format(TextBox1.Value, "dd/mm/yyyy")
    Range("E1").Value = TextBox1.Value
    ActiveCell.Offset(1, 0).Select
    End If

    If UserForm1.TextBox2.Text = "" Then
    MsgBox "Vous n'avez rien saisi," & Chr(10) & "recommencez!"
    Exit Sub

    Else
    TextBox2.Value = Format(TextBox2.Value, "dd/mm/yyyy")
    Range("E2").Value = TextBox2.Value
    ActiveCell.Offset(1, 0).Select
    End If

    Range("E1") = Format(Range("E1").Value, "dd/mm/yyyy")
    Range("E2") = Format(Range("E2").Value, "dd/mm/yyyy")

    c1 = Format(Range("E1").Value, "dd/mm/yyyy")
    c2 = Format(Range("E2").Value, "dd/mm/yyyy")

    Range("A:C").AutoFilter field:=1, Criteria1:=">=" & c1, Operator:=xlAnd, Criteria2:="<=" & c2
    Sheets("Feuil1").AutoFilter.Ra nge.Copy Sheets("Feuil2").Range("A1:C1" )

    Sheets("Feuil2").Range("1:1"). Delete Shift:=xlShiftToLeft
    Sheets("Feuil2").Columns("A"). Delete Shift:=xlShiftToLeft


    'Graphique
    'Sheets("feuil2").Range("A1"). EntireColumn.SpecialCells(xlCe llTypeConstants).Select
    'Sheets("feuil2").Range("B1"). EntireColumn.SpecialCells(xlCe llTypeConstants).Select

    'Dim objChart As Chart, objRange As Range

    ' Set objRange = Worksheets("Feuil2").Range(Ran ge("A1").EntireColumn.SpecialC ells(xlCellTypeConstants), Worksheets("Feuil2").Range("B1 ").EntireColumn.SpecialCells(x lCellTypeConstants))
    ' Set objChart = ThisWorkbook.Charts.Add
    'objChart.ChartType = xlLine
    ' objChart.SetSourceData objRange, xlColumns

    Unload Me

    End Sub



    Merci d'avance pour votre aide
    j'espère que vous trouverez une solution à mon pb.... ++

    -----

  2. 📣 Nouveau projet éditorial de Futura
    🔥🧠 Le Mag Futura est lancé, découvrez notre 1er magazine papier

    Une belle revue de plus de 200 pages et 4 dossiers scientifiques pour tout comprendre à la science qui fera le futur. Nous avons besoin de vous 🙏 pour nous aider à le lancer...

    👉 Je découvre le projet

    Quatre questions à explorer en 2022 :
    → Quels mystères nous cache encore la Lune 🌙 ?
    → Pourra-t-on bientôt tout guérir grâce aux gènes 👩‍⚕️?
    → Comment nourrir le monde sans le détruire 🌍 ?
    → L’intelligence artificielle peut-elle devenir vraiment intelligente 🤖 ?

Discussions similaires

  1. pb avec calcul sur les filtres
    Par billy67170 dans le forum Électronique
    Réponses: 1
    Dernier message: 03/11/2007, 10h06
  2. les dates pour les TIPE
    Par Droledenom dans le forum TPE / TIPE et autres travaux
    Réponses: 2
    Dernier message: 05/07/2006, 14h10
  3. Restriction dans les filtres d'un signal ?
    Par jepoirrier dans le forum Électronique
    Réponses: 0
    Dernier message: 19/04/2005, 14h24
  4. [VBA] Pb de modélisation graphique - Echelles automatiques
    Par xav0211 dans le forum Logiciel - Software - Open Source
    Réponses: 1
    Dernier message: 21/01/2005, 16h26
Découvrez nos comparatifs produits sur l'informatique et les technologies.