Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel 'tain de père noël!!!

'tain de père noël!!!

19 réponses
Avatar
sabatier
rien dans mes souliers ce matin au réveil...
pas une fonction de AV
pas une proc de FS
pas une musique de laurent
pas un fichier daubé de geedee (mais je ne m'en plains pas car ça me
permet de vous écrire)
pas un scud de la misange
pas un MB de monique
pas une crisse de tire de mon ange
pas un alizé en boîte de J@@ (de toutes façons il aurait été capable de
le mettre sous vide)
pas un poème de serge (toujours préférable pourtant à ces calculs à la
chiche m'a eu)
pas un merci de philippe (je le soupçonne de les avoir portés à l'armée
du salut)
pas une raillerie de MacBob (qui ne ménage pourtant pas les vieux sous
prétexte qu'à marseille ils ont été moins nombreux qu'ailleurs à mourir
de la canicule)
pas un radar, ni de jacquouille, ni de sarkozy
pas un vbs de michel alias denis

seul un message de LL... à l'encre sympathique (comme lui, quoi,...quand
il se manifestait)

then I feel as a poor lonesome cowboy...
jps
Signaler un problème avec ce contenu

9 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
Pierre CFI [mvp]
je crois que j'ai trouvé plus simple
en A1 ="Sabatier for ever"
ne pas oublier les " "
j'ai pas testé sur toutes les versions excel :o((
:o)))))

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"Pierre CFI [mvp]" a écrit dans le message de news: ekU$
alors là !! chapeau, je me demandais bien ce qui allait en sortir de cette 'tain de formule : sababierforever dit "le restant de
la

colére des Dieux" :o))

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"garnote" a écrit dans le message de news: f2DGb.2164$
Comme ça, c'est parfait :

ÊR(82+COS(360*PI()/180))&CAR(ABS(ASIN(-0,5)*180/PI())*2+5)&
CAR((PGCD(24;36)*6)-6)&CAR(ABS(ASIN(-0,5)*180/PI())*2+5)&
CAR((DETERMAT({1.3.8.5;1.3.6.1;1.1.1.0;7.9.10.2})*-1)*4+4)&
CAR(COMBIN(8;2)*3-11)&CAR(ENT(69,9999))&CAR(LOG(8;2)^4+1)&
""&CAR(71-TAN(45*PI()/180))&CAR(PLAFOND(ASINH(10);1)^4-2)&
CAR(DEGRES(PI())-98)&""&CAR(EXP(LN(3))*20+9)&
CAR(LOG(8;2)^4+5)&CAR(FACT(4)+45)&CAR(81+COS(360*PI()/180))

397 caractères dans une formule le lendemain du Réveillon !
Qu'est-ce qu'on ne ferait pas pour consoler le maître absolu
de l'humour corrosif et du bombardement linguistique !

;-)))

Serge




"Maxence HUBICHE" a écrit dans le message de news:

Euh ...AV ...
J'ai une erreur d'exécution sur DETERMAT ... t'es Sûr de ta fonction là ?



:D










Avatar
AV
Ah que si !
Parce que PGCD .... tu auras du mal à l'avoir sinon (même sur un excel
franco-français :))


Exact !
J'étais branché sur DETERMAT !

Ben pour éviter l'utilitaire d'analyse, il n'y a qu'à remplacer la partie
CAR((PGCD(24;36)*6)-6)
par
CHOISIR(RACINE(16)-GAUCHE(COSH(4));"A";"B";"C";"D";"E")

C'est, d'ailleurs, bcp plus "chantant" !
AV

Avatar
garnote
Ne serait-ce point la journée des complexités
inutiles mais Ô combien instructives, n'est-il pas ?
En voici une autre :

Sub Horace()
mr = "212.335.101.359.704.347.320.353.704.137" & _
".101.323.308.101.359.338.356.350.101.329" & _
".308.101.305.320.350.101.179"
'Clé 1 :
a = 3: b = 5
m = Split(mr, ".")
For i = 0 To UBound(m)
m1 = m1 & Chr((m(i) - b) / a)
Next i
mr = "162.222.224.206.68.236.238.220.214.236.68" & _
".228.238.224.202.236.238.222.92"
'Clé 2 :
a = 2: b = 4
m = Split(mr, ".")
For i = 0 To UBound(m)
m2 = m2 & Chr((m(i) - b) / a)
Next i
mr = "797.825.741.230.769.741.811.699.825.741.818.230 " & _
".825.818.741.762.713.230.706.825.762.699.741.328"
'Clé 3 :
a = 7: b = 6
m = Split(mr, ".")
For i = 0 To UBound(m)
m3 = m3 & Chr((m(i) - b) / a)
Next i
mr = "539.413.377.377.377"
'Clé 4 :
a = 9: b = 8
m = Split(mr, ".")
For i = 0 To UBound(m)
m4 = m4 & Chr((m(i) - b) / a)
Next i
MsgBox m2 & vbNewLine & m3 & vbNewLine & m4, 48, m1
End Sub

