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
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
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
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" <sebastien.cagn...@emballages-diffusion.com>
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
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
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" a écrit dans le message de news:
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
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" <boisgontier@hotmail.com> a écrit dans le message de news:
df9c87c8-db6d-4dfa-a5be-34e4f3dfd99a@b64g2000hsa.googlegroups.com...
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" <sebastien.cagn...@emballages-diffusion.com>
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
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" a écrit dans le message de news:
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
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" a écrit dans le message de news:
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 -
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" <sebastien.cagn...@emballages-diffusion.com>
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" <boisgont...@hotmail.com> a écrit dans le message de news:
df9c87c8-db6d-4dfa-a5be-34e4f3dfd...@b64g2000hsa.googlegroups.com...
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" <sebastien.cagn...@emballages-diffusion.com>
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 -
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" a écrit dans le message de news:
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 -