Discussion :

[maximeriv]

Bonjour à toutes et à tous,

je continue l'apprentissage de VBA et du codage des macros mais je suis face à un problème.

J'ai une macro qui créé des graphiques, par défaut les graphiques affichent les 20 colonnes dans lesquelles j'ai des données mais cela ne m'arrange pas car je n'ai pas tout le temps besoin d'afficher les 20 colonnes.

Ma question est donc, puis-je utiliser des checkbox à cocher pour sélectionner les données à afficher ?

Pour l'instant la seule chose que j'ai réussi à faire c'est une boucle if pour chaque colonne mais cela ne fonctionne pas quand je coche plusieurs checkbox.

Voici ce que j'ai écrit (checkbox 1 est pour afficher les 4 premières colonnes de deux séries):

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
If CheckBox1 = True Then
        ActiveChart.SetSourceData Source:=Range( _
                                  "'AméliorationDégradation Indiv'!$B$2:$C$4")
 
        ActiveChart.FullSeriesCollection(1).Name = _
                                                   "='AméliorationDégradation Indiv'!$A$10"
        ActiveChart.FullSeriesCollection(1).Values = _
                                                   "='AméliorationDégradation Indiv'!$B$10:$C$10"
        ActiveChart.FullSeriesCollection(2).Name = _
                                                   "='AméliorationDégradation Indiv'!$A$11"
        ActiveChart.FullSeriesCollection(2).Values = _
                                                   "='AméliorationDégradation Indiv'!$B$11:$C$11"
    End If

Mais si je fais une deuxième boucle pour une checkbox 2 avec d'autres colonnes je pense qu'il y a un conflit.

Avez-vous une idée ?

Bonne journée !

[Belga16]

'Au lieu du checkBox, on peut essayer ceci :

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
Sub graph01()
    'Identifier les colonnes en encodant 0 ou 1 (1=colonne choisie; 0 = colonne ignorée) sur 1 ligne de votre choix
 
    Dim zone As String
    Dim j As Integer
    Dim c As Range
 
    With ThisWorkbook.Sheets("Sheet1")
        For j = 2 To 20 'colonnes B à T
            If .Cells(30, j) = 1 Then zone = zone & ", " & .Cells(30, j).Address    '0 et 1 sont encodés en ligne 30
        Next j
    End With
 
    If Left(zone, 2) = ", " Then zone = Mid(zone, 3)
 
    '****** les 4 lignes qui suivent servent uniquement à tester la procédure, et peuvent être supprimées)
    MsgBox zone
    For Each c In Range(zone)
        c.Interior.Color = vbGreen
    Next c
    '**************************
 
    ActiveChart.FullSeriesCollection(1).Values = "='AméliorationDégradation Indiv'!" & Range(zone)
End Sub

[maximeriv]

Bonjour !

Merci beaucoup de votre réponse, je trouve que c'est une très bonne idée de faire comme ça. J'ai remplacé le chiffre 30 par 10 dans :

Code :

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

Then zone = zone & ", " & .Cells(10, j).Address

Car mes données sont en ligne 10.

Par contre je ne comprends pas :

Code :

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

If Left(zone, 2) = ", " Then zone = Mid(zone, 3)

J'ai vu que la msgbox indiquait correctement la plage de donnée mais la dernière ligne du code de fonctionne pas :

Code :

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

ActiveChart.FullSeriesCollection(1).Values = "='AméliorationDégradation Indiv'!" & Range(zone)

J'ai un message d'erreur :

incompatibilité de type

Désolé du délai de ma réponse j'étais sur le terrain puis indisponible le soir...

Merci encore !

[Belga16]

Je vais voir tout cela dès que possible

[maximeriv]

Je vois que zone est de type "string", peut-être que le problème vient de là ?

Sur internet ils disent que c'est surement un problème de déclaration de variable ou d'objet. Peut-être faut-il déclarer le graphique ?

Par ailleurs j'ai utilisé votre code pour créer une deuxième zone (zone2) qui sera mon deuxième jeu de données à afficher sur le graph et ça fonctionne très bien.

Les deux plages sont bien identifiées, reste plus qu'à trouver comment les afficher dans le graph ^^"


Pour info, quand je ne sélectionne qu'une seule colonne l'erreur n'est plus "incompatibilité de type" mais "variable objet ou variable bloc with non définie"
Merci de votre aide en tout cas

[Belga16]

Il y a 2 points à traiter :

Citation "Je ne comprends pas :"

Code :

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

If Left(zone, 2) = ", " Then zone = Mid(zone, 3)

Etant donné que la chaîne de caractères ", A10, B10, ..., etc" commence par une virgule (par définition), il faut se débarrasser de la 1ère virgule.
Comme les 2 premiers caractères de la chaîne sont la virgule et un espace, ce qui nous intéresse c'est tout ce qui commence àpd la 3è position; d'où l'utilisation de la fonction "MID".

Citation : "la dernière ligne du code ne fonctionne pas"
J'aurais besoin d'une copie anonymisée de votre fichier pour essayer de comprendre l'origine du problème.