Discussion :

[clemou]

Bonjour à tous,

Je suis entrain de développer une application qui (en gros) sort des tableaux de bords, en fonction des cases cocher dans plusieurs formulaires.

Mon problème est au niveau d'une variable (Nomenclature) que je déclare en caractère. Cette variable permet de répertorier les cases nomenclatures qui ont été cochées dans le formulaire.

ex: si l'utilisateur coche Sphère économique et Activités économiques, la variable Nomenclature est égale à "Sphère économique", "Activité économique". Dans mon code :Nomenclature = " ""Sphère économique"", "" Activité économique"" "

Jusque là, lorsque je fais un msgbox, c'est écrit correctement.

Ensuite cette variable Nomenclature me sert à créer des tableaux croisés dynamiques. Voilà mon code:

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
 
Sheets("Resultat").Activate
 
'récup Nomenclature
Call choix_code_naf
 
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
 [Intermediaire!A1].CurrentRegion.Address(, , xlR1C1, True)).CreatePivotTable _
TableDestination:="Resultat!R3C1", _
TableName:="Premier test"
 
ActiveSheet.PivotTables("Premier test").AddFields RowFields:= _
Array(Nomenclature), ColumnFields:="annee"
 
If selection_base.nb_etablissement.Value = True Then
    With ActiveSheet.PivotTables("Premier test").PivotFields( _
          "Etablissements secteur privé")
          .Orientation = xlDataField
          .Position = 1
    End With
End If
 
ActiveWorkbook.ShowPivotTableFieldList = True
ActiveWorkbook.ShowPivotTableFieldList = False
Application.CommandBars("PivotTable").Visible = False
 
With ActiveSheet.PivotTables("Premier test").DataPivotField
    .Orientation = xlColumnField
    .Position = 1
End With
 
End Sub

J'ai une erreur sur la ligne où la variable Nomenclature est écrite...
lorsque que je fais du pas à pas, Nomenclature = "" Sphère économique", " Activité économique"", alors qu'il faudrait qu'elle s'affiche comme çà : "Sphère économique", "Activité économique"

Voilà! j'espère avoir été claire!

Merci d'avance pour vos réponses

[pgz]

Bonjour.

Je crois que ce que tu essaies de faire n'est pas possible. La fonction Array attend une liste d'arguments séparés par des virgules. Quand tu écris Array(Nomenclature), tu n'as qu'un argument, même si c'est du texte contenant des virgules.
Ainsi

Code :

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

v = Array("""A"",""B""", "B,A")

renvoie un tableau de 2 lignes, et pas 3, contenant
"A","B"
B,A

Pourquoi ne pas faire d'entrée de Nomenclature un tableau? Par exemple

Code :

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

1
2
3
Dim Nomenclature as variant
 
Nomenclature = Array("Sphère économoque","...", "...")

Et Nomenclature est alors utilisable comme tableau.

PGZ

[Krovax]

pour les guillemet utilise chr(34) (chr permet de donner le numéro corespondant dans la table ascii

Tu tape donc

Code :

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

chr(34) & "ton texte" & chr(34)

et tu obtient bien "ton texte"

au passage la table ascii te permet de gérer quasiment tou les caractère un peu spéciaux y compris les passage à la ligne ou autres

[clemou]

çà n'a pas l'air de marcher...

En faite je cherchais une solution pour automatiser mes tableaux croisés dynamiques car j'ai plusieurs Nomenclatures, qui peuvent s'imbriquer, et çà m'éviterais donc d'écrire des conditions, qui existe déjà dans le programme "choix_code_naf"

[clemou]

Ah c'est bon j'avais mal écrit!

En déclarant tout de suite Nomenclature en tableau c'est Nikel!!

Merci beaucoup, je vais pouvoir avancer!!!!!!