Formule ou macro Résolu/Fermé

Question

Salut,

Voici un exemple pour mon problème.

Voila, j'ai dans un fichier excel créer un cercle "Ellipse" et j'ai créer une liste déroulante avec :

CHOIX 1
CHOIX 2

Je voudrai si c'est possible faire en sorte que lorsque je choisi dans la liste CHOIX 1 que le cercle devienne bleu et si c'est CHOIX 2 qu'il devienne rouge

Comment faire ?

Merci

Configuration: Processeur Intel Pentium Core 2 Duo E7500 2.93 Ghz Socket 775 + Ventirad Zalman CNPS 9900 LED 
- Carte mère Gigabyte EP45-UD3LR 
- 2 Kit Corsair Dual Channel DDR2, 2 x 2 Go, PC2-8500, Dominator 
- Carte Graphique Gigabyte GeForce 9800GT, PCI-E2, 1024 Mo 
- DD 500go Western Digital Caviar Green pour OS Win 7 64 bits 
- DD 500go Western Digital Caviar Green 
- DD 1.5 To Western Digital Caviar Green 
- DD 36,7go Western Digital Raptor 10000tr/min cache 8mo Sata150 
- DD 200go Maxtor 7200tr/min cache 8mo Sata150 
- Boitier Tour avec fenêtre Thermattake XaserIII Skull 
- Alimentation modulaire Everest 800Watts, Fortron 
- Ecran 22" Sansung P2270H réglé sur un affichage 1920 par 1080 
- Graveur DVD-RW Sony AD-7241S-0B, 24x 
- Carte d'acquisition Pinnacle Studio MovieBox DV - IEEE 1394 
- Clavier et sourie Logitech Bluetooth Cordless Desktop MX5500 Revolution 
- Connection Wanadoo ADSL 16Mega LiveBox 
- Le tous mis sous onduleur (PC+Ecran) 
 
+ 2° PC en réseau WiFi 
- PIV 3.0 Ghz 
- CM P4P800 E Deluxe 
- 1024mo de DDR2700 (2x512) 
- Video GeForce FX5500 Inno 3D 256mo de ram 
- DD 80go DiamondMax Plus9 7200tr/min cache 8mo IDE pour OS XP Pro 
- DD 40go Seagate 7200tr/min cache 8mo IDE 
- Boitier moyen tour standard avec alim 250Watts 
- Ecran 19" iSonic réglé sur un affichage 1280 par 1024 
- Graveur DVD-RW Pioneer DVR-107D 
- Clavier et sourie Logitech Bluetooth MX900
- Le tous mis sous onduleur (PC+Ecran) 
 
+ 3° PC en réseau WiFi 
- Acer Aspire 9410Z, OS Win 7 32 bits

Gord21 · Answer

Bonsoir,
Voici une proposition :
http://www.cijoint.fr/cjlink.php?file=cj201003/cijU2D1k1n.xls

N'hésite pas si tu as des questions.

Mike-31 · Answer

Salut,

Autre code plus basique

https://www.cjoint.com/?dAwvZadtmd

vcloclo1 · Answer

Salut,

@ Gord21
Ton code marche mais moi je veux que le fond change de couleur, pas seulement le contour.

@ Mike-31
J'ai une erreur de débogage

Merci

Mike-31 · Answer

Re, 

Bizarre, je viens de le retester sans problème 

A+ 
Mike-31 

Une période d'échec est un moment rêvé pour semer les graines du savoir.

Mike-31 · Answer

Re,
Salut Gord21,

Si le code à été recopié ou un rond redessiné il est possible que la shape ne corresponde plus à oval 1 ou ellipse 1 dans ce cas adapter le code ou renommer la shape

Mike-31 · Answer

Re,

Il serait possible de faire une boucle, mais je pense dans ton cas rester simple et doubler le code en gras.
Soit l'autre forme est piloté par la même liste déroulante et on prend référence sur la cellule A2 soit on modifie le code.
De même pour les formes, soit on reprend le nom de création Ellipse1 etc ..., soit on renomme chaque forme et on entre le nom à la place d' Oval 1 et 4 dans le code

