[Résolu] Besoin d\'aide traduction code

[Within Temptation]

[Résolu] Besoin d'aide traduction code

Voilà un morceau de code dont je n'arrive pas à traduire certaines parties, je vous le poste afin que quelqu'un m'aide à le déchiffrer.
Merci d'avance...

Sheets('sommaire').Select
ActiveSheet.Unprotect
For x = 4 To 19
Cells(x, 8).Select
y = ActiveCell.Value
If y > 1 Then
Selection.EntireRow.Hidden = True
End If
Next x
ActiveSheet.Protect
ActiveWindow.SelectedSheets.PrintOut Copies:=1


Ce que je ne comprends pas est en gras...

Within Temptation

Message édité par: within Temptation, à: 27/06/2006 16:53

 

[Hervé]

Re:Besoin d'aide traduction code

bonjour

en espérant que ceci te soit utile :

'sélectionne la feuille sommaire
Sheets('sommaire').Select
'déprotege la feuille active
ActiveSheet.Unprotect
'fait une boucle partant de 4 jusqu'a 19
'le bloc d'instruction entre for ...to et next
'sera répété jusqu'a que x soit = 19
For x = 4 To 19
'sélectionne la cellule à la ligne x et à la colonne 8
Cells(x, 8).Select
'initialise la variable y avec le contenue de la cellule active
y = ActiveCell.Value
'si y >1 alors
If y > 1 Then
'masque la ligne complete de la cellule active
Selection.EntireRow.Hidden = True
'fin de condition
End If
'incrementation de x
Next x
'protege la feuille active
ActiveSheet.Protect
'imprime les feuilles sélectionnées
ActiveWindow.SelectedSheets.PrintOut Copies:=1

salut

 

[Within Temptation]

Re:Besoin d'aide traduction code

Merci cela va m'être bien utile, je vais pouvoir la traduire en OOoBasic