act_2-JS : JS- macro boîte de dialogue et Plages [Activités

act_2-JS : JS- macro boîte de dialogue et Plages

Réglementaire : Pré-requis⚓

Utiliser OnlyOffice / Google Calc / Node-Red ou une page web.

Votre classeur est ouvert dans la B'UL.

Cliquer sur Modules Complémentaires puis

Un commentaire sur une ligne commence par //

Notez les boutons qui vont vous permettre de gérer vos macros (Renommer par exemple) et surtout exécuter la macro.

001a1 - alert⚓

Pour afficher un message à l'utilisateur avec un bouton OK.

// Afficher une fenêtre avec un message et un bouton OK
    window.alert("Hey You!!!");

// Afficher une fenêtre avec un message et un bouton OK
    window.alert("Hey You!!!");

001a2 - confirm⚓

Pour poser une question à l'utilisateur avec un bouton OK et Annuler

    if ( confirm( "Êtes-vous étudiant en GIM1, OK sinon Annuler") ) {
    // Code à éxécuter si le l'utilisateur clique sur "OK"
        alert("GIM1 OK");
} else {
    // Code à éxécuter si l'utilisateur clique sur "Annuler" 
        alert("GIM2 OK");
}

    if ( confirm( "Êtes-vous étudiant en GIM1, OK sinon Annuler") ) {
    // Code à éxécuter si le l'utilisateur clique sur "OK"
        alert("GIM1 OK");
} else {
    // Code à éxécuter si l'utilisateur clique sur "Annuler" 
        alert("GIM2 OK");
}

001a3 - prompt⚓

Pour poser une question à l'utilisateur avec un bouton OK et Annuler

    var sPromotion = prompt("Quel est le libellé de votre Promotion");
    alert('Votre promotion est :' +sPromotion);

    var sPromotion = prompt("Quel est le libellé de votre Promotion");
    alert('Votre promotion est :' +sPromotion);

"Valeur A" dans la cellule A1. Classe Range.

Exemple :

    Api.GetActiveSheet().GetRange("A1").SetValue("Valeur A");

    Api.GetActiveSheet().GetRange("A1").SetValue("Valeur A");

"Valeur B" dans la cellule A1, avec un objet feuille et un objet cellule.

Exemple :

    var objF=Api.GetActiveSheet(); // Objet feuille
    var objCA1=objF.GetRange("A1"); // Objet Cellule A1
    objCA1.SetValue("Valeur A"); // Assigner la valeur à l'objet cellule A1 via la méthode SetValue

    var objF=Api.GetActiveSheet(); // Objet feuille
    var objCA1=objF.GetRange("A1"); // Objet Cellule A1
    objCA1.SetValue("Valeur A"); // Assigner la valeur à l'objet cellule A1 via la méthode SetValue

Pour colorer le fond de la cellule, il est nécessaire de définir les couleurs souhaitées avec leur code RGB (LIEN VERS LES CODES RGB).

Truc & astuce :

oColorBlancCreme = Api.CreateColorFromRGB(253, 241, 184);

oColorAmbre = Api.CreateColorFromRGB(240, 195, 0);

Ensuite, de la même manière que SetValue change la valeur d'une cellule , SetFillColor change la couleur.

Truc & astuce :

Api.GetActiveSheet().GetRange("A1").SetFillColor(oColorBlancCreme);

Résultat pour colorer les 2 cellules⚓

   // Définitions des couleurs
    oColorBlancCreme = Api.CreateColorFromRGB(253, 241, 184);
    oColorAmbre = Api.CreateColorFromRGB(240, 195, 0);
    
    // Placer le texte 'valeur A' dans la cellule A1 de la feuille active
    Api.GetActiveSheet().GetRange("A1").SetValue("Valeur A");
    // Changer la couleur du fond
    Api.GetActiveSheet().GetRange("A1").SetFillColor(oColorBlancCreme);
    // Si on souhaite ré-utiliser la cellule pour gérer des propriétés ou lui appliquer des méthodes, on peut déclarer des variables pour chaque objet.
    var objF=Api.GetActiveSheet(); // Objet feuille
    var objCA2=objF.GetRange("A2"); // Objet Cellule A1
    objCA2.SetValue("Valeur B"); // Assigner la valeur à l'objet cellule A1 via la méthode SetValue
    Api.GetActiveSheet().GetRange("A2").SetValue("Valeur B")
    objCA2.SetFillColor(oColorAmbre);

   // Définitions des couleurs
    oColorBlancCreme = Api.CreateColorFromRGB(253, 241, 184);
    oColorAmbre = Api.CreateColorFromRGB(240, 195, 0);
    
    // Placer le texte 'valeur A' dans la cellule A1 de la feuille active
    Api.GetActiveSheet().GetRange("A1").SetValue("Valeur A");
    // Changer la couleur du fond
    Api.GetActiveSheet().GetRange("A1").SetFillColor(oColorBlancCreme);
    // Si on souhaite ré-utiliser la cellule pour gérer des propriétés ou lui appliquer des méthodes, on peut déclarer des variables pour chaque objet.
    var objF=Api.GetActiveSheet(); // Objet feuille
    var objCA2=objF.GetRange("A2"); // Objet Cellule A1
    objCA2.SetValue("Valeur B"); // Assigner la valeur à l'objet cellule A1 via la méthode SetValue
    Api.GetActiveSheet().GetRange("A2").SetValue("Valeur B")
    objCA2.SetFillColor(oColorAmbre);

Chercher la méthode permettant de changer le texte d'une cellule en gras.

Complément : Correction⚓

La méthode est SetBold.

    var objDonnees=objF.GetRange("A1:A2");
    objDonnees.SetBold(true);

    var objDonnees=objF.GetRange("A1:A2");
    objDonnees.SetBold(true);

Objectif⚓

On suppose que la feuille de calcul comporte les données ci-contre.

En B4, on souhaite connaître la somme de A et B.

En B5, on veut la formule qui effectue la somme de A et B

Le résultat visible en B4 et B5 sera bien identique. La différence est que si on souhaite que l'utilisateur ne sache pas comment le résultat est calculé, on peut placer grâce au code écrire le résultat sans pour autant écrire la formule.

Cellule B5

    objF.GetRange("A5").SetValue("A+B avec la formule");
    objF.GetRange("B5").SetValue('=B1+B2');

    objF.GetRange("A5").SetValue("A+B avec la formule");
    objF.GetRange("B5").SetValue('=B1+B2');

Lire la valeur en B1 et en B2 en les affectant aux variables vA et vB.

    vA=objF.GetRange("B1").GetValue();
    vB=objF.GetRange("B2").GetValue();
    alert(vA + vB);

    vA=objF.GetRange("B1").GetValue();
    vB=objF.GetRange("B2").GetValue();
    alert(vA + vB);

Le résultat affiché est 127 ? ? ? ?. On obtient la concaténation au lieu de la somme arithmétique (19)

L'opérateur + s'applique ici à des chaînes de caractères par défaut. Il faut convertir les valeurs au préalable avec Number(Chaîne).

    vAn=Number(objF.GetRange("B1").GetValue());
    vBn=Number(objF.GetRange("B2").GetValue());
    vTot=vAn+vBn;
   
    objF.GetRange("A4").SetValue("A+B calculé");
    objF.GetRange("B4").SetValue(vTot);

    vAn=Number(objF.GetRange("B1").GetValue());
    vBn=Number(objF.GetRange("B2").GetValue());
    vTot=vAn+vBn;
   
    objF.GetRange("A4").SetValue("A+B calculé");
    objF.GetRange("B4").SetValue(vTot);

BUG : Exécuter les macros dans la feuille de calcul.⚓

Normalement, un clic droit sur un objet permet d'assigner facilement une macro. Un clic sur l'objet permet de l'exécuter.

Réglementaire : Application⚓

Générer une feuille de calcul qui permet de calculer le TRG en supposant que TO, AI, NQ, TU sont connus.

On pourrait ensuite améliorer la feuille en choisissant les grandeurs à saisir et à calculer.