VBA : Ne pas faire de graphique si pas de valeurs

Version imprimable

22/12/2016, 11h31
cycy55

VBA : Ne pas faire de graphique si pas de valeurs

Bonjour à vous

Dans le cadre d'un projet, je veux réaliser des histogrammes qui prennent en chacun en compte une colonne définie au préalable. Dès que je clique sur un bouton, une série de 35 histogrammes est crée, cependant le nombre de colonnes contenant des données peut varier. Par exemple, si seulement 5 colonnes ont des données, j'aurais 5 histogrammes qui m'interresse et 30 histogrammes vides seront présent également et qui n'ont aucune utilité....

Comment puis-je faire pour dire que si dans les colonnes je n'ais pas de valeurs alors pas de graphiques?

Merci d'avance
22/12/2016, 11h40
Jean-Philippe André

Salut,

il te suffit de determiner en amont de ta creation de graphe la presence ou non de donnees.

Tu ne nous a pas indiquer l'application sur laquelle tu souhaites travailler. Excel ? Access ?

Je travaille sous Excel.
Voici mon code pour un histogramme :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Dim i As Integer
i = ActiveSheet.Range("Aq9").Value
 
    ActiveSheet.Shapes.AddChart.Select
    ActiveSheet.ChartObjects(ActiveChart.Parent.Name).Name = "Graphe1"
With ActiveChart
    .SetSourceData Source:=Range("'Feuil1'!G11:G" & 10 + i)
    .ChartType = xlColumnClustered
    .Axes(xlSecondary).HasTitle = True
    .Axes(xlSecondary).AxisTitle.Text = ActiveSheet.Range("G10").Value
    .HasTitle = True
    .ChartTitle.Characters.Text = ActiveSheet.Range("G9").Value
    .SeriesCollection(1).XValues = "='Feuil1'!D11: D" & 10 + i
End With
    Placer_Graphique "Graphe1", Range("d32"), Range("i44")

Il faudrait que je dise que s'il ne trouve pas de valeur entre G11:G" & 10 + i alors le graphique ne s'affiche pas... mais je ne sais pas comment faire...

Si vous avez des idées, merci d'avance

23/12/2016, 14h17
cycy55

Je n'arrive toujours pas à trouver le bon code pour déclarer la présence (ou non) de données et ce ce fait tracer (ou non) le graphique...

Si quelqu'un à une idée...

Merci d'avance

Salut,
De base j'aurais suivi uyne piste avec

Code:

1
2
3
4
5
If Worksheets("'Feuil1").Range("G65536").End(xlup).Row>11 Then
    'de la data
Else
   ' pas de data
End If