inserer un caractère special

M

michel

Guest

• 4 Octobre 2003

• #2

Bonjour patrick

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

bon week end
Michel

 

Pièces jointes

• forms.zip

  13.2 KB · Affichages: 24
• forms.zip

  13.2 KB · Affichages: 25
• forms.zip

  13.2 KB · Affichages: 26

Vote positif 0 Vote négatif

P

Patrick

Guest

• 4 Octobre 2003

• #3

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

 

Vote positif 0 Vote négatif

M

michel

Guest

• 4 Octobre 2003

• #4

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

 

Vote positif 0 Vote négatif

P

Patrick

Guest

• 4 Octobre 2003

• #5

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

 

Vote positif 0 Vote négatif

M

michel

Guest

• 4 Octobre 2003

• #6

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

 

Vote positif 0 Vote négatif

P

Patrick

Guest

• 4 Octobre 2003

• #7

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

 

Vote positif 0 Vote négatif

M

michel

Guest

• 4 Octobre 2003

• #8

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

 

Vote positif 0 Vote négatif

P

Patrick

Guest

• 4 Octobre 2003

• #9

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

 

Vote positif 0 Vote négatif