Explication sur une partie de code

[Fring]

Bonsoir !

J'aimerai que quelqu'un puisse m'expliquer la partie de code (en gras) d'un fichier que j'ai récupéré sur le net, svp :

Private Sub Worksheet_Change(ByVal Target As Range)
code = Worksheets("Accueil").Range("D10").Value
code2 = Int(Sqr(code)) * 135
If code2 = 21465 Then
MsgBox "Numéro de série correct. Version enregistrée"
Dim SH As Worksheet
For Each SH In ActiveWorkbook.Worksheets
Select Case SH.Visible
Case xlSheetHidden: SH.Visible = xlSheetVisible
End Select
Next SH
Sheets("MENU").Select
Else
MsgBox "Impossible de continuez, mauvais code"
End If
End Sub

Cdt,
Fring

 

[Pierrot93]

Re : Explication sur une partie de code

Bonsoir Fring

"int" renvoie la partie entière d'un nombre
"sqr" renvoie la racine carré d'un nombre

bonne soirée
@+

 

[Fring]

Re : Explication sur une partie de code

Bonsoir Fring

"int" renvoie la partie entière d'un nombre
"sqr" renvoie la racine carré d'un nombre

bonne soirée
@+

Donc si mes souvenirs "matheux" sont bons, le résultat ici est 25210.

Je pense...

Fring

 

[Pierrot93]

Re : Explication sur une partie de code

Re

tout dépend de la valeur de la variable "code", valorisée par le contenue de la cellule D10...

Maintenant pour l'extraction de la racine carré, t'en dirais pas plus...

bonne soirée
@+

 

[Fring]

Re : Explication sur une partie de code

Re

tout dépend de la valeur de la variable "code", valorisée par le contenue de la cellule D10...

Maintenant pour l'extraction de la racine carré, t'en dirais pas plus...

bonne soirée
@+

Je crois que l'on va en rester là pour ce soir !

A+

Fring

 

[mercant76]

Re : Explication sur une partie de code

bonsoir,

désolé de te contredire :21465 est le résultat de Int(Sqr(code)) * 135.

on divise 21465 par 135 = 159

racine carrée de 159 = 12.60952 ou 12.61 en arrondissant.


donc carré de 12.61 = 159.0121

159.0121 arrondi = 159 x 135 = 21465 soit code2

bonne nuit

@+

 

[mercant76]

Re : Explication sur une partie de code

bonsoir,

désolé de ME contredire:

quand on a trouvé 159, il ne faut pas prendre la racine carrée, mais le carré.

voilà, voilà

@+

 

[Fring]

Re : Explication sur une partie de code

bonsoir,

désolé de ME contredire:

quand on a trouvé 159, il ne faut pas prendre la racine carrée, mais le carré.

voilà, voilà

@+

Et le carré de 159 est 159 * 159 soit 25281 !

Merci et bonne soirée

FRING

 

[Excel_lent]

Re : Explication sur une partie de code

Salut à tous,

Tu as raison Pierrot quant au contenu de D10.
Fring

Donc si mes souvenirs "matheux" sont bons, le résultat ici est 25210.

étais-tu toujours présent à tes cours de Math ?

Pour ceux qui seraient tentés de l'utiliser, le code ci-dessus n'est intéressant que s'il y a plusieurs numéros à tester.

 

[JCGL]

Re : Explication sur une partie de code

Bonjour à tous,

Je pense que nous œuvrons dans le même sens : l'aide sans contrepartie.

A+