Lier deux objets

Version imprimable

08/05/2012, 12h03
maxval18

1 pièce(s) jointe(s)

Lier deux objets

Bonjour,

Je recherche un code qui pourrais me lier ensemble une zone texte et une shapes de façon de ne pas pouvoir les modifier.

Pour illustrer ma demande, je joins un fichier
Je vous remercie de votre aide

Cordialement

Max
08/05/2012, 18h22
Daniel.C

Bonjour,

Peut-être en protégeant la feuille ?
09/05/2012, 07h45
maxval18

Bonjour Daniel,

Je te remercie d'avoir répondu, oui c'est vrai de la façon que tu le dit, le seul problème pour moi et que j'ai oublié de dire c'est qu'il doit être cliquable et j'ai essayé tu ne peux plus cliquer...

Mais peut-on insérer le nom "Canada" à l'intérieur comme dans une forme ?
En sélectionnant la bordure de la forme, aller dans la barre de formule, mettre la référence de la cellule. Par exemple : =A1
Ca reprend ainsi dans la zone texte le contenu de la cellule A1

Bonne journée

Cordialement
Max

1 pièce(s) jointe(s)

Bonjour,

Regarde le classeur en pièce jointe. La feuille est protégée et pourtant on peut cliquer sur la forme et déclencher une macro. J'ai créé une macro pour mettre du texte dans la forme et le déplacer :
Sélectionne la forme, appuie sur les touches Ctrl+Maj+T , entre le texte dans l'inputbox et agis sur les toupies pour régler les marges. Voici le code de l'userform. La feuille doit être déprotégée pour cette utilisation.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Private Sub CommandButton1_Click()
    Unload Me
End Sub
 
Private Sub SpinButton1_Change()
    Var = Me.SpinButton1.Min
    Selection.ShapeRange.TextFrame.MarginTop = Me.SpinButton1.Value
End Sub
 
Private Sub SpinButton3_Change()
    Selection.ShapeRange.TextFrame.MarginLeft = Me.SpinButton3.Value
End Sub
 
Private Sub SpinButton4_Change()
    Selection.ShapeRange.TextFrame.MarginRight = Me.SpinButton4.Value
End Sub
 
Private Sub SpinButton5_Change()
    Selection.ShapeRange.TextFrame.MarginBottom = Me.SpinButton5.Value
End Sub
 
Private Sub UserForm_Activate()
With Selection
    Set Var = Selection
    .Text = InputBox("Entrez le texte")
    Me.SpinButton1.Min = 0
    Me.SpinButton1.Max = Selection.Height * 2
    Me.SpinButton1.Value = .ShapeRange.TextFrame.MarginTop
    Me.SpinButton5.Min = 0
    Me.SpinButton5.Max = Selection.Height * 2
    Me.SpinButton5.Value = .ShapeRange.TextFrame.MarginBottom
    Me.SpinButton3.Min = 0
    Me.SpinButton3.Max = Selection.Width * 2
    Me.SpinButton3.Value = .ShapeRange.TextFrame.MarginLeft
    Me.SpinButton4.Min = 0
    Me.SpinButton4.Max = Selection.Width * 2
    Me.SpinButton4.Value = .ShapeRange.TextFrame.MarginRight
End With
End Sub

09/05/2012, 13h31
maxval18

Bonjour Daniel

Ton code il doit être génial a part que j'ai un message d'erreur lorsque je click sur OK de la l'inputbox
"impossible de définir la propriété Text de la class Range"
et il me surligne ceci :

Code:

.Text = InputBox("Entrez le texte")

de Private Sub UserForm_Activate()

Sa doit être une bricole ...!

Bonne aprés midi

Merci encore
Max
09/05/2012, 14h13
Daniel.C

La forme doit être sélectionnée et tu dois appuyer sur la touche Echap pour te débarrasser des menus contextuels.
09/05/2012, 14h22
maxval18

Re Daniel

Je dit n'importe quoi sa doit être l'age !, sa marche NICKEL, excuse moi j'avais oublier d'ôter la protection alors que tu me l'avais dit.

J'ai environ une quarantaine de forme a faire a ma place tu ferais comment?

Une idée et toujours bonne a prendre.

Merci encore et passe une bonne aprés midi

@+

Max
09/05/2012, 15h42
Daniel.C

Mets-toi sur la fenêtre VBE. A partir de mon classeur, exporte le userform clic droit dessus, "exporter un fichier". Fais un clic droit dans le projet portant le nom de ton classeur et choisis "importer un fichier". Et tu importes le fichier que tu viens d'exporter. Fais pareil avec Module1. Si tu as des difficultés, mets le classeur en PJ.
09/05/2012, 17h16
maxval18

Re

Je te remercie beaucoup super travail

@+

Max