IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBA Access Discussion :

Récupérer valeur tableau crée par vba


Sujet :

VBA Access

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Profil pro
    Inscrit en
    Septembre 2005
    Messages
    38
    Détails du profil
    Informations personnelles :
    Localisation : Canada

    Informations forums :
    Inscription : Septembre 2005
    Messages : 38
    Par défaut Récupérer valeur tableau crée par vba
    Bonjour,

    ma question est la suivante:
    je crée et rempli un tableau en vba avec pour l'entête de ligne , la date et l'entète de colonne un numéro, ce que j voudrais c'est qu'en cliquant sur une des cases à l'intérieur de mon tableau , je puisse récupérer la valeur de la cellule, l'entête de ligne et l'entête de colonne et ensuite lancé une requete paramétrée, donc déjà comment faire pour récupérer les valeurs qui me serviront de paramètre et les stockés dans des variables, merci
    Pur votre aide

  2. #2
    Membre éprouvé
    Profil pro
    Inscrit en
    Mars 2009
    Messages
    85
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mars 2009
    Messages : 85
    Par défaut
    Bonjour

    En lisant ce que tu dis j'ai l'impression que tu confonds une feuille Excel avec une table Access, ce qui est différent.

    De plus il n'y a pas d'évènements sur une table, il faut passer par un formulaire.

    PeyePo

  3. #3
    Membre averti
    Profil pro
    Inscrit en
    Septembre 2005
    Messages
    38
    Détails du profil
    Informations personnelles :
    Localisation : Canada

    Informations forums :
    Inscription : Septembre 2005
    Messages : 38
    Par défaut
    Hello, non si tu veux j'ai construuit un tableau, enfin une sorte de tableau en vba sous access, en premier lieu je remplis la colonne date ne fonction du mois choisis et de l'année choisie et ensuite je remplis mon "tableau" en scannant la table mais je voulais reprendre par la suite un des enregistrements en cliquant sur ce pseudo tableau, faire cela par le biais d'un formulaire, dis-tu?.......comment faire, car less colonnes d'un mois à l'autre ne sont pas toujours les mêmes, exemple je pourrais très bien avoir le mois de janvier les colonnes nommées "Date", "1", "9", "10" et le mois suivant les colonnes "Date", "1", "10", "11"
    merci pour ton aide

  4. #4
    Membre éprouvé
    Profil pro
    Inscrit en
    Mars 2009
    Messages
    85
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mars 2009
    Messages : 85
    Par défaut
    Bonjour

    Je n'ai toujours pas compris comment tu as fais ton tableau avec quel outil ?

  5. #5
    Membre averti
    Profil pro
    Inscrit en
    Septembre 2005
    Messages
    38
    Détails du profil
    Informations personnelles :
    Localisation : Canada

    Informations forums :
    Inscription : Septembre 2005
    Messages : 38
    Par défaut
    LO voici donc mon code VBA actuel
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
    53
    54
    55
    56
    57
    58
    59
    60
    61
    62
    63
    64
    65
    66
    67
    68
    69
    70
    71
    72
    73
    74
    75
    76
    77
    78
    79
    80
    81
    82
    83
    84
    85
    86
    87
    88
    89
    90
    91
    92
    93
    94
    95
    96
    97
    98
    99
    100
    101
    102
    103
    104
    105
    106
    107
    108
    109
    110
    111
    112
    113
    114
    115
    116
    117
    118
    119
    120
    121
    122
    123
    124
    125
    126
    127
    128
    129
    130
    131
    132
    133
    134
    135
    136
    137
    138
    139
    140
    141
    142
    143
    144
    145
    146
    147
    148
    149
    150
    151
    152
    153
    154
    155
    156
    Public Function CreeFichierProgramme(Mois As Integer, Annee As Integer)
     
     Dim db As Database
     Dim tblfich As recordset
     Dim rqtfich As recordset
     Dim datecourante As Date
     Dim MyIndex As Index
     
     Dim MyField As Field
     Dim Compte As Integer
     Dim num As String
     Dim Table As TableDef
     Dim EssaiRequete As QueryDef
     Dim essai As recordset
     Dim x As String
     
    Dim ra As Integer
     
     
     Compte = 10
     
     Set db = CurrentDb
     
     DoCmd.SetWarnings False
     DoCmd.RunMacro ("CreationListeTournee")
     DoCmd.SetWarnings True
     
    db.TableDefs.Delete ("PRG")
     
     Set Table = db.CreateTableDef("PRG")
     Set MyField = Table.CreateField("Date", dbDate)
     Table.Fields.Append MyField
     
     Set MyIndex = Table.CreateIndex("Dates")
     Set MyField = MyIndex.CreateField("Date")
     
     With MyIndex
     
     .Primary = True
     
      End With
     
      MyIndex.Fields.Append MyField
     
      Table.Indexes.Append MyIndex
     
     
     
    Set essai = db.OpenRecordset("ListeTournee", dbOpenTable)
     
     
     
     
     If Not essai.EOF Then
        essai.MoveFirst
     End If
     Do While Not essai.EOF
        x = essai!No_Tournee
        Set MyField = Table.CreateField(x, dbText)
        MyField.Size = 6
        Table.Fields.Append MyField
        essai.MoveNext
        Compte = Compte + 1
     Loop
     
     db.TableDefs.Append Table
     
     Set tblfich = db.OpenRecordset("PRG", dbOpenTable)
     
     '***Test si la table contient des enregistrements
     If Not tblfich.EOF Then
        tblfich.MoveFirst
     End If
     
     '***Efface chaque enregistrement de la table "Fichier Heure"
     Do While Not tblfich.EOF
        tblfich.Delete
        tblfich.MoveNext
     Loop
     datecourante = CVDate("01-" & Mois & "-" & Annee)
     
     '***Cree la colonne "date" du 1 à la fin du mois
     Do While Month(datecourante) = Mois
        tblfich.AddNew
        tblfich!Date = datecourante
        datecourante = DateAdd("d", 1, datecourante)
        tblfich.Update
     Loop
     Set rqtfich = db.OpenRecordset("Base_Fiche", dbOpenDynaset)
     tblfich.Index = "Dates"
     If Not rqtfich.EOF Then
        rqtfich.MoveFirst
     End If
     Do While Not rqtfich.EOF
        tblfich.Seek "=", rqtfich!Date  '***on pointe la date
        If Not tblfich.NoMatch Then
           tblfich.Edit
           Select Case rqtfich!No_Tournee  '***on select la tournée depuis 1
     
                Case 1 To 119, 300 To 399, 3000 To 3110
     
                    x = rqtfich!No_Tournee   '***on met ds la variable x le numéro de tournée
     
                    tblfich.Fields(x).Value = rqtfich!Nom_Raccourci '***on met dans le champ le nom de la personne
     
     
            End Select
           tblfich.Update
        End If
        rqtfich.MoveNext
        Compte = Compte + 1
     Loop
     
     tblfich.Close
     rqtfich.Close
     
     Set Table = Nothing
     Set MyField = Nothing
     Set MyIndex = Nothing
     
     essai.Close
     
     '*Renommer les colonnes
     
     
    Dim tb As TableDef
    Dim fd As Field
     
    Set db = CurrentDb
    Set tb = db.TableDefs("PRG")
     
    'Changement de la propriété nom du nouveau champ
     
    Set essai = db.OpenRecordset("ListeTournee", dbOpenTable)
     
     If Not essai.EOF Then
        essai.MoveFirst
     End If
     Do While Not essai.EOF
        x = essai!No_Tournee
        Set fd = tb.Fields(x)
        fd.Name = x & " " & "/" & " " & essai!Lettre_Tournee
        tb.Fields.Refresh
        essai.MoveNext
        Compte = Compte + 1
     Loop
     
     
    Set fd = Nothing
     
     
    'Changement de la propriété nom du nouveau champ
     
     
    db.Close
    End Function

Discussions similaires

  1. [MVVM] Récupérer valeur listbox générée par une BDD
    Par edwix dans le forum Windows Presentation Foundation
    Réponses: 4
    Dernier message: 16/11/2012, 11h59
  2. [XL-2007] Prb création de Tableau dynamique par VBA
    Par jean bapt' dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 11/09/2012, 10h24
  3. Je n'arrive pas à supprimer une Table créée par VBA
    Par ac264 dans le forum VBA Access
    Réponses: 2
    Dernier message: 01/02/2010, 10h55
  4. Récupérer valeur sans passer par le PAI
    Par michielo dans le forum SAP
    Réponses: 1
    Dernier message: 15/08/2009, 15h01
  5. Intégrer des macros sur des nouvelles feuilles crées par VBA
    Par arkorrigan dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 29/05/2008, 15h11

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo