Utiliser des checkbox pour choisir les colonnes à afficher dans un graph

Version imprimable

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:

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 !

'Au lieu du checkBox, on peut essayer ceci :

Code:

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

29/09/2022, 15h38
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:

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

Car mes données sont en ligne 10.

Par contre je ne comprends pas :

Code:

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:

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

J'ai un message d'erreur :

Citation:

incompatibilité de type

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

Merci encore !
29/09/2022, 15h44
Belga16

Je vais voir tout cela dès que possible
29/09/2022, 16h05
maximeriv

1 pièce(s) jointe(s)

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 ^^"
Pièce jointe 626384

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
29/09/2022, 21h12
Belga16

Il y a 2 points à traiter :

Citation "Je ne comprends pas :"

Code:

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.
03/10/2022, 16h32
maximeriv

1 pièce(s) jointe(s)

Bonjour :D

Merci beaucoup de votre réponse,

J'ai mis en PJ l'exemple de la feuille Excel que j'utilise (j'ai anonymisé les noms des tests etc...).

J'ai également mis des données aléatoires.

Pour info :
- j'ai rajouté des checkbox pour sélectionner les colonnes à afficher et cela fonctionne (j'ai laissé votre msgbox sans colorer les cellules). Il faut sélectionner les tests à afficher puis cliquer sur le bouton bleu "Test".

- Les cellules vertes ne doivent pas être modifiées elles utilisent les données des cellules blanches.

Merci beaucoup !!

Pièce jointe 626571

Citation:

Envoyé par Belga16

Il y a 2 points à traiter :

Citation "Je ne comprends pas :"

Code:

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.
02/11/2022, 08h29
maximeriv

Bonjour,
je me permets de vous relancer car je n'ai toujours pas trouvé l'origine de l'erreur :s
merci encore de votre aide !
Maxime

Citation:

Envoyé par Belga16

Il y a 2 points à traiter :

Citation "Je ne comprends pas :"

Code:

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.