Serge



"Maxence HUBICHE" a écrit dans le message de news:

Uniquement si tu actives dans les macros complémentaires les utilitaires
d'analyse VBA ... et encore, il manque un caractère dans ta correction...

celle-là est complète :
ÊR(82+COS(360*PI()/180))&CAR(ABS(ASIN(-0,5)*180/PI())*2+5)&
CAR((PGCD(24;36)*6)-6)&CAR(ABS(ASIN(-0,5)*180/PI())*2+5)&
CAR((DETERMAT({1.3.8.5;1.3.6.1;1.1.1.0;7.9.10.2})*-1)*4+4)&
CAR(COMBIN(8;2)*3-11)&CAR(ENT(69,9999))&CAR(LOG(8;2)^4+1)&
" "&CAR(71-TAN(45*PI()/180))&CAR(PLAFOND(ASINH(10);1)^4-2)&
CAR(DEGRES(PI())-98)&""&CAR(EXP(LN(3))*20+9)&
CAR(LOG(8;2)^4+5)&CAR(FACT(4)+45)&CAR(81+COS(360*PI()/180))

mouarf !


--
--------------------------------------------------------------------------
--

-
Maxence HUBICHE
Formateur et développeur indépendant
Modérateur/rédacteur sur http://www.developpez.com




Avatar
sabatier
assurément ta fonction est, pour moi, plus limpide, pierre, même si au bout de 2729 copiés-collés j'ai pu enfin faire marcher celle
d'AV modifiée maxence...
si j'étais sûr que tout cela part du coeur, je vous dirais bien merci mais le doute plane et me fait craindre l'atterrissage qui, j'en
ai peur, mène à l'atermoiement...
jps

"Pierre CFI [mvp]" wrote:

je crois que j'ai trouvé plus simple
en A1 ="Sabatier for ever"
ne pas oublier les " "
j'ai pas testé sur toutes les versions excel :o((
:o)))))

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"Pierre CFI [mvp]" a écrit dans le message de news: ekU$
alors là !! chapeau, je me demandais bien ce qui allait en sortir de cette 'tain de formule : sababierforever dit "le restant de
la

colére des Dieux" :o))

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"garnote" a écrit dans le message de news: f2DGb.2164$
Comme ça, c'est parfait :

ÊR(82+COS(360*PI()/180))&CAR(ABS(ASIN(-0,5)*180/PI())*2+5)&
CAR((PGCD(24;36)*6)-6)&CAR(ABS(ASIN(-0,5)*180/PI())*2+5)&
CAR((DETERMAT({1.3.8.5;1.3.6.1;1.1.1.0;7.9.10.2})*-1)*4+4)&
CAR(COMBIN(8;2)*3-11)&CAR(ENT(69,9999))&CAR(LOG(8;2)^4+1)&
""&CAR(71-TAN(45*PI()/180))&CAR(PLAFOND(ASINH(10);1)^4-2)&
CAR(DEGRES(PI())-98)&""&CAR(EXP(LN(3))*20+9)&
CAR(LOG(8;2)^4+5)&CAR(FACT(4)+45)&CAR(81+COS(360*PI()/180))

397 caractères dans une formule le lendemain du Réveillon !
Qu'est-ce qu'on ne ferait pas pour consoler le maître absolu
de l'humour corrosif et du bombardement linguistique !

;-)))

Serge




"Maxence HUBICHE" a écrit dans le message de news:

Euh ...AV ...
J'ai une erreur d'exécution sur DETERMAT ... t'es Sûr de ta fonction là ?



:D












Avatar
garnote
Ben voyons donc, ça part du coeur en choeur;
je mettrais ma main au feu que !

Et voici ma nouvelle adresse codée pour déjouer
les méchantes machines :

"6791236.7733961.7322436.5909761.7595536." & _
"7733961.8444836.6405961.2579236.6661561.7322436." & _
"7733961.6031936.6405961.8444836.8156736.7733961." & _
"8444836.8444836.6405961.8156736.1336336.7595536." & _
"6405961.8444836"

