inserer un caractère special

[Patrick]

Bonjour, on m'a fais parvenir ce code pour pouvoir inserer un caractère special (comme une case à cocher) dans ma forme automatique mais que dois je mettre à la place de ("nomdusignet"). Merci de m'aider.@ plus.



ActiveSheet.Shapes("nomdusignet").Top = ActiveSheet.Shapes(Application.Caller).Top
ActiveSheet.Shapes("nomdusignet").Left = ActiveSheet.Shapes(Application.Caller).witdh / 2

 

[michel]

Bonjour patrick

j'espère que le fichier joint pourra t'aider

bon week end
Michel

 

[Patrick]

Merci Michel, mais j'ai une erreure sur cette ligne: peux tu me dire ce qui se passe
ActiveSheet.Shapes("Ellipse 72").Left = ActiveSheet.Shapes(Application.Caller).witdh / 2

Merci, Patrick

 

[michel]

rebonjour Patrick

je pense que ça vient d'une petite erreur de saisie dans ta macro
ce n'est pas witdh mais width

bon samedi
Michel

 

[Patrick]

Merci Michel, c'était bien ça.
Pour le caractère spécial, il n'apparait pas encore ds mon ellipse, par contre comme pour ton exemple de couleur ça déplace mon ellipse à gauche, qu'en penses tu ? Patrick

 

[michel]

rebonjour patrick

c'est normal puisque top et width renvoient la position de la forme dans la feuille ( nottament width/2 qui décale la forme sur la gauche de la moitié de sa valeur initiale )

Il me semble que je te l'ai signalé dans le fichier en te disant que je ne comprenais pas trop ce que tu voulais faire avec cette procedure

as tu testé le dernier exemple que je me suis premis d'ajouter tout en bas dans la feuille ? normalement la forme est "cochée" quand tu cliques dessus
j'ai utilisé la macro ci dessous

Sub CaractereDansForm()
ActiveSheet.Shapes("rectangle 8").Select
With Selection
.Characters.Text = "a"
.Characters.Font.Name = "Webdings"
.Font.Size = 18
End With
End Sub



à moins que j'ai mal compris ta demande ....


bonnes soirée
Michel

 

[Patrick]

Excelent j'ai compris,ça fonctionne comme tu me l'as indiqué, c'est exactement ce que je veux, par contre j'aimerais faire la manip inverse, en recliquant dessus je voudrais qu'il disparaisse, tu peux m'indiquer la procédure, a toute. Patrick

 

[michel]

Bonsoir Patrick

l'exemple ci joint devrait répondre à ta question. il y a sans doute des soulutions plus simples mais avec ma version d'excel je suis obligé de mettre des select un peu partout , pour que cela fonctionne...

Sub CaractereDansForm()
ActiveSheet.Shapes("rectangle 8").Select
If Selection.Characters.Text = "" Then
With Selection
.Characters.Text = "a"
.Characters.Font.Name = "Webdings"
.Font.Size = 18
End With
Else
With Selection
.Characters.Text = ""
End With
End If
Range("B36").Select 'à adapter selon la position de la forme dans la feuille
End Sub


bonne soirée
Michel

 

[Patrick]

Je te remercie beaucoup, ça marche du tonerre, c'est trop fort.Merci pour ta précieuse aide et à plus. Patrick