Aide avec if

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:

---

If wb.Charts.Count Then

---

Moi j’aurais plutot mis

Code:

---

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

---

Ou encore

Code:

---

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:

---

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

---

En principe ta première approche

Code:

---

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:

---

If wb.Charts.Count Then

---

Équivalent à

Code:

---

If wb.Charts.Count=True Then

---

C'est à dire:

Code:

---

If wb.Charts.Count<>False Then

---

Ou encore:

Code:

---

If wb.Charts.Count<>0 Then

---

Enfin (puisque le comptage est toujours positif)

Code:

---

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.

+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:

---

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.

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:

---

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

---