[VBA-E] Construction d'un tableau EXCEL avec VBA

Version imprimable

Bonjour,

Je dois construire un tableau excel qui doit reprendre tous les jours des indicateurs de risques pour plusieurs clients. Ce tableau sera alimenté plus tard par des données provenants d'autres tableaux excels.

Apparememt VBA me permettra de réaliser cela. Je suis débutant dans le domaine c'est pourquoi je suis ici.

je vous propose d'exposer mon pb 'step by step'
Avant donc d'aller chercher les données pour alimenter ce tableau qui se trouvent dans d'autres fichiers excel, je pense qu'il faille construire déjà les collonnes du tableau.

j'ai donc tenté de construire mes colonnes de la façon suivante :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Function construct_en_tete(ptr As Worksheet) ptr.Cells(1, 1) = "LIBELLE OPCVM" ptr.Cells(1, 2) = "CLASSE" ptr.Cells(1, 3) = "TOLERANCE" ptr.Cells(1, 4) = "VALORISATION J-1" ptr.Cells(1, 5) = "VALORISATION J" ptr.Cells(1, 6) = "VARIATION DE VL" ptr.Cells(1, 7) = "VARIATION DE L'INDICE" ptr.Cells(1, 8) = "ECART" ptr.Cells(1, 9) = "CORRELATION MOYENNE" ptr.Cells(1, 10) = "INDICATEUR DE CORRELATION SUR 3 JOURS" ptr.Cells(1, 11) = "SOUS / RACHAT EN % de l'actif net" ptr.Cells(1, 12) = "RISQUE EN EUROS" ptr.Cells(1, 13) = "ANALYSE" ptr.Cells(1, 14) = "COMMENTAIRE" End Function
Lorsque je lance cette macro, rien de ne créer....Est ce que j'ai oublié de faire quelquechose.

Par avance merci à tous pour votre aide.

Olivier

27/04/2007, 12h13
illight
Il faut que tu définisse ton ptr. C'est quoi ptr ? le nom de ta feuille ?

Utilise Sub plutot que Function ;)

Pour initialiser ta feuille dans ta procédure faut mettre :
Code:

1 2 set ptr = worksheets("ptr")

Bonjour,

J'ai cela qui fonctionne chez moi sur excel 2003 :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub construction_entete()
Dim Menu, I
 
Menu = Array("LIBELLE OPCVM", "CLASSE", "TOLERANCE", "VALORISATION J-1", "VALORISATION J", "VARIATION DE VL", _
    "VARIATION DE L'INDICE", "ECART", "CORRELATION MOYENNE", "INDICATEUR DE CORRELATION SUR 3 JOURS", _
    "SOUS / RACHAT EN % de l'actif net", "RISQUE EN EUROS", "ANALYSE", "COMMENTAIRE")
    I = 1
    For Each Value In Menu
        If Value <= 0 Then Exit Sub
        Cells(1, I).FormulaR1C1 = Menu(I - 1)
        I = I + 1
    Next
 
End Sub

Bonne chance

tu peux même supprimer le :

Code:

If Value <= 0 Then Exit Sub

Ce qui donne :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub construction_entete()
Dim Menu, I
 
Menu = Array("LIBELLE OPCVM", "CLASSE", "TOLERANCE", "VALORISATION J-1", "VALORISATION J", "VARIATION DE VL", _
    "VARIATION DE L'INDICE", "ECART", "CORRELATION MOYENNE", "INDICATEUR DE CORRELATION SUR 3 JOURS", _
    "SOUS / RACHAT EN % de l'actif net", "RISQUE EN EUROS", "ANALYSE", "COMMENTAIRE")
    I = 1
    For Each Value In Menu
        Cells(1, I).FormulaR1C1 = Menu(I - 1)
        I = I + 1
    Next
 
End Sub

27/04/2007, 14h20
oliver75

merci beaucoup srame.

Maintenant il faut que dans la colonne libellé opcvm, je renseigne au niveau des lignes qui suivent le nom des portefeuilles. le tableau doit doit donc se struturer de la façon suivante :

Libelles OPCVM
portefeuille 1
portefeuille 2
portefeuille 3
portefeuille 4

quel code dois-je utiliser pour réaliser ce tableau?

Par avance merci de votre aide.

Oliver

Tu peux reprendre le même principe du style (a vérifier)

Code:

1
2
3
4
5
6
7
8
9
10
11
Sub construction_1erecol()
Dim Col, J
 
Col = Array("portefeuille 1", "portefeuille 2", "portefeuille 3", "portefeuille 4")
    J = 2
    For Each Value In Col
        Cells(J, 1).FormulaR1C1 = Col(J - 2)
        J = J + 1
    Next
 
End Sub

30/04/2007, 11h49
oliver75

Construction d'un tableau EXCEL avec VBA

Merci Sram. Mon tableau Excel commence à prendre forme:yaisse2:

Maintenant il faut que je passe à la phase suivante.

Mon tableau est bien sous forme :

Pour les lignes :
("LIBELLE OPCVM", "CLASSE", "TOLERANCE", "VALORISATION J-1", "VALORISATION J", "VARIATION DE VL", _
"VARIATION DE L'INDICE", "ECART", "CORRELATION MOYENNE", "INDICATEUR DE CORRELATION SUR 3 JOURS", _
"SOUS / RACHAT EN % de l'actif net", "RISQUE EN EUROS", "ANALYSE", "COMMENTAIRE

Pour les colonnes :

Maintenant il faut que je puisse alimenter pour chaque portefeuille la colonne "valorisartion J" à partir d'un autre fichier excel qui sera quotidien.

Ma problèmatique est donc :

Comment affecter correctement dans mon tableau final, la 'valorisation J' pour le bon portefeuille.
Le fichier source aura toujours la meme struturation pour les colonnes

La struturation du fichier source (fichier en pièce jointe EVLSAV) est la suivante :
Code portefeuille;Libelle portefeuille;Code ISIN de la part;Devise portefeuille;Nombre de titres;AN / part;Valeur liquidative;Var VL / prec;Date VL;Frais de gestion entre 2 VL / part;Total frais de gestion / part;Date VL Précédente;VL Précédente;Montant du coupon net;Date de detachement de coupon

il faut que je récupère la valeur liquidative en fonction du code portefeuille

Si qqu'un a une idée pour faire cela je suis preneur. De mon coté je regarde déja comment il est possible de rapatrier des données d'un fichier excel à l'autre. Ensuite viendra la selection de zones spécifiques.

Olivier
02/05/2007, 07h35
srame

Hello,

J'ai pas trop le temps de regarder tout ça ces jours, je te laisse avancer tout seul ou si quelqu'un d'autres veux se pencher là dessus, plus on est de .... plus on ...

Ce qui est sur, la façon la plus éfficace d'apprendre, c'est de faire ses tests soi-même. Et après, ici sur ce forum, il y a vraiment des génies. Donc, tu ne devrait pas mettre long à avoir les solutions.