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

[mercatog]

En principe ta première approche

Code :

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

If wb.Charts.Count > 0 Then

est la bonne (pour enlever toute ambiguïté)

Mais, on a aussi la valeur de False est 0, la logique suivante est suivie pour expliquer l’écriture:
Etape1:

Code :

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

If wb.Charts.Count Then

Équivalent à

Code :

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

If wb.Charts.Count=True Then

C'est à dire:

Code :

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

If wb.Charts.Count<>False Then

Ou encore:

Code :

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

If wb.Charts.Count<>0 Then

Enfin (puisque le comptage est toujours positif)

Code :

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

If wb.Charts.Count>0 Then

La logique inverse peut être aussi suivie.

PS: Chart désigne une feuille graphique alors que ChartObject désigne un objet graphique inséré dans une feuille qui contient le graphique lui même.

[el_slapper]

+1. Mercatog a toujours raison.

Ton exemple douteux se sert de la représentation binaire des données pour s'épargner de frapper 4 caractères(un espace, un supérieur, un espace, un zéro).

Un booléen, c'est, binairement, un nombre qui peut prendre les valeurs 0 ou autre - que l'on traduit de manière abstraite par True et False. Donc, on peut s'abstenir d'écrire " > 0", si c'est ce qu'on a à tester. C'est informatiquement parfaitement juste.

En même temps, c'est à éviter, à mon sens. Ce genre d'astuces obscurcit le code. Ta confusion est un classique, parfaitement évitable. L'écriture

Code :

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

If wb.Charts.Count Then

est le produit d'un programmeur qui s'amuse, mais qui mélange plusieurs niveaux d'abstraction différents(le binaire, et le code VB, qui est assez haut niveau abstraction). Ce qui donne un code moins lisible.

[Bonero]

grand merci mercatog et el_slapper pour vos explications on ne peut plus clair.
Pour des apprentis progammeurs comme moi, ces astuces sont loin d'etre evidentes.
j'ai egalemt remarque ces genres de raccourcis sont trop souvent utilisees dans la programmation ADO comme le temoigne le code ci-dessous:

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
     If Not (oRS.EOF And oRS.BOF) Then         '<===ILLUSTRATION
 
            oRS.MoveLast
            oRS.MoveFirst
 
            For i = 0 To oRS.Fields.Count - 1
                  Do While Not oRS.EOF                    '<===ILLUSTRATION
                        Debug.Print oRS.Fields(i)
                        oRS.MoveNext
                  Loop
                  oRS.MoveFirst
            Next i
      Else
            MsgBox " there is no records"
      End If