Microsoft 365 Macro qui change l'épaisseur du contour d'une forme

[pat66]

Bonsoir le forum,

j'essaie de rédiger une macro qui modifie l'épaisseur et la couleur d'une forme selon le contenu de D5, mais hélas je n'y arrive pas, pourriez vous me donner un coup de main s'il vous plait

La forme : Rectangle 1
La cellule qui contient "oui" : D5
SI D5 = "oui" : le contour de rectangle 1 = RGB(255, 160, 70), l'épaisseur = 10
Si D5 = "non" : le contour de rectangle 1 = RGB(255, 0, 0), l'épaisseur = 5

voici ce que j'ai fait, mais peut être qu'on peut simplifier avec : IIf ( expr , truepart , falsepart ), mais je n'y arrive pas

Sub Rectangle1_Cliquer()
If Feuil1.[D5] = "oui" Then
Feuil1.Shapes("Rectangle 1").OLEFormat.Object.Border.Color = RGB(255, 160, 70)
Feuil1.Shapes("Rectangle 1").Line.Weight = 10
Else
Feuil1.Shapes("Rectangle 1").OLEFormat.Object.Border.Color = RGB(255, 0, 0)
Feuil1.Shapes("Rectangle 1").Line.Weight = 5
End If
End Sub

merci d'avance pour votre aide et bonne soirée

 

[Staple1600]

Bonsoir le fil

@pat66
Une syntaxe possible

Sub Test_OK()
Dim shp As Shape
Set shp = ActiveSheet.Shapes("Rectangle 1")
Select Case Range("D5")
Case "oui"
shp.Line.ForeColor.RGB = RGB(255, 160, 70)
shp.Line.Weight = 10
Case Else
shp.Line.ForeColor.RGB = RGB(255, 0, 0)
shp.Line.Weight = 5
End Select
End Sub

 

[pat66]

bonsoir Stapple1600,

oui c'est parfait, pourrait on faire en sorte que ("D5") passe de "oui " à "non" avec la même syntaxe, ce qui permettrait d'utiliser la même macro ?

 

[Staple1600]

Re

@pat66
Comme ceci ?

Sub Test_OK_b()
Dim shp As Shape
Set shp = ActiveSheet.Shapes("Rectangle 1")
Select Case Range("D5")
Case "oui"
shp.Line.ForeColor.RGB = RGB(255, 160, 70)
shp.Line.Weight = 10
Case Else
shp.Line.ForeColor.RGB = RGB(255, 0, 0)
shp.Line.Weight = 5
End Select
Range("D5") = "non"
End Sub

 

[pat66]

re,

désolé cela ne fonctionne pas, au deuxième clic, D5 ne bascule pas et reste sur "non" donc la macro ne change pas la bordure

 

[pat66]

re,

j'ai modifié comme ceci, ca à l'air de fonctionner , qu'en pensez vous ?

Sub Test_OK_b()
Dim shp As Shape
Set shp = ActiveSheet.Shapes("Rectangle 1")
Select Case Range("D5")
Case "oui"
shp.Line.ForeColor.RGB = RGB(255, 160, 70)
shp.Line.Weight = 10
Case Else
shp.Line.ForeColor.RGB = RGB(255, 0, 0)
shp.Line.Weight = 5
End Select
If [D5] = "oui" Then [D5] = "non" Else [D5] = "oui"
End Sub

 

[Staple1600]

Re

@pat66
Si cela convient à vos besoins, je n'en pense que du bien

 

[pat66]

re,

merci beaucoup pour votre aide,
je vous souhaite une très bonne soirée

 

[Phil69970]

Bonjour à tous les 2

@pat66
Je te propose ce fichier

Merci de ton retour

 

[pat66]

Bonsoir Phil69970,

Votre solution est très intéressante, je la testerais demain sur mon classeur et je reviens vers vous

merci beaucoup et bonne soirée

 

[pat66]

Bonjour le forum, le fil,

Phil69970, j'ai testé ta solution mais dans le cas présent cela ne convient pas exactement, car il faut aller sur D5 pour basculer entre oui et non, je vais utiliser la solution de Staple1600

Dans le même esprit :
pourrais tu m'aider à écrire correctement la syntaxe ci dessous car je n'y arrive pas, l'objectif étant le même, c'est à dire de modifier l'épaisseur du contour de "Ellipse 88092" selon que ("D10") soit = ou <> de Feuil62.Range("BC102")

sub contour()
Feuil1.Shapes("Ellipse 88092").Line.Weight = IIf(Feuil1.Range("D10").Value <> Feuil62.Range("BC102").Value, 10, 5)
end sub

merci beaucoup

 

[pat66]

re,

je crois que j'ai trouvé,

Feuil1.Shapes("Ellipse 88092").Line.Weight = IIf(Feuil1.[D10] <> Feuil62.[BC102], 10, 5)