Convertisseur de couleurs Hexadécimal en Code RGB (Vice Versa) [Résolu]

Signaler
Messages postés
31
Date d'inscription
mercredi 28 juin 2006
Statut
Membre
Dernière intervention
9 janvier 2009
-
Messages postés
31
Date d'inscription
mercredi 28 juin 2006
Statut
Membre
Dernière intervention
9 janvier 2009
-
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

Messages postés
31
Date d'inscription
mercredi 28 juin 2006
Statut
Membre
Dernière intervention
9 janvier 2009

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 !