Si vous arrivez à décoder, c'est que je suis un bien piètre espion,
si non, je peux vous fournir la clé.

;-)))

Serge




"sabatier" a écrit dans le message de news:

assurément ta fonction est, pour moi, plus limpide, pierre, même si au
bout de 2729 copiés-collés j'ai pu enfin faire marcher celle

d'AV modifiée maxence...
si j'étais sûr que tout cela part du coeur, je vous dirais bien merci mais
le doute plane et me fait craindre l'atterrissage qui, j'en

ai peur, mène à l'atermoiement...
jps

"Pierre CFI [mvp]" wrote:

je crois que j'ai trouvé plus simple
en A1 ="Sabatier for ever"
ne pas oublier les " "
j'ai pas testé sur toutes les versions excel :o((
:o)))))

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"Pierre CFI [mvp]" a écrit dans le message de
news: ekU$


alors là !! chapeau, je me demandais bien ce qui allait en sortir de
cette 'tain de formule : sababierforever dit "le restant de



la
colére des Dieux" :o))

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"garnote" a écrit dans le message de news:
f2DGb.2164$



Comme ça, c'est parfait :

ÊR(82+COS(360*PI()/180))&CAR(ABS(ASIN(-0,5)*180/PI())*2+5)&
CAR((PGCD(24;36)*6)-6)&CAR(ABS(ASIN(-0,5)*180/PI())*2+5)&
CAR((DETERMAT({1.3.8.5;1.3.6.1;1.1.1.0;7.9.10.2})*-1)*4+4)&
CAR(COMBIN(8;2)*3-11)&CAR(ENT(69,9999))&CAR(LOG(8;2)^4+1)&
""&CAR(71-TAN(45*PI()/180))&CAR(PLAFOND(ASINH(10);1)^4-2)&
CAR(DEGRES(PI())-98)&""&CAR(EXP(LN(3))*20+9)&
CAR(LOG(8;2)^4+5)&CAR(FACT(4)+45)&CAR(81+COS(360*PI()/180))

397 caractères dans une formule le lendemain du Réveillon !
Qu'est-ce qu'on ne ferait pas pour consoler le maître absolu
de l'humour corrosif et du bombardement linguistique !

;-)))

Serge




"Maxence HUBICHE" a écrit dans le message de
news:





Euh ...AV ...
J'ai une erreur d'exécution sur DETERMAT ... t'es Sûr de ta
fonction là ?








:D















Avatar
garnote
Et si vous décodez, n'allez surtout pas mettre
mon adresse en clair ici-même !
Chat ben chaud craint l'eau frette !

;-)

Serge


"garnote" a écrit dans le message de news:
xAFGb.2699$
Ben voyons donc, ça part du coeur en choeur;
je mettrais ma main au feu que !

Et voici ma nouvelle adresse codée pour déjouer
les méchantes machines :

"6791236.7733961.7322436.5909761.7595536." & _
"7733961.8444836.6405961.2579236.6661561.7322436." & _
"7733961.6031936.6405961.8444836.8156736.7733961." & _
"8444836.8444836.6405961.8156736.1336336.7595536." & _
"6405961.8444836"

Si vous arrivez à décoder, c'est que je suis un bien piètre espion,
si non, je peux vous fournir la clé.

;-)))

Serge




"sabatier" a écrit dans le message de news:

assurément ta fonction est, pour moi, plus limpide, pierre, même si au
bout de 2729 copiés-collés j'ai pu enfin faire marcher celle

d'AV modifiée maxence...
si j'étais sûr que tout cela part du coeur, je vous dirais bien merci
mais


le doute plane et me fait craindre l'atterrissage qui, j'en
ai peur, mène à l'atermoiement...
jps

"Pierre CFI [mvp]" wrote:

je crois que j'ai trouvé plus simple
en A1 ="Sabatier for ever"
ne pas oublier les " "
j'ai pas testé sur toutes les versions excel :o((
:o)))))

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"Pierre CFI [mvp]" a écrit dans le message
de



news: ekU$
alors là !! chapeau, je me demandais bien ce qui allait en sortir de
cette 'tain de formule : sababierforever dit "le restant de



la
colére des Dieux" :o))

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"garnote" a écrit dans le message de news:
f2DGb.2164$



Comme ça, c'est parfait :

