PROGRAMME QUI CACHE DES DOSSIER DERIERE PLUSIEURS ICONE AU CHOIX
BruNews
Messages postés21040Date d'inscriptionjeudi 23 janvier 2003StatutModérateurDernière intervention21 août 2019
-
15 janv. 2004 à 20:46
Utilisateur anonyme -
18 mars 2004 à 19:55
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
Je te conseille un truc pour t'épargner bcp de lignes :
Tu remplaces :
If C = 1 Then
D = ".{992CFFA0-F557-101A-88EC-00DD010CCC48}"
End If
If C = 2 Then
D = ".{992CFFA0-F557-101A-88EC-00DD010CCC48}"
End If
If C = 3 Then
D = ".{00021400-0000-0000-C000-000000000046}"
End If
If C = 4 Then
D = ".{DBEADF00-C265-11D0-BCED-11A1C91AB50F}"
End If
If C = 5 Then
D = ".{FF393560-C2A7-11CF-BFF4-444553540000}"
End If
If C = 6 Then
D = ".{2227A280-3AEA-1069-A2DE-08002B30309D}"
End If
If C = 7 Then
D = ".{FBF23B42-E3F0-101B-8488-00AA003E56F8}"
End If
If C = 8 Then
D = ".{450D8FBA-AD25-11D0-98A8-0800361B1103}"
End If
If C = 9 Then
D = ".{21EC2020-3AEA-1069-A2DD-08002B30309D}"
End If
If C = 10 Then
D = ".{BD84B380-8CA2-1069-AB1D-08000948F534}"
End If
If C = 11 Then
D = ".{85BBD920-42A0-1069-A2E4-08002B30309D}"
End If
If C = 12 Then
D = ".{20D04FE0-3AEA-1069-A2D8-08002B30309D}"
End If
If C = 13 Then
D = ".{D6277990-4C6A-11CF-8D87-00AA0060F5BF}"
End If
If C = 14 Then
D = ".{208D2C60-3AEA-1069-A2D7-08002B30309D}"
End If
If C = 15 Then
D = ".{645FF040-5081-101B-9F08-00AA002F954E}"
End If
If C < 1 Then
MsgBox "t con ou koi le choix c entre 1 et 15"
End If
If C > 15 Then
MsgBox "t con ou koi le choix c entre 1 et 15"
End If
Par :
If C < 1 Or C > 15 Then
MsgBox "t con ou koi le choix c entre 1 et 15"
Else
D = Choose(C + 1, ".{992CFFA0-F557-101A-88EC-00DD010CCC48}", ".{992CFFA0-F557-101A-88EC-00DD010CCC48}", ".{00021400-0000-0000-C000-000000000046}", ".{DBEADF00-C265-11D0-BCED-11A1C91AB50F}", ".{FF393560-C2A7-11CF-BFF4-444553540000}", ".{2227A280-3AEA-1069-A2DE-08002B30309D}", ".{FBF23B42-E3F0-101B-8488-00AA003E56F8}", ".{450D8FBA-AD25-11D0-98A8-0800361B1103}", ".{21EC2020-3AEA-1069-A2DD-08002B30309D}", ".{BD84B380-8CA2-1069-AB1D-08000948F534}", ".{85BBD920-42A0-1069-A2E4-08002B30309D}", ".{20D04FE0-3AEA-1069-A2D8-08002B30309D}", ".{D6277990-4C6A-11CF-8D87-00AA0060F5BF}", ".{208D2C60-3AEA-1069-A2D7-08002B30309D}", ".{645FF040-5081-101B-9F08-00AA002F954E}")
End If
Et puis tu pourrais réfléchir pour éviter de recopier 2 fois le même code après le Z 1 et Z 2.
Sinon c'est bien =)
shadowmoy
Messages postés340Date d'inscriptionjeudi 25 juillet 2002StatutMembreDernière intervention25 août 2007 29 janv. 2004 à 05:49
longue vie à BruNews !! :op
kickbar
Messages postés44Date d'inscriptionsamedi 29 novembre 2003StatutMembreDernière intervention19 mars 2011 16 janv. 2004 à 20:15
oui il me semble que sa existe mais je c'est pas du tout commen l'utiliser.
ps : pour mon ortographe je ferai sa soit demains donc samedi soi dimanche
BruNews
Messages postés21040Date d'inscriptionjeudi 23 janvier 2003StatutModérateurDernière intervention21 août 2019 16 janv. 2004 à 16:58
regarde si 'Select case ' existe en vbscript, remplacerait bien tous ces if qui sont tous executes alors que quand 1 cas est trouve, on ne doit plus tester les autres.
kickbar
Messages postés44Date d'inscriptionsamedi 29 novembre 2003StatutMembreDernière intervention19 mars 2011 16 janv. 2004 à 16:50
bon ok je vais faire des effor dsl
mais commen vous la trouver la source?
BruNews
Messages postés21040Date d'inscriptionjeudi 23 janvier 2003StatutModérateurDernière intervention21 août 2019 16 janv. 2004 à 15:43
Arrete de faire ta mauvaise tete, personne n'est contre toi. On te demande juste un effort, c'est pas le bout du monde non ?
kickbar
Messages postés44Date d'inscriptionsamedi 29 novembre 2003StatutMembreDernière intervention19 mars 2011 16 janv. 2004 à 15:36
ok puisque tout le monde ici est contre moi bin Brunews enleve toute mais sources je trouverer bien un autre site qui accepte que l'on soit nul en ortographe
merci quan meme
cs_geco
Messages postés14Date d'inscriptionsamedi 8 juin 2002StatutMembreDernière intervention 4 février 2007 16 janv. 2004 à 15:04
Merci à BruNews de remettre les choses en place.
Un certain nombre de "membre" prend le site pour une cour de récréation, du moins je veux le croire, ne me dites pas que c'est inconsciemment, si c'était le cas "pauvre France". Il est vrai que l'Education Nationale a certainement beaucoup de responsabilité en la matière, mais tout de même...
J'en suis membre, peu actif (c'est vrai : 2 petites contributions), depuis plus de 3 ans, et j'ai beaucoup appris sur ce site. Alors, défendons le en le respectant et en respectant notre langue. De nombreux amis francophones étangers le suivent, quel regard peuvent-ils avoir sur de tels comportements ?
Je m'arrête là, excusez moi pour ce réquisitoire qui n'a rien à faire dans cette rubrique mais devrait être dans le forum, mais cette source de Kickbar a fait déborder "mon vase".
BruNews
Messages postés21040Date d'inscriptionjeudi 23 janvier 2003StatutModérateurDernière intervention21 août 2019 16 janv. 2004 à 12:25
geco, on ne peut mieux dire.
kickbar, je te parle maintenant en tant qu'ADMIN CS:
il n'y a pas de lieu particulier pour respecter son lectorat, c'est simplement une attitude a avoir partout. J'attends donc un effort de ta part pour tes prochaines sources.
En esperant avoir ete bien compris.
ciao...
cs_geco
Messages postés14Date d'inscriptionsamedi 8 juin 2002StatutMembreDernière intervention 4 février 2007 16 janv. 2004 à 12:11
Je trouve lamentable qu'on puisse prendre autant de liberté avec la langue française.
C'est à un manque de respect vis à vis des lecteurs éventuels. C'est se "foutre" du monde.
Il faut commencer par déchiffrer les commentaires avant de commencer à essayer de comprendre le sujet.
kickbar
Messages postés44Date d'inscriptionsamedi 29 novembre 2003StatutMembreDernière intervention19 mars 2011 15 janv. 2004 à 21:54
ouai dsl j'ai ecris l'explicationa toute vitesse j'etais presser j'ai pas wrod donc si tu la et que tu a le temp de le faire sa s'rer pas mal parsque j'ai la fleme de me retaper a faire sa uniquemen pour l'ortographe.
sinon tu le trouve commen le code
ta des truc a dire pour l'ameliorer ????
parsquie c gentil de me dire sa mais c pas un site pour l'ortographe lol
:-)
BruNews
Messages postés21040Date d'inscriptionjeudi 23 janvier 2003StatutModérateurDernière intervention21 août 2019 15 janv. 2004 à 20:46
Salut,
j'ai un conseil, tu copies tes commentaires et tu les colles dans Word, puis tu fais 'correction'. Si Word arrive a corriger, tu recopies ici sinon c'est que tu peux reecrire ton texte.
18 mars 2004 à 19:55
18 mars 2004 à 19:53
Tu remplaces :
If C = 1 Then
D = ".{992CFFA0-F557-101A-88EC-00DD010CCC48}"
End If
If C = 2 Then
D = ".{992CFFA0-F557-101A-88EC-00DD010CCC48}"
End If
If C = 3 Then
D = ".{00021400-0000-0000-C000-000000000046}"
End If
If C = 4 Then
D = ".{DBEADF00-C265-11D0-BCED-11A1C91AB50F}"
End If
If C = 5 Then
D = ".{FF393560-C2A7-11CF-BFF4-444553540000}"
End If
If C = 6 Then
D = ".{2227A280-3AEA-1069-A2DE-08002B30309D}"
End If
If C = 7 Then
D = ".{FBF23B42-E3F0-101B-8488-00AA003E56F8}"
End If
If C = 8 Then
D = ".{450D8FBA-AD25-11D0-98A8-0800361B1103}"
End If
If C = 9 Then
D = ".{21EC2020-3AEA-1069-A2DD-08002B30309D}"
End If
If C = 10 Then
D = ".{BD84B380-8CA2-1069-AB1D-08000948F534}"
End If
If C = 11 Then
D = ".{85BBD920-42A0-1069-A2E4-08002B30309D}"
End If
If C = 12 Then
D = ".{20D04FE0-3AEA-1069-A2D8-08002B30309D}"
End If
If C = 13 Then
D = ".{D6277990-4C6A-11CF-8D87-00AA0060F5BF}"
End If
If C = 14 Then
D = ".{208D2C60-3AEA-1069-A2D7-08002B30309D}"
End If
If C = 15 Then
D = ".{645FF040-5081-101B-9F08-00AA002F954E}"
End If
If C < 1 Then
MsgBox "t con ou koi le choix c entre 1 et 15"
End If
If C > 15 Then
MsgBox "t con ou koi le choix c entre 1 et 15"
End If
Par :
If C < 1 Or C > 15 Then
MsgBox "t con ou koi le choix c entre 1 et 15"
Else
D = Choose(C + 1, ".{992CFFA0-F557-101A-88EC-00DD010CCC48}", ".{992CFFA0-F557-101A-88EC-00DD010CCC48}", ".{00021400-0000-0000-C000-000000000046}", ".{DBEADF00-C265-11D0-BCED-11A1C91AB50F}", ".{FF393560-C2A7-11CF-BFF4-444553540000}", ".{2227A280-3AEA-1069-A2DE-08002B30309D}", ".{FBF23B42-E3F0-101B-8488-00AA003E56F8}", ".{450D8FBA-AD25-11D0-98A8-0800361B1103}", ".{21EC2020-3AEA-1069-A2DD-08002B30309D}", ".{BD84B380-8CA2-1069-AB1D-08000948F534}", ".{85BBD920-42A0-1069-A2E4-08002B30309D}", ".{20D04FE0-3AEA-1069-A2D8-08002B30309D}", ".{D6277990-4C6A-11CF-8D87-00AA0060F5BF}", ".{208D2C60-3AEA-1069-A2D7-08002B30309D}", ".{645FF040-5081-101B-9F08-00AA002F954E}")
End If
Et puis tu pourrais réfléchir pour éviter de recopier 2 fois le même code après le Z 1 et Z 2.
Sinon c'est bien =)
29 janv. 2004 à 05:49
16 janv. 2004 à 20:15
ps : pour mon ortographe je ferai sa soit demains donc samedi soi dimanche
16 janv. 2004 à 16:58
16 janv. 2004 à 16:50
mais commen vous la trouver la source?
16 janv. 2004 à 15:43
16 janv. 2004 à 15:36
merci quan meme
16 janv. 2004 à 15:04
Un certain nombre de "membre" prend le site pour une cour de récréation, du moins je veux le croire, ne me dites pas que c'est inconsciemment, si c'était le cas "pauvre France". Il est vrai que l'Education Nationale a certainement beaucoup de responsabilité en la matière, mais tout de même...
J'en suis membre, peu actif (c'est vrai : 2 petites contributions), depuis plus de 3 ans, et j'ai beaucoup appris sur ce site. Alors, défendons le en le respectant et en respectant notre langue. De nombreux amis francophones étangers le suivent, quel regard peuvent-ils avoir sur de tels comportements ?
Je m'arrête là, excusez moi pour ce réquisitoire qui n'a rien à faire dans cette rubrique mais devrait être dans le forum, mais cette source de Kickbar a fait déborder "mon vase".
16 janv. 2004 à 12:25
kickbar, je te parle maintenant en tant qu'ADMIN CS:
il n'y a pas de lieu particulier pour respecter son lectorat, c'est simplement une attitude a avoir partout. J'attends donc un effort de ta part pour tes prochaines sources.
En esperant avoir ete bien compris.
ciao...
16 janv. 2004 à 12:11
C'est à un manque de respect vis à vis des lecteurs éventuels. C'est se "foutre" du monde.
Il faut commencer par déchiffrer les commentaires avant de commencer à essayer de comprendre le sujet.
15 janv. 2004 à 21:54
sinon tu le trouve commen le code
ta des truc a dire pour l'ameliorer ????
parsquie c gentil de me dire sa mais c pas un site pour l'ortographe lol
:-)
15 janv. 2004 à 20:46
j'ai un conseil, tu copies tes commentaires et tu les colles dans Word, puis tu fais 'correction'. Si Word arrive a corriger, tu recopies ici sinon c'est que tu peux reecrire ton texte.