couleur dans userforme

Salut Christian,
La cellule à colorier doit dabors être sélectionnée, alors adapte à ton
code.
La proc crée un menu popup avec le contrôle de remplissage de cellules.
Pour l'ouvrir tu dois faire un clic droit sur ta form.
A mettre dans le module de ta form :

Private Sub UserForm_Initialize()
Dim Barre As CommandBar
Dim Btn As Object
'nettoie au cas ou ?
On Error Resume Next
CommandBars("MaBarre").Delete
On Error GoTo 0
Set Barre = CommandBars.Add("MaBarre", msoBarPopup)
With Barre
Set Btn = .Controls.Add(msoControlSplitButtonPopup, 1691)
With Btn
.Caption = "Couleurs"
End With
End With
Set Barre = Nothing
Set Btn = Nothing
End Sub

Private Sub UserForm_MouseDown(ByVal Button As Integer, _
ByVal Shift As Integer, _
ByVal X As Single, _
ByVal Y As Single)
If Button = 2 Then
CommandBars("MaBarre").ShowPopup
End If
End Sub


Private Sub UserForm_QueryClose(Cancel As Integer, _
CloseMode As Integer)
On Error Resume Next
CommandBars("MaBarre").Delete
End Sub

Hervé.

"Christian Raoux" <christian.raoux@free.fr> a écrit dans le message news:
XnF941365870EA18christianraoux@213.228.0.4...

Salut la liste

j'ai un userforme qui donne la possibilité à utilisateur de changer des
données dans une feuille "Parametres"

je ne veux pas donner la possibilité à l'utilisateur de modifier la
feuille, pas un autre moyen que l'userform

mon problême est :
pouvoir modifier les couleurs d'une cellule à partir de l'userform
l'utilisateur doit coisir dans une palette de couleurs
les couleurs pour les cellules A1, A2, A3, B1, B2, B3

merci davance

christian RAOUX
christian.raoux@wanadoo.fr

Bonjour,
en complément à la réponse d'Hervé, tu trouveras un classeur tout fait à
télécharger sur excelabo
http://www.excelabo.net/xl/messages.htm#changercouleurs
ce classeur utilise un code de J. Walkenbach

--
Misange migrateuse http://www.excelabo.net
==Disciplus a migré chez excelabo !======= mail : http://cerbermail.com/?k5Q8Dh2mta




"Christian Raoux" <christian.raoux@free.fr> a écrit dans le message de news:
XnF941365870EA18christianraoux@213.228.0.4...

Salut la liste

j'ai un userforme qui donne la possibilité à utilisateur de changer des
données dans une feuille "Parametres"

je ne veux pas donner la possibilité à l'utilisateur de modifier la
feuille, pas un autre moyen que l'userform

mon problême est :
pouvoir modifier les couleurs d'une cellule à partir de l'userform
l'utilisateur doit coisir dans une palette de couleurs
les couleurs pour les cellules A1, A2, A3, B1, B2, B3

merci davance

christian RAOUX
christian.raoux@wanadoo.fr