ÊR(82+COS(360*PI()/180))&CAR(ABS(ASIN(-0,5)*180/PI())*2+5)&
CAR((PGCD(24;36)*6)-6)&CAR(ABS(ASIN(-0,5)*180/PI())*2+5)&
CAR((DETERMAT({1.3.8.5;1.3.6.1;1.1.1.0;7.9.10.2})*-1)*4+4)&
CAR(COMBIN(8;2)*3-11)&CAR(ENT(69,9999))&CAR(LOG(8;2)^4+1)&
""&CAR(71-TAN(45*PI()/180))&CAR(PLAFOND(ASINH(10);1)^4-2)&
CAR(DEGRES(PI())-98)&""&CAR(EXP(LN(3))*20+9)&
CAR(LOG(8;2)^4+5)&CAR(FACT(4)+45)&CAR(81+COS(360*PI()/180))

397 caractères dans une formule le lendemain du Réveillon !
Qu'est-ce qu'on ne ferait pas pour consoler le maître absolu
de l'humour corrosif et du bombardement linguistique !

;-)))

Serge




"Maxence HUBICHE" a écrit dans le message
de





news:

Euh ...AV ...
J'ai une erreur d'exécution sur DETERMAT ... t'es Sûr de ta
fonction là ?








:D



















Avatar
Christian Herbé
rien dans mes souliers ce matin au réveil...


Tu devrais savoir que le père noël est une ordure !

Avatar
Papyty
Bonjour @ tous et à garnote :
Si vous arrivez à décoder, c'est que je suis un bien piètre espion,
si non, je peux vous fournir la clé.


J'ai pas trouvé mieux que ça

Sub Adresse()
mr = "6791236.7733961.7322436.5909761.7595536." & _
"7733961.8444836.6405961.2579236.6661561.7322436." & _
"7733961.6031936.6405961.8444836.8156736.7733961." & _
"8444836.8444836.6405961.8156736.1336336.7595536." & _
"6405961.8444836"
a = 0.0386: b = 0.5022
m = Split(mr, ".")
For i = 0 To UBound(m)
m1 = m1 & Chr(m(i) ^ b * a)
Next i
MsgBox m1, , "Papyty"
End Sub

C'est un bon début ;-)))
--
@+
Thierry
26/12/2003 16:05:45

Avatar
garnote
;-)))

Tu as donc ma nouvelle adresse !
Et on peut compliquer les choses en utilisant d'autres
fonctions admettant une réciproque.
Ici j'ai utilisé y = (a*x+b)^2 pour coder et
x=(racine(y)-b)/a^2 pour décoder.
a et b étant des nombres quelconques.
«Codage» code automatiquement un message
écrit en clair et «Décodage» décode le dernier
message codé.

Option Explicit
Dim Message As String
Dim a As Double, b As Double
Dim mc As String

Sub Codage()
Message = "Avez-vous eu plus de cadeaux que JPS à Noël ?"
Dim f As Integer
Dim j As Integer
mc = ""
a = WorksheetFunction.Pi
b = Exp(2)
f = Len(Message)
For j = 1 To f
mc = mc & (a ^ 2 * Asc(Mid(Message, j, 1)) + b) ^ 2 & "."
Next j
mc = "" & Left(mc, Len(mc) - 1) & ""
MsgBox mc, vbInformation, "Message codé à envoyer"
End Sub

Sub Décodage()
Dim m
Dim i As Integer
Dim md As String
m = Split(mc, ".")
For i = 0 To UBound(m)
md = md & Chr((Sqr(m(i)) - b) / a ^ 2)
Next i
MsgBox md, vbInformation, "Message décodé"
End Sub

Serge

"Papyty" a écrit dans le message de news:
1g47r27tm25vk$
Bonjour @ tous et à garnote :
Si vous arrivez à décoder, c'est que je suis un bien piètre espion,
si non, je peux vous fournir la clé.


J'ai pas trouvé mieux que ça

Sub Adresse()
mr = "6791236.7733961.7322436.5909761.7595536." & _
"7733961.8444836.6405961.2579236.6661561.7322436." & _
"7733961.6031936.6405961.8444836.8156736.7733961." & _
"8444836.8444836.6405961.8156736.1336336.7595536." & _
"6405961.8444836"
a = 0.0386: b = 0.5022
m = Split(mr, ".")
For i = 0 To UBound(m)
m1 = m1 & Chr(m(i) ^ b * a)
Next i
MsgBox m1, , "Papyty"
End Sub

C'est un bon début ;-)))
--
@+
Thierry
26/12/2003 16:05:45



1 2