Discussion :

[larsenacb]

Bonsoir,

Je viens solliciter votre aide pour mon problème de novice :

Sur une Bdd test j'essaye de faire fonctionner une concaténation de champs, j'ai réussi a trouvé un code vba >ici qui permet cette manip via une requête que j'ai adapté a ma table test ... En vain ... :

Erreur de compilation. dans l'expression ConcatColonne([Projet],"Projet","NomParticipant","Tbl_Projet","",False,Null,","


Aprés de longue a heure étudier le code je ne trouve pas la solution... et un peu d'aide me permettrai d'avancer sur mon projet !

Est-il possible d’inséré un P.J ma Bdd ?

Merci

[Jean-Philippe André]

SAlut,

pourquoi mettre ton premier Projet entre crochets ?
regarde le contenu du VBA, on attendu plutot une chaine de caracteres

[larsenacb]

Salut Jean Philipe André,

Merci pour votre soutien ,j'ai essayé sans les crochets ,méme Erreur, je n'ai pas eu encore de Déclic VBA ...

je n'arrive pas a comprendre dans l'explication du VBA: "vValeurPivot :valeur de la colonne pivot"

j'aurai tendance à me dire que la vValeurpivot est celle qui est renseignée dans le Champ "Projet" de ma table Tbl_Projet donc une chaine de caractères variables .

Voici le code que j'utilise

SQL

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
SELECT [Projet], ConcatColonne(Projet,"Projet","NomParticipant","Tbl_Projet","",False,Null,",")
FROM Tbl_Projet
GROUP BY [Projet];

VBA

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
Option Compare Database
Public Function ConcatColonne(ByVal Projet As Variant,
                              ByVal Projet As String, _
                              ByVal NomParticipant As String, _
                              ByVal Tbl_projet As String, _
                              ByVal sWhere As String, _
                              ByVal bGroupBy As Boolean, _
                              ByVal vIsOrderAsc As Variant, _
                              ByVal sSeparateur As String) As String
 
   On Error GoTo errtag
   Dim odb As DAO.Database
   Dim ors As DAO.Recordset
   Dim sSql As String
   If Not IsNull(vProjet) Then
      'Préparation de la requête
      sSql = "SELECT " & NomParticipant & " & """ & sSeparateur & """ As C FROM " & _
             Tbl_projet & " WHERE " & Projet & "="
      Select Case VarType(Projet)
      Case vbString
         sSql = sSql & """" & vProjet & """"
      Case vbDate
         sSql = sSql & Format(Projet, "\#m-d-yyyy h:n:s\#")
      Case Else 'Numériques
         sSql = sSql & Replace(Projet, ",", ".")
      End Select
      If Len(sWhere) Then sSql = sSql & " And " & sWhere
      If bGroupBy Then sSql = sSql & " GROUP BY " & NomParticipant
      If IsNumeric(vIsOrderAsc) Then
         sSql = sSql & " ORDER BY " & NomParticipant
         If vIsOrderAsc = 0 Then sSql = sSql & " DESC"
      End If
      'Lance la requête et concatène la colonne
      Set odb = CurrentDb
      Set ors = odb.OpenRecordset(sSql, dbOpenForwardOnly)
      While Not ors.EOF
         ConcatColonne = ConcatColonne & ors(0)
         ors.MoveNext
      Wend
      ConcatColonne = Left$(ConcatColonne, Len(ConcatColonne) - Len(sSeparateur))
   End If
fin:
   Set ors = Nothing
   Set odb = Nothing
   Exit Function
errtag:
   ConcatColonne = "Erreur !"
   Resume fin
End Function

Suis je loin de la réponse ?

[Jean-Philippe André]

Il n'est pas possible de nommer deux parametres de la meme facon, donc

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Public Function ConcatColonne(ByVal Projet As Variant,
                              ByVal Projet As String, _

ne peut etre correct.

[larsenacb]

Bonsoir,

Bon ...je croit bien que je m'initie au code avec du gros ...
Je nage
je me permet de mettre ma bdd en piéce jointe pour que vous ayez un aperçu pour m'aiguiller d'avantage, si ce n'est trop demandé

Concaténation Bddtest - Copie.rar

Merci

[tee_grandbois]

Bonsoir,
ce n'était pas loin pour que çà fonctionne :
1) il manquait juste un _ après : vProjet As Variant,
2) il y avait 2 fois Option Compare Database
3) j'ai ajouté : Option Explicit pour éviter des erreurs de déclaration de variables

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Option Explicit
Option Compare Database
Public Function ConcatColonne(ByVal vProjet As Variant, _
                              ByVal Projet As String, _
                              ByVal NomParticipant As String, _
                              ByVal Tbl_projet As String, _
                              ByVal sWhere As String, _
                              ByVal bGroupBy As Boolean, _
                              ByVal vIsOrderAsc As Variant, _
                              ByVal sSeparateur As String) As String

Concaténation Bddtest - Copie.rar

[larsenacb]

Merveilleux ,merci beaucoup, j'y voit plus claire désormais .

Il me reste plus qu'a l'adapté a ma Bdd .

Bonne journnée !!