Bonsoir à tous, au risque de passer pour niaiseux, j'ai 2 problèmes qui me paraissent simples mais je n'arrive pas a y remédié. J'utilise cette macro qui me permet d'afficher un petit triangle rouge dans le coin d'une cellule.
If Intersect(ActiveCell, Range("e3,g3,i3,k3,m3,o3,e8,g8,i8,k8,m8,o8,e13,g12,i13,k13,m13,o13,e18,g18,i18,k18,m18,o18,e23,g23,i23,k23,m23,o23")) Is Nothing Then Exit Sub
With ActiveSheet.Shapes.AddShape(Type:=msoShapeRightTriangle, _
Left:=ActiveCell.Left + ActiveCell.Width - 16, Top:=ActiveCell.Top + 1, Width:=14, Height:=14)
.Fill.ForeColor.RGB = RGB(255, 0, 0)
.Line.ForeColor.RGB = RGB(255, 0, 0)
.IncrementRotation 180
.Name = "cmt" & ActiveCell.Address
End With
Ce que je voudrais c'est transformer la macro pour que si il n'a pas de triangle il en met un et s'il y en a un qu'il le supprime.
Et mon deuxième problème est pire je voudrais que ce soit une étoile qui apparaisse à la place du triangle.
je sais que ce doit être quelque chose comme : ActiveSheet.Shapes.AddShape(msoShape5pointStar, 408#, 408#, 23.25, 28.5). _
Select
Pouvez vous m'aider?
Merci
If Intersect(ActiveCell, Range("e3,g3,i3,k3,m3,o3,e8,g8,i8,k8,m8,o8,e13,g12,i13,k13,m13,o13,e18,g18,i18,k18,m18,o18,e23,g23,i23,k23,m23,o23")) Is Nothing Then Exit Sub
With ActiveSheet.Shapes.AddShape(Type:=msoShapeRightTriangle, _
Left:=ActiveCell.Left + ActiveCell.Width - 16, Top:=ActiveCell.Top + 1, Width:=14, Height:=14)
.Fill.ForeColor.RGB = RGB(255, 0, 0)
.Line.ForeColor.RGB = RGB(255, 0, 0)
.IncrementRotation 180
.Name = "cmt" & ActiveCell.Address
End With
Ce que je voudrais c'est transformer la macro pour que si il n'a pas de triangle il en met un et s'il y en a un qu'il le supprime.
Et mon deuxième problème est pire je voudrais que ce soit une étoile qui apparaisse à la place du triangle.
je sais que ce doit être quelque chose comme : ActiveSheet.Shapes.AddShape(msoShape5pointStar, 408#, 408#, 23.25, 28.5). _
Select
Pouvez vous m'aider?
Merci
