tableau dynamique ,requête sous excel en vbaRésolu

Question

bonjour, je suis d&#233;butant avec VB et je dois cr&#233;er un tableau qui s'affiche selon
une requ&#234;te et tout &#231;a sous excel.
Le nombre de colonnes est fixe mais le nombre des lignes &#233;volu en fonction de 
la requ&#234;te. 
De plus, je dois cr&#233;er une requ&#234;te qui d&#233;pend d'un tableau excel (base de 
donn&#233;e)qui se trouve sur le m&#234;me classeur excel.
Je n'arrive &#224; rien, si vous pouviez m'aider, je ne vous remercirai jamais assez. 
(si je n'ai pas &#233;t&#233; suffisament clair, faite le moi savoir, merci!)
merci d'avance, Cedric.

cs_CanisLupus · Accepted Answer

Mince, le code !

Sub Liste_Exemple()
Dim db_Exemple As Database
Dim rs_Exemple As Recordset
Dim rq_Sql As String
Dim nb_Lignes As Long
Dim Nom_Feuille As String
Dim i As Integer
Dim l As Long


    ' NOM DE LA FEUILLE
    Nom_Feuille = InputBox("Entrez le nom de la feuille &#224; cr&#233;er.")
    
    If Trim(Nom_Feuille) = "" Then Exit Sub
    
    For i = 1 To Sheets.Count
    
        If Sheets(i).Name = Nom_Feuille Then
            MsgBox "Cette feuille existe d&#233;j&#224; !", vbExclamation, "ERREUR"
            Nom_Feuille = InputBox("Entrez le nom de la feuille &#224; cr&#233;er.")
            i = 0
        End If
    
    Next
    
    ' OUVERTURE DE LA BASE DISTANTE
    Set db_Exemple = opendatabase("MaBase.mdb", False, False, ";PWD=truc")
    
    ' REQUETE D'EXTRACTION DES DONNEES
    rq_Sql = "SELECT PREDET.NOM_BENEF, PREDET.MONTANT_NUM, PREDET.LIBELLE, PREDET.REFERENCE"
    rq_Sql = rq_Sql & " FROM PREDET"
    rq_Sql = rq_Sql & " ORDER BY PREDET.NOM_BENEF"
    
    Set rs_Exemple = db_Exemple.openrecordset(rq_Sql, dbopensnapshot)
    
    ' COMPTAGE DU NOMBRE D'ENREGISTREMENTS
    rs_Exemple.MoveLast
    nb_Lignes = rs_Exemple.RecordCount
    rs_Exemple.MoveFirst
    
    ' CREATION DE LA FEUILLE RECEPTRICE
    Sheets(1).Select
    Sheets.Add
    Sheets(1).Name = Nom_Feuille
    
    ' ECRITURE DES NOMS DE COLONNES
    Cells(1, 1).Value = "BENEFICIAIRE"
    Cells(1, 2).Value = "MONTANT"
    Cells(1, 3).Value = "LIBELLE"
    Cells(1, 4).Value = "REFERENCE"
    
    ' NOMS DE COLONNES EN GRAS
    Range("A1:D1").Select
    Selection.Font.Bold = True
    
    ' REMPLISSAGE DE LA FEUILLE
    For l = 2 To nb_Lignes + 1
        Cells(l, 1).Value = rs_Exemple.Fields("NOM_BENEF")
        Cells(l, 2).Value = rs_Exemple.Fields("MONTANT_NUM")
        Cells(l, 3).Value = rs_Exemple.Fields("LIBELLE")
        Cells(l, 4).Value = rs_Exemple.Fields("REFERENCE")
        rs_Exemple.MoveNext
    Next
        
    ' FORMAT LARGEUR DE COLONNES
    Columns("A:D").Select
    Selection.Columns.AutoFit
    
    ' FORMAT DES NOMBRES
    Columns("B:B").Select
    Selection.NumberFormat = "#,##0.00"
    
    ' DEPLACEMENT DE LA FEUILLE A LA FIN DU CLASSEUR
    Sheets(1).Move After:=Sheets(Sheets.Count)
    
    ' SELECTION DE LA 1ERE CELLULE POUR FAIRE PROPRE
    Cells(1, 1).Select
    
End Sub

Cordialement, CanisLupus

cs_CanisLupus · Answer

Salut,

Visiblement, c'est de VBA (VB for Application) et non de VB (6 ou .NET) dont tu parles. Il y a quelques diff&#233;rences.

J'aimerais savoir de quoi tu pars, tu pilote Excel &#224; partir de VB6 (ou VB.NET) ou tu fais tout &#224; partir d'Excel ?

D'autre part, qu'appelles tu requ&#234;te ? du SQL ? .... ?

Si ce n'est que du Excel, il y a des fonctions Excel pr&#233;d&#233;finies (RechercheH et RechercheV entre autres qui peuvent te donner  des r&#233;ponses.

Cordialement, CanisLupus

sobeit1 · Answer

salut CanisLupus,
Il s'agit bien de VBA, et je fais tout &#224; partir d'excel.

La requ&#234;te se fait sous vba mais il s'agit bien de SQL ( DoCmd.RunSQL "select ...") mais je n'arrive pas &#224; afficher les r&#233;sultats.

Par contre, l'utilisation de rechercheH et rechercheV est un peu flou pour moi, en effet, rechercheH(valeur_cherch&#233;e, table_matrice,no_index_lig,valeur proche) je ne sais pas quoi mettre pour remplacer tout ce qui est soulign&#233; et idem pour rechercheV.

Si tu peux me donner un coup de main, merci.
Merci d'avance, cordialement, C&#233;dric.

cs_CanisLupus · Answer

Oublie le RechercheV et RechercheH, je pense que c'est inadapt&#233; &#224; ton prob. Par contre, j'ai retrouv&#233; une macro que j'avais &#233;crite pour pr&#233;senter des donn&#233;es d'une base Access dans un tableau Excel.
Tu peux peut-&#234;tre t'en inspirer ?

Cordialement, CanisLupus

sobeit1 · Answer

Bien, je vais essay&#233; &#231;a, je te tiens au courant si &#231;a marche.
Merci mille fois, tu me sauves peut-&#234;tre la vie, merci.
@+ C&#233;dric

sobeit1 · Answer

Ton code marche impeccablement bien, merci.
 Mais j'essai de mettre une variable dans range pour utiliser un IF et une boucle....
C'est pas &#233;vident &#224; expliquer peut-&#234;tre qu'avec le code que j'ai commenc&#233;, tu comprendras mieux. Voici le code :

Dim i As Integer
Dim g As String


Sheets("feuil1").Select
For i = 1 To Sheets.Count
g = F + i
    If Me.TextBox1 = Range("F+i") Then
        Rows("i:i").Select
        Selection.Copy
        Sheets("feuil2").Select
        Rows("i:i").Select
        ActiveSheet.Paste
    End If
Next i

Merci d'avance. C&#233;dric

cs_CanisLupus · Answer

Salut

Regarde tes lignes : 
g = F + i

If Me.TextBox1 = Range("F+i") Then.....
Tu vois le probl&#232;me ?

Il faudrait plut&#244;t coder soit :
If Me.TextBox1 = Range("F" & i) Then...
soit :
g = "F" & i
If Me.TextBox1 = Range(g) Then...

Bonne prog

Cordialement, CanisLupus

sobeit1 · Answer

Merci beaucoup, tu m'as vraiment bien aid&#233;.
    
Merci encore d'aider les d&#233;butants dans mon genre,
amicalement, C&#233;dric

Tableau dynamique ,requête sous excel en vba

8 réponses

Discussions similaires