Discussion :

[tmk21fr]

Bonjour à tous, je voudrais savoir si l'on peux créer une zone de texte qui se situe dans la barre des tâche dessin de longueur égale au résultats d'une cellule et de largeur une colonne?

Je bloque sur ce problème et je suis un nouvel utilisateur de VB.

Exemple: cellule a2 feuille1: 25
Zone de texte a créer dans la feuille 2 colonne 1 de longueur égale à 25(cellule a2 feuille1).

Merci de votre aide.

[dadavyvy]

As-tu essayé avec l'enregistreur de macro?
Ensuite il suffira juste de remplacer la largeur par la valeur de la cellule A2 de la feuil1 ( Feuil1.Cells(2, 1) ou Feuil1.Range("A2")... ) convertie dans la bonne unité.

[tmk21fr]

J'ai essayer, mais je n'y suis pas arrivé. Je dois procéder a cette manipulation en cliquant sur une case à cocher; et je n'arrive pas définir que le résultat de la cellule A2 soit la longueur de la zone de texte.

Je suis bloqué sur ce point.

[dadavyvy]

Apres enregistreur de macro et adaptation, voici ce que j'obtiens :

Code :

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

1
2
3
4
5
6
7
8
Sub Bouton_Clic()
    Dim sh As Shape
    Set sh = Sheets("Feuil2").Shapes.AddTextbox(msoTextOrientationHorizontal, 0, 0, _
        100#, 15)
    sh.TextFrame.Characters.Text = "longueur = " & Feuil1.Range("A2") & " cm"
    sh.Width = Feuil1.Range("A2") * 28.35
    ' 28.35 car c'est ce que j'obtiens après une règle de 3 mais cela doit dépendre de la résolution
End Sub

[zazaraignée]

je voudrais savoir si l'on peux créer une zone de texte qui se situe dans la barre des tâche dessin de longueur égale au résultats d'une cellule et de largeur une colonne?

Que veux-tu dire par 'dans la barre des tâches dessin...' ?

[dadavyvy]

Je suppose qu'il voulait dire dans la "barre d'outils dessin"...

[tmk21fr]

Bonjour a tous, excuseze moi, j'étais en vacances donc désolé pour le retard de réponse.

En effet c'est bien la zone de texte qui est dans la barre d'outils dessin.

Merci de votre aide