Msn9colories2

Soyez le premier à donner votre avis sur cette source.

Vue 2 464 fois - Téléchargée 278 fois

Description

Bonjour
Avec la participation de quelques sources qui se trouve sur ce site
Je me suis fait un petit envoi de message en couleur pour msn9. Sans référence Msn
Choix de couleur 1 et 2 écris en gras et souligné. Je continu a amélioré et peux être que j?y mettrai une mise à jour.
Je n?ai pas essayé avec les versions antérieures.

Conclusion :


N?hésiter pas sur vos commentaire merci.

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

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
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!
Afficher les 6 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.