MSN9COLORIES2

Commentaire de PCPT le 08/02/2009 16:08:57 administrateur CS

salut,


quelques conseils en vrac :


# Text5 = "0"
# If Text5 = "0" Then
à quoi bon tester, tu modifies la valeur toi-même...



#Image2(Index).BorderStyle = 1
préfère les constantes :
Image2(Index).BorderStyle = vbFixedSingle



#Text5 = Text5 + 1
tu additionnes un numérique à une string?
Text5.Text = CStr(Val(Text5.Text) + 1)



#If Text5 = "3" Then
#Call Image2_DblClick(Index)
#If Text5 = "1" Then
comment text5 pourrait valoir à la fois "3" et "1" ?



#If Index = "5" Then
#If text2 = "" Then
#text2 = "[c=50]"
pas "[c=5]" plutôt ?



#If Index = "0" Then
index est un integer, pourquoi tu testes sa valeur string?....



# If Index = "0" Then
# If Text2 = "" Then
# Text2 = "[c=0]"
# Else
# Text3 = "[/c=0]"
#
# End If
# End If
# If Index = "1" Then
# If Text2 = "" Then
# Text2 = "[c=1]"
# Else
# Text3 = "[/c=1]"
#
# End If
# End If
etc...

indente ton code, c'est vraiment difficile à relire

pense à SELECT CASE
ici tu testes tous les cas de figures inutilement

et même pour gagner un peu en ligne ici tu peux lire tes correspondances dans un tableau (éventuellement généré à chaque click)
plus de 400 lignes se remplacent donc ainsi :

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 = "[/c=" & viCorresp & "]"
End If



juste survolé...
*fait surtout attention à tes types
*essaye de prendre plus de temps sur la conception avant de te lancer dans le code
*utilise les propriétés des contrôles (et non le contrôle lui-même), çà aide en lisibilité et en debugging


bon courage

Commentaire de LolPiratas le 08/02/2009 17:29:04

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 = "[/c=" & 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

Commentaire de LolPiratas le 08/02/2009 18:34:01

je te remerci j'ai vraiment apris quelque chose d'interessant. Niveau graphisme j'espere que cela vous plait ?