Discussion :

[addesign]

Bonjour,

Je souhaite réaliser une sorte de base de données pour le boulot. J’ai réalisé plusieurs macros l’année passée, mais toujours en m’aidant à la base de l’enregistreur de macro et en modifiant.
Ce coup-ci apparemment ça ne marchera pas, je viens donc vers vous pour avoir une piste pour me lancer.

Voilà la situation :
J’ai sur ma feuille 1 une base de données très complète, mais pas très lisible.
Je souhaiterai intégrer d’autres feuilles contenant chacune un ou plusieurs graphs (nuages de points) permettant d’étudier plus facilement ces données.

Le principe serait globalement le même pour tous les graphiques, peu importe si il y en à un ou plusieurs.
Mon idée était de mettre un bouton à côté de chaque graph, avec indiqué « Mise à jour du graphique », je pense que ce sera le plus facile.

Voilà donc l’idée :

Le graph doit importer toutes les lignes de la feuille 1 qui ont une valeur numérique dans la colonne visée à partir de la ligne 7 incluse (pour l’exemple prenons la colonne K).
La dernière ligne remplie pourra être lue dans la colonne A, qui sera toujours non vide si la ligne existe.
Chaque graphique doit contenir 4 séries de données, dépendants de valeurs inscrites sur la feuille 1.

Concrètement quelque chose du style :

IF valeur dans colonne K = valeur numérique, alors :

Code :

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

1
2
3
4
5
6
IF modèle = R
	IF sous-modèle = E {copier dans la série 1}
	ELSEIF sous-modèle = D {copier dans la série 2}
IF modèle =/= R
	IF sous-modèle = E {copier dans la série 3}
	ELSEIF sous-modèle = D {copier dans la série 4}

Avec K en ordonnée, et en abscisse, la valeur contenue dans la colonne D


Par exemple :

• La macro trouve une seule ligne non vide dans la colonne K à partir de K7 jusqu’en bas, disons la ligne 19 (sur la feuille 1).
• Il recherche dans les colonnes modèles / sous-modèle à quelle série de donnée associer le point
• Il associe le point avec la valeur de K19 en ordonnée et la valeur D19 en abscisse.

Pour la mise en forme du graph, est-ce que je dois « préparer » la trame du graph à l’avance ? (Titre, option des axes, couleur des séries, …)
Ou est-ce que la macro va re créer un nouveau graph à chaque fois ?

Désolé pour la longueur du post, j’espère que je suis assez clair sinon j’essaierai d’expliquer autrement.
Comme vous voyez je suis un peu dans le flou, un coup de main m’aiderait énormément

Merci beaucoup

[addesign]

Bon, j'ai réussi à avancer, voilà actuellement le code que j'ai pour remplir la série.
Ca a l'air de plutôt bien fonctionner, mais le souci c'est qu'à la fin je ne me retrouve qu'avec 4 points : les 4 derniers de la liste.

Il semblerait que chaque incrémentation efface le point precedent.

Comment faire pour AJOUTER un point dans une série et pas remplacer le precedent ?

Voici donc le 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
For NoLig = 7 To DerLig
 
    Set plage_x = Sheets("Feuill1").Range("D" & NoLig)
    Set plage_y = Sheets("Feuill1").Range("K" & NoLig)
 
    If Sheets("Feuille1").Range("A" & NoLig).Value = "CONSTRUCTEUR" And Sheets("Feuill1").Range("E" & NoLig).Value = "TYPE1" Then
 
    ActiveChart.FullSeriesCollection(1).XValues = Sheets("Feuill1").Range("D" & NoLig)
    ActiveChart.FullSeriesCollection(1).Values = Sheets("Feuill1").Range("K" & NoLig)
 
    ElseIf Sheets("Feuill1").Range("A" & NoLig).Value = "CONSTRUCTEUR" And Sheets("Feuill1").Range("E" & NoLig).Value = "TYPE2" Then
 
    ActiveChart.FullSeriesCollection(2).XValues = plage_x
    ActiveChart.FullSeriesCollection(2).Values = plage_y
 
    ElseIf Sheets("Feuill1").Range("A" & NoLig).Value <> "CONSTRUCTEUR" And Sheets("Feuill1").Range("E" & NoLig).Value = "TYPE1" Then
 
    ActiveChart.FullSeriesCollection(3).XValues = plage_x
    ActiveChart.FullSeriesCollection(3).Values = plage_y
 
    ElseIf Sheets("Feuill1").Range("A" & NoLig).Value <> "CONSTRUCTEUR" And Sheets("Feuill1").Range("E" & NoLig).Value = "TYPE2" Then
 
    ActiveChart.FullSeriesCollection(4).XValues = plage_x
    ActiveChart.FullSeriesCollection(4).Values = plage_y
 
    End If
 
    Next

Merci d'avance