|
```
Option explicite
' Déclarez la variable de plage.
Dim rng Comme Plage
' Initialise la variable de plage.
rng =Plage("A1:A10")
' Initialise la variable de somme.
Dim sum aussi longtemps
somme =0
' Calculer la somme des valeurs dans la plage.
Pour chaque cellule dans rng
somme =somme + cellule
Cellule suivante
'Afficher la somme des valeurs dans la plage.
Debug.Print "La somme des valeurs dans la plage A1:A10 est" &somme
```
|
