Démystification d'une formule

[LIO]

Bonjour le forum,
Je suis débutant et j'aimerai décripter cette formule :
Private Sub chois_Click()
tout.Value = False
class = chois.ListIndex + 1: maxplac = don.Cells(class + 1, 5): decall = 0
For x = 2 To class
decall = decall + don.Cells(x, 5)
Next
End Sub

A titre indicatif don correspond à la feuille exel

Merci.

 

[CBernardT]

Bonjour Lio,

Quelques éclaircissements à ta macro :

Private Sub chois_Click() 'L'événement Click se produit lorsque l'utilisateur clique sur un objet 'Cliquable'.
'Private indique que la procédure Sub n'est accessible qu'à d'autres procédures du module dans lequel elle a été déclarée.
tout.Value = False
'tout est une variable non déclarée dont la valeur est 'FAUX'

'Les : permettent d'écrire sur la même ligne plusieurs lignes de code successives comme plus bas
class = chois.ListIndex + 1: maxplac = don.Cells(class + 1, 5): decall = 0


class = chois.ListIndex + 1
'class est une variable non déclarée dont la valeur correspond au rang de la valeur affichée dans le contrôle chois à laquelle on ajoute 1
maxplac = don.Cells(class + 1, 5)
'maxplac est une variable non déclarée dont la valeur correspond à la valeur de la cellule colonne E à la ligne class +1
decall = 0
'decall est une variable non déclarée dont la valeur au départ est 0
'boucle sur les valeurs de x, variable non déclarée
For x = 2 To class
'La variable decall augmente de la somme des valeurs des cellules E2 à Eclass de la feuille don
decall = decall + don.Cells(x, 5)
Next
End Sub

Cordialement

Bernard

 

[lio]

Bonjour,
Merci pour toutes ces explications et bon dimanche.