mENU DEROULANT pour choisir couleur de fond

Le
SEBI
Bonjour a tous
Je cherche a faire un menu deroulant dans une case afin de pouvoir chaisir
la couleur de fond. Pouvez vous m'indiquer la marche a suivre. Merci
d'avance
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
JB
Le #5444131
Bonjour,


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect([A1:C20], Target) Is Nothing Then
retour = Application.Dialogs(xlDialogPatterns).Show
End If
End Sub

JB

On 11 avr, 13:25, "SEBI" wrote:
Bonjour a tous
Je cherche a faire un menu deroulant dans une case afin de pouvoir chaisir
la couleur de fond. Pouvez vous m'indiquer la marche a suivre. Merci
d'avance


SEBI
Le #5444091
Bonjour JB
Je ne comprend pas ce que tu m'as ecrit.
Dans ma liste deroulante j'aimerai avoir le choix de 3 couleurs differente
pour remplir ma cellule
"JB"
Bonjour,


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect([A1:C20], Target) Is Nothing Then
retour = Application.Dialogs(xlDialogPatterns).Show
End If
End Sub

JB

On 11 avr, 13:25, "SEBI" wrote:
Bonjour a tous
Je cherche a faire un menu deroulant dans une case afin de pouvoir
chaisir
la couleur de fond. Pouvez vous m'indiquer la marche a suivre. Merci
d'avance





JB
Le #5444051
Voir PJ

http://cjoint.com/?elo7lFy2kY

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect([planning], Target) Is Nothing Then
On Error Resume Next
Target.Interior.ColorIndex = [couleurs].Find(Target,
LookAt:=xlWhole).Interior.ColorIndex
If Err = 0 Then
Application.EnableEvents = False
Target.ClearContents
Application.EnableEvents = True
End If
End If
End Sub

JB

On 11 avr, 14:17, "SEBI" wrote:
Bonjour JB
Je ne comprend pas ce que tu m'as ecrit.
Dans ma liste deroulante j'aimerai avoir le choix de 3 couleurs differente
pour remplir ma cellule
"JB"



Bonjour,

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect([A1:C20], Target) Is Nothing Then
 retour = Application.Dialogs(xlDialogPatterns).Show
End If
End Sub

JB

On 11 avr, 13:25, "SEBI" wrote:
Bonjour a tous
Je cherche a faire un menu deroulant dans une case afin de pouvoir
chaisir
la couleur de fond. Pouvez vous m'indiquer la marche a suivre. Merci
d'avance- Masquer le texte des messages précédents -



- Afficher le texte des messages précédents -




Publicité
Poster une réponse
Anonyme