[Résolu] Macro : comprendre et traduire le code

[Within Temptation]

Bonjour, dans le cadre d'un stage en entreprise, je travaille sous excel et openoffice calc.

Le problème est que les macros ne sont pas compatibles d'un logiciel à l'autre, il faut donc que je traduise les macros écrites en visual basic en macros OObasic, pour cela il faut que je comprenne les actions que font les macros, et c'est là que je galère.

C'est pour cela que j'aimerais, si possible que quelqu'un m'indique ce que doit faire ce morceau de macro :


For i = 1 To 673 Step 56 ' Pour i de 1 à 673 pas 56 '

If Cells(i, "G") <> "" Then ' Si ??? différent de rien alors '

Range(Cells(i, "A"), Cells(i + 54, "G")).Select ' ??? '

EDIT ' ??? '

End If ' fin si '

Next i ' fin pour '


If Range("P1") <> "" Then ' si ??? différent de rien alors '

Range("J1:P55").Select ' ??? '

EDIT '???

End If ' fin si '

Mon problème de compréhension est représenté par les ' ??? ' dans le code.

Je remercie d'avance ceux qui prendront la peine de lire ce message et ceux qui pourront m'aider.

Within Temptation

[nouv]

salut,
For i = 1 To 673 Step 56 ' Pour i de 1 à 673 pas 56 '

If Cells(i, "G") <> "" Then ' Si cellule Gx (x est = à 1,56,112 etc...)différent de rien alors '

Range(Cells(i, "A"), Cells(i + 54, "G")).Select ' selectionner cellule de Ax à Gx+54 '

EDIT ' doit faire référence à une autre macro ou une autre partie de la macro nommée edit: '

End If ' fin si '

Next i ' fin pour passer au suivant i=1 puis i=56 etc...'


If Range("P1") <> "" Then ' si cellule P1 différent de rien alors '

Range("J1:P55").Select ' la plage de cellule de J1 à P55 '

EDIT '???même chose que ci dessus

End If ' fin si '

><>

[Within Temptation]

merci, je pense que ça va bien me dépanner