Marquer des cellules à l'aide d'un coin

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Magic_Doctor

XLDnaute Barbatruc
Supporter XLD
Bonsoir à tous,

Je suis à la recherche d'une astuce qui permette d'itentifier certaines cellules de la feuille.
Je voudrais que dans ces cellules, dans leur coin supérieur droit, il y ait un petit coin jaune.
Est-ce possible en VBA ?

Merci d'avance pour toute réponse.
 
Re : Marquer des cellules à l'aide d'un coin

Bonsoir M12,

Merci pour ton intervention, mais je voudrais mettre un coin (plus visible), d'autant plus que nombre de ces cellules sont déjà encadrées. Nonobstant, je pense que cela devrait être possible en VBA, en incrustant une image en forme de triangle dont le sommet serait orienté à 315º, pour venir coïncider avec l'angle correspondant de la cellule.
 
Dernière édition:
Re : Marquer des cellules à l'aide d'un coin

Bonjour,

trouvé sur l'excellent site de JB:

Code:
Sub CreeShapes()
  i = 1
  For Each c In ActiveSheet.Comments
    With ActiveSheet.Shapes.AddShape(Type:=msoShapeCross, _
       Left:=c.Parent.Left + c.Parent.Width - 9, Top:=c.Parent.Top, Width:=9, Height:=9)
      .Fill.ForeColor.RGB = RGB(255, 255, 255)
      .Line.ForeColor.RGB = RGB(255, 0, 0)
      .Name = "commentaire" & i
    i = i + 1
   End With
  Next
End Sub


Sub SupShapes()
   For Each s In ActiveSheet.Shapes
     If Left(s.Name, 11) = "commentaire" Then s.Delete
   Next s
End Sub
 
Re : Marquer des cellules à l'aide d'un coin

Re,

2 petites remarques :

Tu peux éviter de cumuler les triangles à chaque lancement exécuté pour un nouveau commentaire éventuel.

Quand on n’a qu’un onglet concerné, le plus simple est d’écrire les macros le concernant dans sa page de code.


Tu en as un exemple ici (à partir du dernier fichier joint).
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour