MSN9COLORIES2

Signaler
Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
-
Messages postés
331
Date d'inscription
mardi 12 novembre 2002
Statut
Membre
Dernière intervention
10 février 2009
-
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

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 ;).
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 ?
Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
35
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é & ""
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
Afficher les 6 commentaires