1-2-3 Edition millenium ne possède pas de fonctions prédéfinies pour mettre en valeur des nombres répondant à des critères précis, comme par exemple colorier en rouge tous les nombres inférieurs à 200 d’un tableau. Pour rectifier cet oubli, il faut écrire un programme en LotusScript, le langage de programmation intégré au tableur. Choisissez la commande Scripts/Afficher Editeur de scripts du menu Edition. Dans la liste Object, optez pour (Globals) et recopiez le listing ci-dessous. Sauvegardez le programme en sélectionnant File/Save scripts. Fermez l’éditeur de scripts. Dans une feuille de calcul du classeur ouvert, saisissez plusieurs valeurs comprises entre 100 et 300 dans une dizaine de cellules en colonne, puis sélectionnez-les. Choisissez Scripts/Exécuter. Cliquez sur Main, puis sur [exécuter]. Dans la fenêtre qui s’affiche, saisissez 200. Toutes les valeurs supérieures à 200 s’afficheront en rouge et les autres en bleu.Listing :
Sub Main
Dim source As Range
Dim nombre As Double
Set source = []
Nombre = InputBox(“Entrez un nombre ? “)
Forall cellule In source.cells
If Val(cellule.cellvalue) > nombre Then
cellule.font.fontcolor.colorname=”red”
Else
cellule.font.fontcolor.colorname=”blue”
End If
End Forall
End Sub
🔴 Pour ne manquer aucune actualité de 01net, suivez-nous sur Google Actualités et WhatsApp.
