Bonjour,

je bute sur un problème bizarre (pour moi !) je souhaite que l'utilisateur de mon fichier excel puisse choisir la couleur d'une cellule via un userform, puis que la valeur de cette couleur puisse être enregistrée, puis réutilisée par la suite. j'ai donc écrit le bout de code suivant :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Dim couleur As Long
 
'pour que l'utilisateur puisse choisir sa couleur (c'est la case F15 qui est sélectionnée)
Private Sub UserForm_Initialize()
        i = Application.Dialogs(xlDialogPatterns).Show
    End Sub
 
' pour récupérer la valeur de la couleur
Private Sub CommandButton1_Click()
 Sheets("fiche").Activate
couleur = Range("F15").Interior.ColorIndex
 
'un test pour vérifier que la couleur a bien été récupérée
Range("F18").Interior.ColorIndex = couleur
End Sub
ça marche presque car il y a un léger décalage dans la couleur qui est en générale plus claire et je ne vois pas pourquoi. Merci de m'éclairer sur ce point