Discussion :

[seb76250]

Bonjour,

Malgré mes recherches je n'ai pas trouvé de réponse, alors je post en denier recours ici :

Je crée une macro vba avec excel 2007 qui me permet de créer une zone de texte sur une feuille, voici le code:

Code :

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

1
2
 
ActiveSheet.Shapes(1).TextFrame.Characters.Text = nom_graphique

Je souhaiterai que l'utilisateur ne puisse pas écrire dedans pour des raison de mise à jour dans une base de donnée.

Est-ce possible ?
Si oui pouvez-vous me donner une piste ou même la syntaxe et si non comment je peux contourner le problème? vous avez une idée ?

Merci d'avance et merci pour ce forum

[mercatog]

Tu peux utiliser un Label activeX
exemple

Code :

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

1
2
3
4
5
6
7
8
Dim shp As OLEObject
Dim Nom_Graphique As String
 
Nom_Graphique = "ici mon test"
 
Set shp = ActiveSheet.OLEObjects.Add(ClassType:="Forms.Label.1", Left:=100, Top:=250, Width:=100, Height:=20)
shp.Object.Caption = Nom_Graphique
Set shp = Nothing

[seb76250]

merci mercatog,

C'est quoi ClassType:="Forms.Label.1" je comprend pas, si tu as le temps de m'expliquer ?

[mercatog]

comme dit plus haut un Label (contrôle Étiquette ActiveX)
manuellement: Développeur> Insérer>Contrôles ActiveX (Etiquette)

[seb76250]

A ok c'est bien ça, je ne connaissais pas, je débute en vba.
Merci pour l'information et ta réponse aussi je vais l'appliquer de suite

[seb76250]

Par contre je ne peux pas les utiliser sur ma feuille, c'est un graphique, il n'y a pas réellement de feuille excel derrière tu vois ce que je veux dire ?
Quand je veux en ajouter un même manuellement c'est grisé ...

[mercatog]

Protège ta feuille graphique
exemple

Code :

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

1
2
3
4
5
6
7
8
Dim shp As Shape
Dim Nom_Graphique As String
 
Nom_Graphique = "ici le test"
Sheets("Graph1").Protect DrawingObjects:=True, Contents:=False
Set shp = Sheets("Graph1").Shapes.AddTextbox(1, 50, 10, 100, 50)
shp.TextFrame.Characters.Text = Nom_Graphique
Set shp = Nothing

[seb76250]

re,

J'ai une "incompatibilité de type" sur cette ligne :

Code :

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

Set shp = ActiveSheet.Shapes.AddTextbox(1, 50, 10, 100, 50)

[mercatog]

tu as bien déclaré la variable comme ceci

Code :

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

Dim shp As Shape

[seb76250]

T trop balèse
Non j'ai fais le boulet j'ai laissé OLEObject.
Du coup ... ça marche, je vais voir pour la mise en forme et tout.
Merci du coup de main

Du coup je me confronte à un autre problème, tout les champs de saisie sont bloqué je peux pas en ajouter un.

[seb76250]

C'est bon j'ai trouvé pour au moins afficher les étiquette des axes après je préfère verrouiller que me taper une mise à jour de la BDD plus tard donc on dira que c'est résolue vu que je n'ai plus de temps pour travailler dessus je dois le mettre en place demain dans l'usine.
Merci encore