mise en forme de donnée

[Ronan]

Bonjour a tous,

j'ai ceci :

For Each element In test 
        msg = msg & element & ',' 
       Next element

element est une varaible par exemple : moi , toi ou lui

Je souhaite les regrouper et former 'moi','toi','lui' mais je n'arrive pas a insérer les deux '.

Comment faire ?

Merci de votre aide!

 

[2passage]

Bonjour,

une façon simple d'insérer les guillements dans une chaine :

Chaine2 = Chr(34) & Chaine1 & Chr(34)

sinon c 'est en doublant les guillements :

Chaine2 = '''' & Chaine1 & ''''

A+

Message édité par: 2passage, à: 20/07/2005 10:02

 

[Ronan]

Merci ca marche tres bien!!

En fait c'etait pour faire une mise en forme pour incorporer ca dans une macro qui réalise un graphique.

Maintenant j'ai donc ca par exemple
p = 'moi', 'toi', 'lui'

Le probleme c'est que je ne peux pas incorporer ca dans la macro.
Voici la ligne corespondante

ActiveSheet.PivotTables('Tableau croisé dynamique1').AddFields RowFields:= _
        ' MOIS', ColumnFields:=[color=#FF0000][b]Array[/b][/color](p), PageFields _
        :=[color=#FF0000][b]Array[/b][/color](m)

A mon avis c'est le Array qui fait bugger !!

Comment pourrais m'y prendre !!!

Jai besoin de votre aide
Merci!!

 

[2passage]

bonjour,

euh... comment dire... pas super clair, là, non ? ... c'est moi, où vu de dehors ça semble un peu surréaliste ce que tu dis....

Tu aurais un petit fichier d'exemple ?

 

[Ronan]

Oui c'est pas super clair en effet !

Alors en fait je dois créer une graphique automatiquement. Un autre programme (en PHP) met en place les données. Le probleme c'est que ces données changent tous le temps !

Donc par exemple dans mon graphique en champs de page je peux avoir par exemple 'moi', 'lui' et en chps de colonne avoir 'toi'. Mais ca peut aussi etre 'nous' en fait l'intitulé des noms changent.

Je les récupére donc. Le probleme qd il y a plusieurs données dans le meme champs on doit utiliser un array :

ActiveSheet.PivotTables('Tableau croisé dynamique1').AddFields RowFields:= _
' ' MOIS', ColumnFields:=Array('toi', ' lui'), PageFields _
' :=Array('eux', 'nous')

Donc je dois adapter cette array et le mettre sous une forme pour que le tableau ainsi créeer puisse se mettre dans l'array. Comme ceci par exemple :

ActiveSheet.PivotTables('Tableau croisé dynamique1').AddFields RowFields:= _
' ' MOIS', ColumnFields:=Array(tablo1), PageFields _
' :=Array(tablo2)

Les données sont récupéres! c'est la mise en forme qui est difficile.
un array est de la forme ('donne1', 'donne2')

 

[Ronan]

En gros je veux construire ca

Dim msg1(2)
'msg1 = Array(' CSC', ' TYPE')


J'ai essayé ca mais ca marche pas :

For ind2 = 0 To I - 1
ReDim Preserve tablo(ind2)
temp = Range('B1').Offset(0, ind2)
tablo(ind2) = '''' & temp & ''''
Next

Ainsi je pourrais mettre comme ca dans la macro :

ActiveSheet.PivotTables('Tableau croisé dynamique1').AddFields RowFields:= _
' MOIS', ColumnFields:=Array('moi','toi'), PageFields:=Array(tablo)

 

[Ronan]

J'ai fait une petite erreur, je recommence

En gros je veux construire ca

Dim tablo()
'tablo = Array('vous', 'nous')


J'ai essayé ca mais ca marche pas :

For ind2 = 0 To I - 1
ReDim Preserve tablo(ind2)
temp = Range('B1').Offset(0, ind2)
tablo(ind2) = '''' & temp & ''''
Next

Ainsi je pourrais mettre comme ca dans la macro :

ActiveSheet.PivotTables('Tableau croisé dynamique1').AddFields RowFields:= _
' MOIS', ColumnFields:=Array('moi','toi'), PageFields:=Array(tablo)