Discussion :

[Kiouane]

Bonjour à tous,

J'explique la situation :

J'ai un code VBA que j'utilisais sous excel mais quand j'ai importé mon fichier sur google doc, j'ai remarqué que les macros VBA doivent être converties manuellement vers Javascript, le langage utilisé par google apps script. Donc je voudrais savoir si possible comment pourrais-je faire pour le code suivant.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Sub calcul()
 
Dim f As Long, r As Long, C As Long, J As Long
 
f = ActiveCell.Row
r = Cells(f, 3).Value
 
C = 0
J = 0
i = f
 
If Not IsEmpty(Cells(i - 1, 4)) Then
 
     If IsNumeric((Cells(i - 1, 4))) Then
 
 
           Do Until C + Cells(i, 4).Value >= r
           C = C + Cells(i, 4): Cells(f, 14) = C
           i = i - 1
           J = J + 1
           If Not IsNumeric(Cells(i, 4)) Then
           Exit Do
           End If
           Loop
 
 
           Cells(f, 18) = J
           X = f - J
           Cells(f, 19) = X
 
 
                  MsgBox "Données historiques insuffisantes"

C'est juste une partie de mon code mais si j'arrive à modifier ceci en javascript je pourrais le faire pour le reste.


Merci à vous,

[NoSmoking]

Bonjour,
la documentation Class Sheet devrait t'aider pour cela.

[Kiouane]

Merci pour ta réponse. Mais j'y étais déjà et je suis entrain de traduire mon code step by step.

Voilà ce qu'il en est pour le moment :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
 
function myFunction() {
 
  var ss = SpreadsheetApp.getActiveSpreadsheet();
 
  var sheet = ss.getSheetByName("Feuille 1");
 
  var active = sheet.getActiveCell();
 
  var f = active.getRowIndex();
 
  var values = [   [ f ] ];
 
  var r= sheet.getRange(f,3);
 
 
  var val = [ [r]];
 
  var test = sheet.getRange(5,5);
 
  //Injecter la valeur de la cellule(f,3) dans la cellule(5,5)
  test.setValues(val);
 
}
 
 
 
}

Ca me retourne "Range" au niveau de la cellule (5,5) alors que j'ai la valeur "400" dans la cellule (f,3).

[Kiouane]

J'ai trouvé pour cette partie du code. J'ai fait comme suit :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
function myFunction() {
 
  var ss = SpreadsheetApp.getActiveSpreadsheet();
 
  var sheet = ss.getSheetByName("Feuille 1");
 
  var active = sheet.getActiveCell();
 
  var f = active.getRowIndex();
 
  var values = [   [ f ] ];
 
  var r= sheet.getRange(f,3);
 
  var j= r.getValues();
 
 
  var val = [ [j]];
 
  var test = sheet.getRange(5,5);
 
  //Injecter la valeur de la cellule(f,3) dans la cellule(5,5)
 
 test.setValues(j);
 
 
 
}

Maintenant pour le bloc if et do pour des cellules à incrémenter je cherche comment faire.

[Kiouane]

J'en suis à la partie Do until et j'ai fait le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
      var i = f
 
      var cellule = sheet.getRange(i,4).getValues();
 
      var C = 0
 
      do {
 
        C = C + cellule;
        var destination = sheet.getRange(f,14);      
        destination.setValue(C);
        i = i-1;
 
         }while (C + cellule <= r);

Sur la cellule (f,3) j'ai la valeur 200, et sur les cellules (f,4), (f-1,4), (f-2,4) j'ai respectivement 300, 50, 100.
Mais le code continue à tourner en vain.

[Kiouane]

J'ai réussi grâce à l'aide d'une personne. Ce que je voudrais savoir c'est : Comment affecter un format de chiffre à 1 décimale en script.

C'est bon je peux faire ça juste grâce à l'onglet format et après le calcul avec mon script ça se met au bon format automatiquement.

Merci.

[NoSmoking]

Comment affecter un format de chiffre à 1 décimale en script.

Toujours dans la documentation setNumberFormat(numberFormat).

