Convertisseur de couleurs Hexadécimal en Code RGB (Vice Versa)

Résolu
Drahnur2 Messages postés 31 Date d'inscription mercredi 28 juin 2006 Statut Membre Dernière intervention 9 janvier 2009 - 9 nov. 2006 à 09:58
Drahnur2 Messages postés 31 Date d'inscription mercredi 28 juin 2006 Statut Membre Dernière intervention 9 janvier 2009 - 10 nov. 2006 à 10:50
Voila je cherche a faire un convertisseur de couleur hexadécimale (ex: #562290) en code RGB (x, x, x) sur Excel.
J'ai trouver un code avec une message box mais ce que je cherche a faire en fait c'est qu'un utilisateur puisse entrer une valeur en Hexadécimal dans un cellulle prévue a cet effet et qu'en cliquant sur le bouton pour convertir cela affiche les chiffres convertis dans 3 cellules différentes ... J'ai un bout de code mais cela ne fonctionne pas ... :

Private Sub ConvertirHexDec_Click()

On Error GoTo Annuler
Dim Couleurs As Long
Couleurs = ActiveCell.Offset(3, 1).Value
If Couleurs > 16777215 Or Couleurs < 0 Then MsgBox "Erreur veuillez recommencer": GoTo Annuler
ActiveCell.Offset(3, 2).Value = Couleurs - (256 * Int((Couleurs - (Int(Couleurs / 65536) * 65536)) / 256) + (65536 * Int(Couleurs / 65536)))
ActiveCell.Offset(3, 3).Value = Int((Couleurs - (Int(Couleurs / 65536) * 65536)) / 256)
ActiveCell.Offset(3, 4).Value = Int(Couleurs / 65536)
Annuler:
End Sub

21 réponses

Drahnur2 Messages postés 31 Date d'inscription mercredi 28 juin 2006 Statut Membre Dernière intervention 9 janvier 2009
10 nov. 2006 à 10:50
Mal recopié le nom autan pour moi merci je passe les réponses qui m'ont aidée en réponse accéptée Merci encore !
0
Rejoignez-nous