11000 messages pour staple

[david84]

Bravo à JM pour ses 11000 messages. Maître VBAiste et pas manchot en formules tu es l'un des piliers d'XLD.
Merci pour ton implication sur le forum et pour tes propositions que je lis toujours avec plaisir et curiosité. Petit message de compassion au passage à la touche F1 de ton clavier.
A+

 

[Brigitte]

Re : 11000 messages pour staple

Bonsoir David, le fil, le forum, JM

Je me joins à david pour te féliciter. A bientôt en débardeur, bronzé, une pinte de coca cola sur l'échafaudage du chantier xld. Euh je m'égare, là.

 

[Modeste]

Re : 11000 messages pour staple

Salut tout le monde,

Visez-moi l'agrafe, qui retrouve une seconde jeunesse, excitée comme une puce bretonne sur le seuil d'un chenil plein d'épagneuls. Rien que pour le chantier, je suis certain qu'en 3 jours, il a posté plus de messages que moi en un an
Il va aller se coincer les doigts entre deux touches du clavier et on sera bons pour une déclaration d'accident, plutôt que de variable! Que quelqu'un lui fasse prendre ses cachets, nom d'un chien!

Félicitations ... tout de même

 

[Tibo]

Re : 11000 messages pour staple

Bonjour,

Félicitations à JM pour ce franchissement.

Un salut de la part d'un formuliste qui ne comprend pas grand chose à tes talents de Vbaïste émérite.

Bon dimanche à toi

@+

 

[Compte Supprimé 979]

Re : 11000 messages pour staple

Bonjour à tous,

Punaise ça doit faire mal au poigné d'agraffer tous ses messages

JM

A+

 

[MJ13]

Re : 11000 messages pour staple

Bonjour à tous

Félicitations JM pour ton nouveau passage avec tes solutions Vbaïstiques toujours au top .

En plus je vois que tu t'es inscrit au chantier, alors, ça va donner .

 

[tototiti2008]

Re : 11000 messages pour staple

Bonjour à tous,

Toutes mes félicitatios à Staple pour son passage des 11000 messages, impressionnant.

Merci de ce que tu apportes au forum, et à bientôt j'espère

 

[JCGL]

Re : 11000 messages pour staple

Bonjour à tous,
Salut l'Agrafe,

Félicitations...
Toujours un plaisir de lire tes codes.

A + à tous

 

[Pierrot93]

Re : 11000 messages pour staple

Bonjour à tous,

félicitations à Jean-Marie pour ce passage...

bonne journée
@+

 

[JNP]

Re : 11000 messages pour staple

Bonjour le fil ,

Après un petit coup de fatigue (et de lassitude ), c'est avec plaisir que j'ai vu Jean-Marie revenir et s'inscrire pour le chantier !

Toutes mes félicitations pour ce 11ème passage de cap !

A bientôt sur les fils

 

[hoerwind]

Re : 11000 messages pour staple

Bonjour à vous tous,

Je me mettrais bien au VBA, rien que pour avoir le plaisir d'essayer de comprendre ce que tu écris, mais il me reste encore du chemin à parcourir !

Toutes mes félicitations.

 

[Efgé]

Re : 11000 messages pour staple

Bonjour,
Merci, grand merci, à Staple pour les exemples laissés de gauche et de droite, qui me premettent de comprendre jusqu'oû je ne suis pas arrivé ...
Amicalement
Fred

 

[Staple1600]

Re : 11000 messages pour staple

Bonsoir à tous

Je laisserai VBA parler pour moi

Sub a_tous()
Const XLD$ = "http://www.excel-downloads.com/forum/members/"
Const TMW$ = "077101114099105"
Dim mArr, strR$, tp$, z$, TEF$, mica&, cami&
mArr = Split("dugenou²kjin²skoobi²efge²hoerwind²jnp²pierrot93²jcgl²tototiti2008²mj13²brunom45²tibo²carcharodon-carcharias²modeste²brigitte²david84", "²")
For mica = 0 To UBound(mArr)
tp = tp & XLD & mArr(mica) & ".html" & vbCrLf
Next mica
z = StrConv(Split(Split(Split(tp, vbCrLf)(Int(Rnd * 11) + 1), "/")(5), ".")(0), vbProperCase)
For cami = 1 To Len(TMW) Step 3
TEF = TEF & Chr(Mid(TMW, cami, 3) * 1 + 1 - 1 + 2 - 2 + 3 - 3)
Next cami
MsgBox TEF & Space(2) & z
End Sub

PS: je ne maitrise pas le hasard

 

[JNP]

Re : 11000 messages pour staple

Re ,

PS: je ne maitrise pas le hasard

Je comprends pourquoi je ne suis pas joueur, il m'a fallu plus de 50 déclenchements pour que tu me remercies ...
Tu aurais pu favoriser le sort avec Application.UserName, ça aurait marché chez moi ...
Bonne soirée

 

[Staple1600]

Re : 11000 messages pour staple

Bonsoir JNP

Oui, mais cela aurait moins drôle

(Et franchement j 'ai zappé Application.Username en écrivant cette "ludimacro")

PS: merci pour ton idée de chantier, elle m'a redonné du peps pour mettre mon nez au carreau d'XLD