mefc sur un objet graphique ??

  • Initiateur de la discussion Initiateur de la discussion ctmv
  • Date de début Date de début

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 !

ctmv

XLDnaute Nouveau
bonjour à tous
je suis nouveau sur ce forum et voici donc mon 1er post :
je cherche à appliquer une mise en forme conditionnelle à un objet (par exemple un trait fait grace à la barre d'outils dessin) lorsqu'une cellule prend une certaine valeur.
est ce possible à votre avis ? et si oui, comment ?
merci de m'avoir lu.
 
Re : mefc sur un objet graphique ??

Re



Un petit exemple pour ce qui est de créer un trait (et sa déclinaison) pour débuter. 😉


Code:
Sub je_trace_un_trait()
a = ActiveCell.Left: b = ActiveCell.Top
c = ActiveCell.Offset(0, 1).Left: d = ActiveCell.Offset(0, 1).Top
ActiveSheet.Shapes.AddLine(a, b, c, d).Select
End Sub
Code:
Sub je_trace_un_plus gros_trait()
Dim a&, b&, c&, d&
Dim X As Range
Set X = ActiveCell
a = X.Left: b = X.Top
c = X.Offset(0, 1).Left: d = X.Offset(0, 1).Top
ActiveSheet.Shapes.AddLine(a, b, c, d).Line.Weight = 2
End Sub
 
Dernière édition:
Re : mefc sur un objet graphique ??

merci pour vos réponses... la mienne est un peu tardive : boulot et surtout j'ai eu du mal à retrouver mon post.
En fait je cherchais une autre solution que par vba mais je n'ai pas trouvé et apparemment on ne peut pas. Donc j'ai fait des essais en enregistrant quelques macros (surtout pour trouver le nom de mes objets) et j'ai trouvé un petit truc qui me convient. Le voici, ça peut éventuellement servir à quelqu'un.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set myDocument = Worksheets(1)
If Range("a1") = "x" Then
myDocument.Shapes.Range("trait 1").Line.Visible = False
Else
myDocument.Shapes.Range("zep 900").Line.Visible = True
End If

"trait 1" est le nom que j'ai donné à mon objet en modifiant son nom sous excel.

en tout cas merci de votre aide.
à bientot.
 
Re : mefc sur un objet graphique ??

Bonjour ctmv et Bienvenue sur XLD, Jean-Marie,

Rien trop à voir avec la question, mais comme tu es nouveau....

Pour retrouver ton ou tes fil(s), tu cliques sur ton pseudo, et sur Rechercher toutes les discussions ouvertes....

Pour info.

Bonne fin d'après-midi.

Jean-Pierre
 
- 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

L
Réponses
4
Affichages
629
Liorzherezh
L
Retour