Discussion :

[maxval18]

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

[Daniel.C]

Bonjour,

Peut-être en protégeant la feuille ?

[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

[Daniel.C]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

.Text = InputBox("Entrez le texte")

de Private Sub UserForm_Activate()

Sa doit être une bricole ...!

Bonne aprés midi

Merci encore
Max

[Daniel.C]

La forme doit être sélectionnée et tu dois appuyer sur la touche Echap pour te débarrasser des menus contextuels.

[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

[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.

[maxval18]

Re

Je te remercie beaucoup super travail

@+

Max