Private Sub Worksheet_Change(ByVal Target As Range)
    ActiveSheet.Shapes("Oval 1").Select
    If [A2] = "Choix1" Then
    Selection.ShapeRange.Fill.ForeColor.SchemeColor = 15
    Selection.ShapeRange.Fill.Visible = msoTrue
    ElseIf [A2] = "Choix2" Then
   Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10
    Selection.ShapeRange.Fill.Visible = msoTrue
    Else
    Selection.ShapeRange.Fill.Visible = msoFalse
    End If
    
    ActiveSheet.Shapes("Oval 4").Select
    If [A2] = "Choix1" Then
    Selection.ShapeRange.Fill.ForeColor.SchemeColor = 3
    Selection.ShapeRange.Fill.Visible = msoTrue
    ElseIf [A2] = "Choix2" Then
   Selection.ShapeRange.Fill.ForeColor.SchemeColor = 6
    Selection.ShapeRange.Fill.Visible = msoTrue
Else
    Selection.ShapeRange.Fill.Visible = msoFalse
    End If    
    [A2].Select
End Sub

vcloclo1 · Answer

Moi j'ai utilisé se code : 

Option Explicit 

Private Sub Worksheet_Change(ByVal Target As Range) 
' 
' Déclaration des variables 
Dim couleur As Integer 
Dim option_selectionnee As String 
' 
' Initialisation des variables 
option_selectionnee = Range("A4").Value 
' 
' Changement de couleur du cercle 
Select Case option_selectionnee 
Case "Type" 
   couleur = 1 '1 = blanc 
Case "Echappement" 
   couleur = 0 '0 = noir 
Case "Admission" 
   couleur = 30 '30 = bleu 
'Couleur par default 
Case Else 
   couleur = 1 
End Select 
' 
With ActiveSheet.Shapes("Oval 1") 
   .Fill.Visible = msoTrue 
   .Fill.Solid 
   'Couleur de fond 
   .Fill.ForeColor.SchemeColor = couleur 
   .Fill.Transparency = 0# 
   .Line.Weight = 0.75 
   .Line.DashStyle = msoLineSolid 
   .Line.Style = msoLineSingle 
   .Line.Transparency = 0# 
   .Line.Visible = msoTrue 
   'Couleur de cercle 
   .Line.ForeColor.SchemeColor = 0 
End With 
' 
' 
End Sub 
L'esprit c'est comme un parachute, qui est utile seulement quand il est ouvert.

Gord21 · Answer

Bonjour,
Comme le signale Mike dans son post 9, est-ce que la forme s'appelle bien "Oval 1" ?

vcloclo1 · Answer

Oui. Le code que j'ai mis est adapter marche nikel sur "Oval 1" reste plus qu'a faire pour "Oval 2".

Merci

vcloclo1 · Answer

Ok, tous fonctionne comme je le désiré.

Par contre, j'ai créer un bouton "Remise à zero" que dois je mettre comme macro pour que sa me mette par defaut le choix "Type" dans la case "A4" puis par exemple les cases A10,B10,C10 (c'est un exemple)

Merci

vcloclo1 · Answer

Ok, tous marche nikel.

Vu que j'y suis, et sa peu servir pour plus tard, ou peu t'ont trouver les correspondance de toutes les couleurs en macro ? 

Genre "0" pour le noir, "1" pour le blanc, etc...

Merci

UsulArrakis · Answer

codes couleur : http://www.cijoint.fr/cjlink.php?file=cj201003/cijM8ygjZd.xls

vcloclo1 · Answer

Merci ;-)

Par contre, moi le 30 sa correspond avec celui de ton fichier.

vcloclo1 · Answer

Je me suis mal expliquer, se que je voulais dire, c'est que moi dans ma macro, le 30 me donne une couleur bleu alors que sur se tableau sa donne un rouge foncé.

vcloclo1 · Answer

Ok donc en fonction des forme les code couleur sont pas les meme ?

Merci

Formule ou macro

15 réponses

Discussions similaires