First doc and scripts

Added
- general repository documentation
- GatherSheetsSummary.bas and related documentation
- ArrayForm2Database.ts and related documentation

Author: ronan-deshays

ArrayForm2Database.ts

@@ -0,0 +1,65 @@
+function main(workbook: ExcelScript.Workbook) {
+    
+    // define a few names
+      // worksheets
+    const PARAM_SHEET_NAME = "Parametres"
+    const SCHEDULE_SHEET_NAME = "Planning"
+    const DATABASE_SHEET_NAME = "BaseDeDonnees"
+      // tables
+    const DATABASE_TABLE_NAME = "Database"
+      // ranges
+    const NUMBER_OF_COLUMNS_RANGE_NAME = "nb_col"
+    const NUMBER_OF_ROWS_RANGE_NAME = "nb_row"
+    const FIRST_COL_NUMBER_RANGE_NAME = "num_first_col"
+    const FIRST_ROW_NUMBER_RANGE_NAME = "num_first_row"
+      // internal script param
+    const AFFAIR_NUM_COL_INDEX = 0 // zero based index in array of values from a range given by user
+    const AFFAIR_NAME_COL_INDEX = 1
+    const AFFAIR_DATE_ROW_INDEX = 0
+    const AFFAIR_DAY_TIME_ROW_INDEX = 1
+  
+    // init variables
+    let param_sheet = workbook.getWorksheet(PARAM_SHEET_NAME)
+    let schedule_sheet = workbook.getWorksheet(SCHEDULE_SHEET_NAME)
+    let database_sheet = workbook.getWorksheet(DATABASE_SHEET_NAME)
+    let database_table = workbook.getTable(DATABASE_TABLE_NAME)
+  
+    // clear table (it is a full update)
+    if (database_table.getRowCount() > 0) { // if database not already empty
+      database_table.deleteRowsAt(0, database_table.getRowCount()) // delete all rows in database
+    }
+  
+    // get user param
+    let nb_row = param_sheet.getRange(NUMBER_OF_ROWS_RANGE_NAME).getValue() as number
+    let nb_col = param_sheet.getRange(NUMBER_OF_COLUMNS_RANGE_NAME).getValue() as number
+    let num_first_col = param_sheet.getRange(FIRST_COL_NUMBER_RANGE_NAME).getValue() as number - 1 // convert from 1 indexed to 0 indexed
+    let num_first_row = param_sheet.getRange(FIRST_ROW_NUMBER_RANGE_NAME).getValue() as number - 1
+  
+    // get data (data structure is as follow : [Excel_row][Excel_col])
+    let schedule_data = schedule_sheet.getRangeByIndexes(num_first_row, num_first_col, nb_row, nb_col).getValues()
+    let dates_data = schedule_sheet.getRangeByIndexes(0,num_first_col,2,nb_col).getValues()
+    let affairs_data = schedule_sheet.getRangeByIndexes(num_first_row, 0, nb_row, 2).getValues()
+  
+    // loop through source range
+    for (let row_index = 0; row_index < (nb_row - 1); row_index++)
+    {
+      for (let col_index = 0; col_index < (nb_col - 1); col_index++) 
+      {
+        if (schedule_data[row_index][col_index] != "")
+        {
+          // save reorganised data to table
+          database_table.addRow(
+            0,
+            [
+              affairs_data[row_index][AFFAIR_NUM_COL_INDEX],
+              affairs_data[row_index][AFFAIR_NAME_COL_INDEX],
+              dates_data[AFFAIR_DATE_ROW_INDEX][col_index],
+              dates_data[AFFAIR_DAY_TIME_ROW_INDEX][col_index],
+              schedule_data[row_index][col_index]
+            ]
+          )
+        }
+      }
+    }
+  }
+  

GatherSheetsSummary.bas

@@ -0,0 +1,39 @@
+Attribute VB_Name = "GatherSheetsSummary"
+Sub Main()
+
+    Dim sheet_index As Integer
+    Dim index_offset As Integer ' sheet number to start with
+    
+    ' user param ' can become a user form
+    index_offset = 5
+    
+    Dim offset As Integer
+    
+    offset_row = 0
+    
+    Dim rng As Range
+    
+    For sheet_index = index_offset To Application.Sheets.Count
+        
+        Sheets(sheet_index).Select
+        
+        Set rng = Range("A116:G128")
+              
+        ' Grab Some Data and Store it in a "Range" variable
+          
+        Sheets("synthese_auto").Select
+        
+        offset_row = 14 * (sheet_index - index_offset)
+        ' 14 is the number of rows contained in the range + 1 (to leave one row blank between tables)
+        
+        ' from : https://www.thespreadsheetguru.com/the-code-vault/best-way-to-copy-pastespecial-values-only-with-vba
+        
+        ' Transfer Values to same spot in another worksheet (Mimics PasteSpecial Values Only)
+        Range("A1").offset(offset_row, 0).Resize(rng.Rows.Count, rng.Columns.Count).Cells.Value = rng.Cells.Value
+
+    Next
+    
+End Sub
+
+
+

README.md

@@ -1,2 +1,27 @@
 # excel-utility-scripts
- Common VBA and TypeScript scripts useful for daily Excel automation projects.
+A set of common VBA and TypeScript scripts useful for daily Excel automation projects.
+
+## Keywords
+Excel ; VBA ; Typescript ; Macro ; Office Scripts ; Excel for the web ; Excel desktop ; Office Visual Basic for Applications
+
+## Repository structure
+There are two types of scripts on this repository :
+
+* [VBA scripts](https://learn.microsoft.com/en-us/office/vba/api/overview/) which are only compatible with desktop versions of Excel. These scripts are written in Visual Basic language and stored in ".bas" text files.
+* [Office scripts](https://learn.microsoft.com/en-us/office/dev/scripts/develop/scripting-fundamentals) which are only compatible with web versions of Excel and some desktop versions (require consistent internet connection and that file is located on OneDrive). These scripts are written in TypeScript language and stored in ".osts" text files.
+
+## Installation
+* VBA scripts must be imported from the VBA IDE (from Excel desktop : alt + F11)
+* Office scripts on this GitHub repository can be copy-pasted in the Office Scripts IDE. Alternatively, you can deposit them on folder usally located in : your-OneDrive/Documents/Office scripts. Please note that, for development purposes, the Office scripts are stored in this repository in ".ts" format and would require to be restructured to comply to ".osts" format (not only renamed), so the copy-paste method explained above is recommended.
+
+## Features
+The scripts available on this repository are listed and explained below.
+
+### VBA - gather sheets summary
+*related file : GatherSheetsSummary.bas*
+For each sheet in a workbook, gather a range located always in the same cell on each sheet. This range contains e.g. a summary of data contained in the active sheet. So that the juxtaposition of ranges makes a summary of the whole workbook.
+
+### Office - array form to database
+*related file : ArrayForm2Database.ts*
+Build and update a database based on an array form.
+More precisely, users fill the array form, and a script organize the data in a database (Excel table), which enables Pivot Tables or Power Platform usage of this data.