Discussion :

[Bonero]

Bonjour a tous,
Je suis tombé sur ce code qui supprime les graphiques du classeur.
Le code marche bien mais j’ai un peu de mal a apprehender la condition

Code :

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

If wb.Charts.Count Then

Moi j’aurais plutot mis

Code :

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

 1ere Approche :If wb.Charts.Count > 0 Then ...

Ou encore

Code :

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

 2nde Approche : If CBool(wb.ChartObjects.Count) = True…

Y a t-il une correspondence/equivalence entre ces differentes ecritures ?
Merci de me repondre.

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
Sub Graphs_Delete()
'But: Supprimer tous les graphiques.
 
    Dim wb As Workbook
    Set wb = Application.ThisWorkbook
 
 
    If wb.Charts.Count Then
        wb.Charts.Delete
    Else
        Debug.Print "Il n y a pas de graphs"
    End If
 
    'Ce que j'aurais utilisé est :
    '1ere approche : _
    If wb.Charts.Count > 0 Then ... _
    '2nd approche : _
    If CBool(wb.ChartObjects.Count) = True Then....
 
End Sub