Il faut maintenant compléter le script de "Onclick" pour lui faire exécuter une action.
Compléter comme ci-dessous en ajoutant la ligne du milieu
 
Script 1a
Sub Click(Source As Buttoncontrol) 
 [F17].contents="Bonjour" 
End Sub

Cliquer sur le bouton : le message "Bonjour" s'affiche dans la cellule F17.
La propriété contents peut également être lue par le script.
Par exemple tapez "Comment t'appelles-tu" dans F15 et complétez le script précédent comme suit :
 
Script 1b
Sub Click(Source As Buttoncontrol) 
 [F17].contents="Bonjour"&[F16].contents 
End Sub

Tapez votre nom dans F16 puis appuyez sur le bouton 1.

Remarque : le contenu de F16 inclut la petite apostrophe que le tableur ajoute au début des textes. Si vous ne voulez pas voir cette apostrophe, utilisez [F16].cellvalue au lieu de [F16].contents. Contrairement à contents, cellvalue peut être lue mais non modifiée.
 

©2003 Scientillula.net