#3 - la série pour Néo02 Mystery Cache

This cache has been archived.

-Yoda-: j'archive cette cache

More
Hidden : 5/6/2014
Difficulty:
5 out of 5
Terrain:
2 out of 5

Size: Size: small (small)

Join now to view geocache location details. It's free!

Watch

How Geocaching Works
Looking for a different adventure?

Please note Use of geocaching.com services is subject to the terms and conditions in our disclaimer.

Geocache Description:


une petite série pour fêter l'anniversaire de Néo02


Cette énigme utilise le même langage que celui utilisé pour la cache "clin d'oeil à Majorljc" mais ici un cran au dessus … Néo est obliger de trouver car c'est lui qui m'a fait découvrir ce langage .
Les coordonnées sont du type:
N49°22.??? et E003°19.??? Pour trouver les coordonnées, je vous propose le programme ci-dessous. Vous pouvez l'utiliser presque comme il est écrit ou le remodeler en gardant uniquement l'essentiel

Private Sub CommandButton1_Click()
 Union(Range( _
"CB33:CK33,CB47:CK47,CB34:CB46,CK34:CK46,CN33:CW33,CW34:CW47" _
), Range( _
"CZ33:DI33,CZ40:DH40,CZ47:DI47,DI34:DI46" _
)).Select
Cells(100, 100) = 1
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorDark1
.TintAndShade = -0.499984740745262
.PatternTintAndShade = 0
End With
Cells(1, 1).Select
neo = InputBox("et non, vous ne pouvez pas continuer :=) , il faut le mot de passe ... ", "erreur")
Feuil4.Cells(1, 1) = 1
If Feuil4.Cells(1, 1) = 1 Then
MsgBox "perdu ... retentez votre change ..."
Else
Feuil4.Select
Feuil4.CommandButton1_Click
feuil1.Select
cells(1,1).select
Selection.ClearContents
End If
 end Sub



Private Sub CommandButton1_Click() ... feuille 4
If Feuil1.Cells(100, 100) = 1 Then
Union(Range( _
"XBN1048458:XBW1048458,XBO1048465:XBW1048465,XBN1048472:XBW1048472" _
), Range( _
"XBN1048459:XBN1048471,XBW1048466:XBW1048471,XCA1048458:XCJ1048458" _
), Range( _
"XCA1048472:XCJ1048472,XCA1048465:XCI1048465,XCJ1048459:XCJ1048471" _
), Range( _
"XCN1048458:XCW1048458,XCN1048465:XCV1048465" _
), Range( _
"XCN1048472:XCW1048472,XCW1048459:XCW1048471,XCN1048459:XCN1048464" _
)).Select
With Selection.Interior
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorDark1
.TintAndShade = -0.499984740745262
.PatternTintAndShade = 0
End With
Else
MsgBox "erreur"
End If
Cells(1, 1).Select
 end Sub
n'oubliez pas l'indice dans le checker pour trouver les coordonnées de la #4

Additional Hints (No hints available.)



Advertising with Us