Discussion :

[gaboule]

bonjour,

je cherche le code à utiliser pr masquer des graphiques qi des cellules de mon tableau sont vide.

Je vous joins le code que j'avais tapé mais qui ne fonctionne pas.

Je précise que je suis débutante en vba.

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
Private Sub masqgraph1(ByVal Target As Range)
 
Dim graph1 As Variant
Dim graph2 As Variant
 
Range("e100:e108").Select
For Each cell In Selection
cpt = 0
For i = 0 To 11
If cell.Offset(0, i) <> "" Then
cpt = cpt + 1
End If
Next
 
If IsEmpty(ActiveSheet.Cells) Then
ActiveSheet.ChartObjects(graph1.Name).Visible = False
Else
ActiveSheet.ChartObjects(graph1.Name).Visible = True
End If
 
End Sub

Merci d'avance de votre aide

gaboule

[Daniel.C]

Bonjour,
Il manque un "Next" dans ton code (je l'ai ajouté). Prends l'habitude d'indenter ce code, c'est plus facile pour détecter de telles erreurs.Tu vérifies si la plage E100108 contient autre chose que des cellules vides. Si elle contient des cellules vides, cpt est inférieur à 108. Peut-être :

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
Private Sub masqgraph1(ByVal Target As Range)
    Dim graph1 As Variant
    Dim graph2 As Variant
    Range("e100:e108").Select
    For Each cell In Selection
        cpt = 0
        For i = 0 To 11
            If cell.Offset(0, i) <> "" Then
                cpt = cpt + 1
            End If
        Next
    Next
    If cpt < 108 Then
        ActiveSheet.ChartObjects(graph1.Name).Visible = False
    Else
        ActiveSheet.ChartObjects(graph1.Name).Visible = True
    End If
End Sub

[gaboule]

bonjour,

merci de votre réponse, malheureusement il bug au niveau

Code :

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

ActiveSheet.ChartObjects(graph1.Name).Visible = True

j'ai pourtant nommé mon graph ds excel, je ne sais pas d'ou peut provenir cette erreur ?

par contre vous me dites que entre autre ce que je veux verifier est " Si elle contient des cellules vides, cpt est inférieur à 108"

mais moi je veux vérifier si cellule vide ds la selection alors masque le graphique correspondant (je n'ai pas mis l'ensemble des graph ds mon code je teste déjà avec le premier)

merci d'avance

[Daniel.C]

Effectivement, je n'ai pas regardé cette partie du code, non plus que "Target" que tu attends en paramètre. Les objets "Graph1" et Graph2" ne sont pas renseignés. Combien y a-t-il de graphiques sur ta feuille ?