Une couleur au hasard avec choix de la couleur et du ton

Soyez le premier à donner votre avis sur cette source.

Snippet vu 485 fois

Contenu du snippet

Bonjour,

La fonction ci-dessous retourne une couleur au hasard en entrant :
1-La couleur (blanc,bleu,jaune,marron,noir,orange,rose,rouge,turquoise,vert,violet)
2-Le ton (clair,moyen,foncé)

Cela évite de chercher dans les codes RVB une couleur qu'on désire trouver.

Function couleur_au_hasard(couleur As String, ton As String)
        Dim couleurs(0) As Color
'couleurs au choix:blanc,bleu,jaune,marron,noir,orange,rose,rouge,turquoise,vert,violet
'tons au choix:clair, moyen,foncé
        If couleur = "noir" And ton = "foncé" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 0, 0, 0)
        If couleur = "noir" And ton = "foncé" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 0, 0, 51)
        If couleur = "noir" And ton = "foncé" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 0, 0, 102)
        If couleur = "noir" And ton = "foncé" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 0, 0, 153)
        If couleur = "bleu" And ton = "foncé" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 0, 0, 204)
        If couleur = "bleu" And ton = "foncé" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 0, 0, 255)
        If couleur = "marron" And ton = "foncé" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 0, 51, 0)
        If couleur = "marron" And ton = "foncé" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 0, 51, 51)
        If couleur = "marron" And ton = "foncé" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 0, 51, 102)
        If couleur = "bleu" And ton = "foncé" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 0, 51, 153)
        If couleur = "bleu" And ton = "foncé" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 0, 51, 204)
        If couleur = "bleu" And ton = "foncé" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 0, 51, 255)
        If couleur = "vert" And ton = "moyen" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 0, 102, 0)
        If couleur = "vert" And ton = "moyen" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 0, 102, 51)
        If couleur = "vert" And ton = "moyen" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 0, 102, 102)
        If couleur = "vert" And ton = "moyen" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 0, 102, 153)
        If couleur = "bleu" And ton = "moyen" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 0, 102, 204)
        If couleur = "bleu" And ton = "moyen" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 0, 102, 255)
        If couleur = "vert" And ton = "moyen" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 0, 153, 0)
        If couleur = "vert" And ton = "moyen" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 0, 153, 51)
        If couleur = "vert" And ton = "moyen" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 0, 153, 102)
        If couleur = "vert" And ton = "moyen" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 0, 153, 153)
        If couleur = "turquoise" And ton = "moyen" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 0, 153, 204)
        If couleur = "bleu" And ton = "moyen" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 0, 153, 255)
        If couleur = "vert" And ton = "clair" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 0, 204, 0)
        If couleur = "vert" And ton = "clair" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 0, 204, 51)
        If couleur = "vert" And ton = "clair" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 0, 204, 102)
        If couleur = "vert" And ton = "clair" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 0, 204, 153)
        If couleur = "turquoise" And ton = "clair" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 0, 204, 204)
        If couleur = "bleu" And ton = "clair" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 0, 204, 255)
        If couleur = "vert" And ton = "clair" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 0, 255, 0)
        If couleur = "vert" And ton = "clair" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 0, 255, 51)
        If couleur = "vert" And ton = "clair" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 0, 255, 102)
        If couleur = "vert" And ton = "clair" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 0, 255, 153)
        If couleur = "turquoise" And ton = "clair" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 0, 255, 204)
        If couleur = "bleu" And ton = "clair" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 0, 255, 255)
        If couleur = "noir" And ton = "foncé" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 51, 0, 0)
        If couleur = "noir" And ton = "foncé" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 51, 0, 51)
        If couleur = "noir" And ton = "foncé" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 51, 0, 102)
        If couleur = "noir" And ton = "foncé" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 51, 0, 153)
        If couleur = "bleu" And ton = "foncé" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 51, 0, 204)
        If couleur = "bleu" And ton = "moyen" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 51, 0, 255)
        If couleur = "noir" And ton = "foncé" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 51, 51, 0)
        If couleur = "noir" And ton = "foncé" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 51, 51, 51)
        If couleur = "noir" And ton = "foncé" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 51, 51, 102)
        If couleur = "noir" And ton = "foncé" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 51, 51, 153)
        If couleur = "bleu" And ton = "foncé" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 51, 51, 204)
        If couleur = "bleu" And ton = "moyen" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 51, 51, 255)
        If couleur = "vert" And ton = "foncé" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 51, 102, 0)
        If couleur = "vert" And ton = "foncé" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 51, 102, 51)
        If couleur = "vert" And ton = "foncé" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 51, 102, 102)
        If couleur = "vert" And ton = "foncé" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 51, 102, 153)
        If couleur = "bleu" And ton = "foncé" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 51, 102, 204)
        If couleur = "bleu" And ton = "moyen" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 51, 102, 255)
        If couleur = "vert" And ton = "moyen" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 51, 153, 0)
        If couleur = "vert" And ton = "moyen" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 51, 153, 51)
        If couleur = "vert" And ton = "moyen" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 51, 153, 102)
        If couleur = "turquoise" And ton = "moyen" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 51, 153, 153)
        If couleur = "turquoise" And ton = "moyen" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 51, 153, 204)
        If couleur = "bleu" And ton = "moyen" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 51, 153, 255)
        If couleur = "vert" And ton = "clair" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 51, 204, 0)
        If couleur = "vert" And ton = "clair" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 51, 204, 51)
        If couleur = "vert" And ton = "clair" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 51, 204, 102)
        If couleur = "vert" And ton = "clair" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 51, 204, 153)
        If couleur = "turquoise" And ton = "clair" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 51, 204, 204)
        If couleur = "bleu" And ton = "clair" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 51, 204, 255)
        If couleur = "vert" And ton = "clair" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 51, 255, 0)
        If couleur = "vert" And ton = "clair" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 51, 255, 51)
        If couleur = "vert" And ton = "clair" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 51, 255, 102)
        If couleur = "turquoise" And ton = "clair" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 51, 255, 153)
        If couleur = "turquoise" And ton = "clair" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 51, 255, 204)
        If couleur = "bleu" And ton = "clair" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 51, 255, 255)
        If couleur = "marron" And ton = "foncé" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 102, 0, 0)
        If couleur = "marron" And ton = "foncé" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 102, 0, 51)
        If couleur = "marron" And ton = "foncé" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 102, 0, 102)
        If couleur = "violet" And ton = "foncé" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 102, 0, 153)
        If couleur = "violet" And ton = "foncé" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 102, 0, 204)
        If couleur = "violet" And ton = "moyen" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 102, 0, 255)
        If couleur = "rouge" And ton = "foncé" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 102, 51, 0)
        If couleur = "rouge" And ton = "foncé" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 102, 51, 51)
        If couleur = "rouge" And ton = "foncé" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 102, 51, 102)
        If couleur = "violet" And ton = "foncé" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 102, 51, 153)
        If couleur = "violet" And ton = "foncé" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 102, 51, 204)
        If couleur = "violet" And ton = "moyen" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 102, 51, 255)
        If couleur = "marron" And ton = "moyen" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 102, 102, 0)
        If couleur = "marron" And ton = "moyen" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 102, 102, 51)
        If couleur = "marron" And ton = "moyen" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 102, 102, 102)
        If couleur = "marron" And ton = "moyen" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 102, 102, 153)
        If couleur = "violet" And ton = "moyen" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 102, 102, 204)
        If couleur = "violet" And ton = "moyen" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 102, 102, 255)
        If couleur = "vert" And ton = "moyen" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 102, 153, 0)
        If couleur = "vert" And ton = "moyen" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 102, 153, 51)
        If couleur = "vert" And ton = "moyen" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 102, 153, 102)
        If couleur = "vert" And ton = "moyen" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 102, 153, 153)
        If couleur = "bleu" And ton = "moyen" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 102, 153, 204)
        If couleur = "violet" And ton = "moyen" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 102, 153, 255)
        If couleur = "vert" And ton = "clair" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 102, 204, 0)
        If couleur = "vert" And ton = "clair" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 102, 204, 51)
        If couleur = "vert" And ton = "clair" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 102, 204, 102)
        If couleur = "turquoise" And ton = "clair" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 102, 204, 153)
        If couleur = "turquoise" And ton = "clair" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 102, 204, 204)
        If couleur = "bleu" And ton = "clair" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 102, 204, 255)
        If couleur = "vert" And ton = "clair" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 102, 255, 0)
        If couleur = "vert" And ton = "clair" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 102, 255, 51)
        If couleur = "vert" And ton = "clair" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 102, 255, 102)
        If couleur = "vert" And ton = "clair" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 102, 255, 153)
        If couleur = "vert" And ton = "clair" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 102, 255, 204)
        If couleur = "bleu" And ton = "foncé" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 102, 255, 255)
        If couleur = "rouge" And ton = "foncé" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 153, 0, 0)
        If couleur = "rouge" And ton = "foncé" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 153, 0, 51)
        If couleur = "rouge" And ton = "foncé" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 153, 0, 102)
        If couleur = "rouge" And ton = "moyen" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 153, 0, 153)
        If couleur = "violet" And ton = "moyen" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 153, 0, 204)
        If couleur = "violet" And ton = "moyen" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 153, 0, 255)
        If couleur = "rouge" And ton = "moyen" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 153, 51, 0)
        If couleur = "rouge" And ton = "moyen" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 153, 51, 51)
        If couleur = "rouge" And ton = "moyen" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 153, 51, 102)
        If couleur = "violet" And ton = "moyen" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 153, 51, 153)
        If couleur = "violet" And ton = "moyen" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 153, 51, 204)
        If couleur = "violet" And ton = "moyen" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 153, 51, 255)
        If couleur = "orange" And ton = "moyen" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 153, 102, 0)
        If couleur = "orange" And ton = "moyen" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 153, 102, 51)
        If couleur = "orange" And ton = "moyen" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 153, 102, 102)
        If couleur = "rose" And ton = "moyen" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 153, 102, 153)
        If couleur = "violet" And ton = "moyen" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 153, 102, 204)
        If couleur = "violet" And ton = "moyen" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 153, 102, 255)
        If couleur = "orange" And ton = "clair" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 153, 153, 0)
        If couleur = "orange" And ton = "clair" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 153, 153, 51)
        If couleur = "orange" And ton = "clair" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 153, 153, 102)
        If couleur = "orange" And ton = "clair" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 153, 153, 153)
        If couleur = "violet" And ton = "clair" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 153, 153, 204)
        If couleur = "violet" And ton = "clair" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 153, 153, 255)
        If couleur = "jaune" And ton = "clair" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 153, 204, 0)
        If couleur = "jaune" And ton = "clair" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 153, 204, 51)
        If couleur = "jaune" And ton = "clair" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 153, 204, 102)
        If couleur = "jaune" And ton = "clair" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 153, 204, 153)
        If couleur = "jaune" And ton = "clair" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 153, 204, 204)
        If couleur = "blanc" And ton = "clair" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 153, 204, 255)
        If couleur = "jaune" And ton = "clair" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 153, 255, 0)
        If couleur = "jaune" And ton = "clair" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 153, 255, 51)
        If couleur = "jaune" And ton = "clair" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 153, 255, 102)
        If couleur = "jaune" And ton = "clair" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 153, 255, 153)
        If couleur = "jaune" And ton = "clair" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 153, 255, 204)
        If couleur = "blanc" And ton = "clair" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 153, 255, 255)
        If couleur = "rouge" And ton = "foncé" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 204, 0, 0)
        If couleur = "rouge" And ton = "foncé" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 204, 0, 51)
        If couleur = "rouge" And ton = "foncé" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 204, 0, 102)
        If couleur = "violet" And ton = "moyen" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 204, 0, 153)
        If couleur = "violet" And ton = "moyen" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 204, 0, 204)
        If couleur = "violet" And ton = "moyen" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 204, 0, 255)
        If couleur = "rouge" And ton = "moyen" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 204, 51, 0)
        If couleur = "rouge" And ton = "moyen" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 204, 51, 51)
        If couleur = "rouge" And ton = "moyen" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 204, 51, 102)
        If couleur = "rose" And ton = "moyen" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 204, 51, 153)
        If couleur = "violet" And ton = "moyen" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 204, 51, 204)
        If couleur = "violet" And ton = "moyen" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 204, 51, 255)
        If couleur = "orange" And ton = "moyen" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 204, 102, 0)
        If couleur = "orange" And ton = "moyen" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 204, 102, 51)
        If couleur = "orange" And ton = "moyen" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 204, 102, 102)
        If couleur = "rose" And ton = "moyen" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 204, 102, 153)
        If couleur = "rose" And ton = "moyen" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 204, 102, 204)
        If couleur = "violet" And ton = "clair" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 204, 102, 255)
        If couleur = "orange" And ton = "clair" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 204, 153, 0)
        If couleur = "orange" And ton = "clair" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 204, 153, 51)
        If couleur = "orange" And ton = "clair" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 204, 153, 102)
        If couleur = "orange" And ton = "clair" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 204, 153, 153)
        If couleur = "violet" And ton = "clair" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 204, 153, 204)
        If couleur = "violet" And ton = "clair" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 204, 153, 255)
        If couleur = "jaune" And ton = "clair" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 204, 204, 0)
        If couleur = "jaune" And ton = "clair" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 204, 204, 51)
        If couleur = "jaune" And ton = "clair" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 204, 204, 102)
        If couleur = "jaune" And ton = "clair" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 204, 204, 153)
        If couleur = "jaune" And ton = "clair" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 204, 204, 204)
        If couleur = "blanc" And ton = "clair" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 204, 204, 255)
        If couleur = "jaune" And ton = "clair" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 204, 255, 0)
        If couleur = "jaune" And ton = "clair" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 204, 255, 51)
        If couleur = "jaune" And ton = "clair" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 204, 255, 102)
        If couleur = "jaune" And ton = "clair" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 204, 255, 153)
        If couleur = "jaune" And ton = "clair" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 204, 255, 204)
        If couleur = "blanc" And ton = "clair" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 204, 255, 255)
        If couleur = "rouge" And ton = "foncé" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 255, 0, 0)
        If couleur = "rouge" And ton = "foncé" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 255, 0, 51)
        If couleur = "rouge" And ton = "foncé" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 255, 0, 102)
        If couleur = "rouge" And ton = "foncé" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 255, 0, 153)
        If couleur = "violet" And ton = "moyen" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 255, 0, 204)
        If couleur = "violet" And ton = "moyen" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 255, 0, 255)
        If couleur = "rouge" And ton = "moyen" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 255, 51, 0)
        If couleur = "rouge" And ton = "moyen" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 255, 51, 51)
        If couleur = "rouge" And ton = "moyen" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 255, 51, 102)
        If couleur = "violet" And ton = "moyen" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 255, 51, 153)
        If couleur = "violet" And ton = "moyen" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 255, 51, 204)
        If couleur = "violet" And ton = "moyen" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 255, 51, 255)
        If couleur = "orange" And ton = "moyen" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 255, 102, 0)
        If couleur = "orange" And ton = "moyen" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 255, 102, 51)
        If couleur = "orange" And ton = "moyen" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 255, 102, 102)
        If couleur = "rose" And ton = "moyen" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 255, 102, 153)
        If couleur = "violet" And ton = "moyen" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 255, 102, 204)
        If couleur = "violet" And ton = "moyen" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 255, 102, 255)
        If couleur = "orange" And ton = "clair" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 255, 153, 0)
        If couleur = "orange" And ton = "clair" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 255, 153, 51)
        If couleur = "orange" And ton = "clair" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 255, 153, 102)
        If couleur = "orange" And ton = "clair" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 255, 153, 153)
        If couleur = "violet" And ton = "clair" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 255, 153, 204)
        If couleur = "violet" And ton = "clair" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 255, 153, 255)
        If couleur = "jaune" And ton = "clair" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 255, 204, 0)
        If couleur = "jaune" And ton = "clair" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 255, 204, 51)
        If couleur = "jaune" And ton = "clair" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 255, 204, 102)
        If couleur = "jaune" And ton = "clair" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 255, 204, 153)
        If couleur = "jaune" And ton = "clair" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 255, 204, 204)
        If couleur = "blanc" And ton = "clair" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 255, 204, 255)
        If couleur = "jaune" And ton = "clair" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 255, 255, 0)
        If couleur = "jaune" And ton = "clair" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 255, 255, 51)
        If couleur = "jaune" And ton = "clair" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 255, 255, 102)
        If couleur = "jaune" And ton = "clair" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 255, 255, 153)
        If couleur = "jaune" And ton = "clair" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 255, 255, 204)
        If couleur = "jaune" And ton = "clair" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 255, 255, 255)
        Dim random As New Random()
        If couleurs.Count > 1 Then
            Return couleurs(Random.Next(1, couleurs.Count - 1))
        Else
            Return Color.White
        End If
    End Function

