Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Explication sur une partie de code

F

Fring

XLDnaute Nouveau
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
 
Trier par date Trier par votes

Pierrot93

XLDnaute Barbatruc
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
@+
 
Vote positif 0 Vote négatif
M

mercant76

XLDnaute Impliqué
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

@+
 
Vote positif 0 Vote négatif

Excel_lent

XLDnaute Impliqué
Re : Explication sur une partie de code

Salut à tous,

Tu as raison Pierrot quant au contenu de D10.
Fring
Fring à dit:
Donc si mes souvenirs "matheux" sont bons, le résultat ici est 25210.
Cliquez pour agrandir...
é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.
 

Pièces jointes

  • Mauvais Code E.zip
    5.2 KB · Affichages: 34
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

C
  • Question
XL 2021 Positionnement sur une cellule en fonction de la date, du jour et de l'heure
Réponses
2
Affichages
420
clausen
C
I
  • Résolu(e)
Microsoft 365 [RESOLU] Boucler sur une partie de code
Réponses
5
Affichages
611
Icedarts
I
M
  • Question
XL 2016 Impression d'un rapport PDF depuis une URL avec VBA
Réponses
3
Affichages
828
mrcooll
M
  • Question
XL 2021 Exportation feuille msgbox yes no avec module Thisworkbook
2
Réponses
21
Affichages
1 K
Nicolas JACQUIN
U
  • Question
Autres Enregistrer sur Onglet TOTO
Réponses
2
Affichages
503
un internaute
U
  • Question
XL 2010 Rajouter une procédure dans ce Code
Réponses
4
Affichages
713
MuscatMimi
T
  • Question
Microsoft 365 Cacher / détailler certaines colonnes dans certains onglets avec mot de passe
Réponses
6
Affichages
639
ThierryP
T
U
  • Résolu(e)
Autres Mettre en couleur ligne avec VBA car MFC occupées (Excel 2003)
2
Réponses
15
Affichages
1 K
un internaute
U
J
  • Question
Microsoft 365 Bouton modifier en mode xlsheethidden
Réponses
4
Affichages
644
soan
S
S
  • Question
XL 2010 afficher les feuilles qui comporte une même partie de noms d'onglets
Réponses
6
Affichages
1 K
submarine22
S
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…