PS : pourrais tu laisser ton résultat pour de possibles candidats à des conversions.

[Kiouane]

Oui bien sûr.

Je vais le faire ligne par ligne pour plus de détails :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
  var ss = SpreadsheetApp.getActiveSpreadsheet();
 var sheet = ss.getSheetByName("Feuille 1");
 var active = sheet.getActiveCell(); 
 var f = active.getRowIndex();

est équivalent à

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

f = ActiveCell.Row

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

r = Cells(f, 3).Value

est équivalent à

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

var r = sheet.getRange(rowIndex,3).getValue();

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
var C= 0;
var J = 0;
var i = f;

est équivalent à

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
C = 0
J = 0
i = f

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
  do{
    var cellData = sheet.getRange(i, 4).getValue();
 
    if(typeof(cellData) !=='string') { 
 
          if(cellData !== ''){ 
 
            C += cellData; 
            i --; 
            J++; 
 
          } else {      
                  sheet.getRange(f,7).setBackground('Orange');
                  break; 
          }
    }
 
    else{
          sheet.getRange(f,7).setBackground('Orange');
          break;
    }
 
  } while (C <= r);

est équivalent à

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Do Until C + Cells(i, 4).Value >= r
 
           C = C + Cells(i, 4)
           i = i - 1
           J = J + 1
           If Not IsNumeric(Cells(i, 4)) Then
           Exit Do
           if Not isText(Cells(i,4)) Then
           Exit Do
           End If
           Loop

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

sheet.getRange(f, 7).setValue(r/(C/J));

est équivalent à

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cells(f,7) = r/(C/J)

Voilà si vous avez des questions n'hésitez pas.

[Twysty]

Bonjour Kiouane, mon entreprise vient de passée tout ses fichier d'EXCEL a GOOGLE du coup toutes les macros utilisées ne fonctionne plus j'ai bien essayé de retranscrire et de déchiffrer mais je ne suis pas douée du coup je n'y arrive pas.
Je ne voudrais pas publier un autre message du même type mais je cherche quelqu'un qui pourrais m'aider a traduire entre le langage VBA et Editeur script .

Voici le code de la macro si jamais y a un moyen de m'aider et merci d'avance a celui ou celle qui me répondra

Code VBA :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
Sub COPIE_DES_DONNEES()
 
'Définition des variables
Dim base As Worksheet, Cell As Range, NoCol As Integer
Dim NoLig As Long, DerLig As Long, Var As Variant
Dim DerLigVar As Long, DerLigRes As Long
 
'Feuille comprenant la liste des pages à traiter avec la macro (PA, PB, etc.)
'Les noms de feuilles doivent être inscrits dans la colonne A sans cellule vide.
Set base = Worksheets("FEUILLES_A_TRAITER")
 
'Récupération du numéro de la dernière ligne de "FEUILLES_A_TRAITER"
DerLig = Split(base.UsedRange.Address, "$")(4)
 
'Dans "FEUILLES_A_TRAITER", on ne va parcourir que la première colonne (colonne A)
NoCol = 1
 
'Création d'une boucle pour traiter toutes les pages référencées dans "FEUILLES_A_TRAITER"
For NoLig = 1 To DerLig
 
'Page à traiter
Var = base.Cells(NoLig, NoCol)
 
'Récupération de la dernière ligne de la page à traiter
DerLigVar = Sheets(Var).Range("A65536").End(xlUp).Row
 
'Récupération de la ligne où coller les données dans la feuille "résumé".
DerLigRes = Sheets("résumé").Range("A65536").End(xlUp).Row + 1
 
'Copie des données de la page à taiter
ActiveWorkbook.Worksheets(Var).Range("A13:F" & DerLigVar).Copy
 
'Collage des données dans la feuille "Résumé". Collage spécial pour avoir les valeurs.
ActiveWorkbook.Worksheets("résumé").Range("A" & DerLigRes).PasteSpecial Paste:=xlPasteValues
 
'On traite la prochaine page
Next
Set base = Nothing
 
End Sub