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

Staple1600

XLDnaute Barbatruc

• Jeudi à 19:54

• #2

Bonsoir le fil

@pat66
Une syntaxe possible

VB:

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

 

Vote positif 0 Vote négatif

P

pat66

XLDnaute Impliqué

• Jeudi à 20:18

• #3

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 ?

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• Jeudi à 20:33

• #4

Re

@pat66
Comme ceci ?

VB:

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

 

Vote positif 0 Vote négatif

Solution

P

pat66

XLDnaute Impliqué

• Jeudi à 20:38

• #5

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

 

Vote positif 0 Vote négatif

P

pat66

XLDnaute Impliqué

• Jeudi à 20:42

• #6

re,

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

VB:

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• Jeudi à 20:52

• #7

Re

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

 

Vote positif 0 Vote négatif

P

pat66

XLDnaute Impliqué

• Jeudi à 20:53

• #8

re,

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

 

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• Jeudi à 20:58

• #9

Bonjour à tous les 2

@pat66
Je te propose ce fichier

Merci de ton retour

 

Pièces jointes

• Forme et couleur V1.xlsm

  17.6 KB · Affichages: 2

Vote positif 0 Vote négatif

P

pat66

XLDnaute Impliqué

• Jeudi à 21:03

• #10

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

 

Vote positif 0 Vote négatif

P

pat66

XLDnaute Impliqué

• Vendredi à 07:29

• #11

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

 

Vote positif 0 Vote négatif

P

pat66

XLDnaute Impliqué

• Vendredi à 08:29

• #12

re,

je crois que j'ai trouvé,

Code:

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

 

Dernière édition: Vendredi à 09:00

Vote positif 0 Vote négatif