MSN9COLORIES2

Messages postés
13298
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
- - Dernière réponse : TheSin
Messages postés
331
Date d'inscription
mardi 12 novembre 2002
Statut
Membre
Dernière intervention
10 février 2009
- 9 févr. 2009 à 16:58
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/49218-msn9colories2

TheSin
Messages postés
331
Date d'inscription
mardi 12 novembre 2002
Statut
Membre
Dernière intervention
10 février 2009
-
Juste pour information, ce n'est pas la version 9 de msn, mais la version 2009 ou version 14 ;).
LolPiratas
Messages postés
80
Date d'inscription
mardi 13 août 2002
Statut
Membre
Dernière intervention
15 décembre 2010
-
je te remerci j'ai vraiment apris quelque chose d'interessant. Niveau graphisme j'espere que cela vous plait ?
PCPT
Messages postés
13298
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
28 -
si INDEX = 18, donc la valeur 19 (on commence à 0 avec les contrôles mais à 1 avec le tableau de cet exemple), tu voudrais connaître "37"
par la méthode choose on va donc récupérer la 19ème valeur (Index + 1) dans la suite indiquée, qui est bien 37

1 -> 0
2 -> 1
3 -> 2
...
17 -> 16
18 -> 39
19 -> 37

on a donc 37 en variant (dans viCorresp)si text2 "" (plus proprement si la taille de la propriété text de text2 0)
zone_2 = "[c=" & ce_37_RéCUPéRé & "]"
sinon
zone_3 = "& ce_37_RéCUPéRé & ""
LolPiratas
Messages postés
80
Date d'inscription
mardi 13 août 2002
Statut
Membre
Dernière intervention
15 décembre 2010
-
Dim viCorresp As Variant
viCorresp = VBA.Interaction.Choose(Index + 1, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 39, 37, 38, 18, 19, 20, 21, 22, 23, 24, 41, 40, 36, 27, 28, 29, 30, 31, 32, 33, 55, 58, 57, 45, 46, 47, 48, 49, 50, 51, 61, 62, 63, 64, 65, 66, 67)

If LenB(text2.Text) = 0 Then
text2.Text = "[c=" & viCorresp & "]"
Else
text3.Text = "& viCorresp & ""
End If
Peu tu m’éclairer sur se code plus haut car je ne le comprends pas trop bien.
Car exemple : image2 (index) qui est égal à 18
le code de couleur c=37 ne correspond pas a l’index de l’image( 18) est pourtant cela fonctionne il me prend la bonne couleur
If Index = "18" Then
If Text2 = "" Then
Text2 = "[c=37]"
Else
Text3 = "/c=37"

End If
LolPiratas
Messages postés
80
Date d'inscription
mardi 13 août 2002
Statut
Membre
Dernière intervention
15 décembre 2010
-
merci pour tes conseils. Je vais revoir tout ca!