A voir également

Ajouter un commentaire

Commentaires

vb95
Messages postés
1907
Date d'inscription
samedi 11 janvier 2014
Statut
Contributeur
Dernière intervention
19 juillet 2019
65 -
Bonsoir
Plusieurs choses :
1) L'utilisation des balises de code donnerait un code plus agréable à lire : https://codes-sources.commentcamarche.net/faq/11288-les-balises-de-code
Il me semble que on te l'ai déjà dit .
2) une collection List(of) éviterait de redimensionner à chaque le tableau des couleurs
3) Si je prends les 4 premiers If
If couleur = "noir" And ton = "foncé" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 0, 0, 0)
If couleur = "noir" And ton = "foncé" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 0, 0, 51)
If couleur = "noir" And ton = "foncé" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 0, 0, 102)
If couleur = "noir" And ton = "foncé" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 0, 0, 153)

Les 4 sont considérés comme des couleurs noir avec un ton foncé avec des paramètres de ton différent
De plus plus loin on retrouve encore des couleurs "noir avec ton foncé"
4) Il y a de l'optimisation à faire en exploitant les paramètres de Color.FromArgb et les 3 valeurs RGB associés à chaque couleur et le ton donné à cette couleur
michael59330
Messages postés
26
Date d'inscription
dimanche 27 janvier 2008
Statut
Contributeur
Dernière intervention
7 juillet 2019
-
Bonjour,

Je vous remercie pour votre réponse,

Concernant les balises, j'ai bien essayer d'en mettre mais les retours à la ligne avaient disparus, alors j'ai dû retirer les balises.

Les doublons présents dans la fonction sont volontaires afin que les toutes principales couleurs soient représentées, même si la différence ne se voit pas à l'oeil nu.

Belle journée,

Bien cordialement

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.