[Résolu] Modifier le texte des shapes après sélection dans liste déroulante

Lone-wolf · 30 Décembre 2011

Bonsoir le Forum

J'ai un problème d'insertion de texte avec les shapes. Quand je quitte le classeur et je l'ouvre ensuite; je suis obligé de les sélectionner pour qu'elles se modifient. Alors j'ai écrit ce code.

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim n&
n = 32

For n = 1 To 16
ActiveSheet.Shapes("sh" & n).TextFrame.Characters.Text = [K2].Value
Next n

For n = 17 To 32
ActiveSheet.Shapes("sh" & n).TextFrame.Characters.Text = [K3].Value
Next n

On Error Resume Next
ActiveSheet.Shapes("sh" & n).TextFrame.Characters.Text = ""
ActiveWorkbook.Save

End Sub

En écrivant les lignes de On Error Resume Next , le texte change, mais j'entends l'enregistrement de la feuille.
J'ai été sur le site de Boisgontier, pour voir si il y avait une astuce et je n'ai rien trouvé.

Un petit coup de main s'il vous plaît. 😱

Note: il y a la feuille (Données) qui est masquée

A+ 😎

Cousinhub · 30 Décembre 2011

Re : Modifier le texte des shapes après sélection dans liste déroulante

Bonsoir,

D'après ton code, "n",est égal à 32, donc uniquement le "sh32" doit être modifié, après le "On Error ....."

Ou alors, je n'ai rien compris (surtout par le "j'entends l'enregistrement....."), signe d'un disque dur qui mouline.....

Bonne soirée (je ne peux rien rajouter dans la réponse, n'ayant rien compris à la question.....)

Lone-wolf · 30 Décembre 2011

Re : Modifier le texte des shapes après sélection dans liste déroulante

Bonsoir bhbh,

n correspond aux numéros des shapes: sh1, sh2, sh3 etc; et ce n'est pas le dique dur qui mouline.
J'ai un écran-ordi HP, je pense que c'est un défaut de fabrication.

Lone-wolf à écrit:

Quand je quitte le classeur et je l'ouvre ensuite; je suis obligé de les sélectionner pour qu'elles modifient les données.

Tu comprends mieux?

A+ 😎

Cousinhub · 30 Décembre 2011

Re : Modifier le texte des shapes après sélection dans liste déroulante

Re-,

Ben, non, pas beaucoup plus.....

D'autant plus que le fichier que tu voulais sans doute joindre, n'est pas passé....

Tes shapes, ils sont issus de la barre d'outils "Dessin"?

@ te relire

Lone-wolf · 31 Décembre 2011

Re : Modifier le texte des shapes après sélection dans liste déroulante

Bonjour Stapple, bhbh.

concernant la PJ, je l'avait pourtant bien envoyé, c'est bizarre.

A+ 😎

JNP · 31 Décembre 2011

Re : Modifier le texte des shapes après sélection dans liste déroulante

Bonjour le fil 🙂,

Quand je quitte le classeur et je l'ouvre ensuite; je suis obligé de les sélectionner pour qu'elles modifient les données.

Euh, c'est bien ce qu'on demande à une procédure

Code:

Private Sub Worksheet_Change(ByVal Target As Range)

que la macro soit lancée par une modification de la feuille 🙄 ?
Pourquoi tu ne rafraichis pas tes Shapes depuis

Code:

Private Sub Workbook_Open()

😕 ?
Bonne suite 😎

Lone-wolf · 31 Décembre 2011

Re : Modifier le texte des shapes après sélection dans liste déroulante

Bonjour JNP,

c'est pas vrai, les shapes non rien à voir avec ce que tu dit. C'est pour la liste déroulante qui sert à modifier les numéros et les codes barres.

Lone-wolf à écrit:

Sur changement de la feuille ( Worksheet_Change), shapes modifier les numéros s.v.p.

JNP à écrit:

Pourquoi tu ne rafraichis pas tes Shapes depuis Private Sub Workbook_Open()

J'ai testé mais ça marche pas, à moins d'avoir mal écrit les lignes.

A+ 😎

JNP · 31 Décembre 2011

Re : Modifier le texte des shapes après sélection dans liste déroulante

Re 🙂,

Lone-wolf à dit:
c'est pas vrai, les shapes non rien à voir avec ce que tu dit. C'est pour la liste déroulante qui sert à modifier les numéros et les codes barres.

Désolé, j'avoue que je n'ai rien compris à l'intérêt du fichier, où plus exactement à l'usine à gaz qu'il représente 😱...
Pourquoi utiliser des Shapes 😕 ?
Si j'ai un peu compris, c'est des planches d'étiquettes que tu veux éditer 🙄...
Une simple feuille et quelques formules suffirait 😛...
Sinon, quand j'ouvre ton fichier, je n'ai pas l'impression que les Shapes ne soient pas correct, par contre, il plante directement VBA (t'inquiètes pas, tous les fichiers du forum avec le même type de code plante aussi, ce n'est pas lié à ton cas précis 😉) car le Select de l'Open échoue (certainement parce qu'il est déclenché sur le Perso au lieu de ton classeur). D'un autre côté, vu que tu as une seule feuille, je ne vois pas à quoi il sert 🙄...
Bon courage 😎

Lone-wolf · 31 Décembre 2011

Re : Modifier le texte des shapes après sélection dans liste déroulante

Re,

Une simple feuille et quelques formules suffirait

.

C'est ce que j'ai fait au départ: sh1 = K2, sh7 = K3 etc.

Ensuite, j'ai créer ce nouveau classeur en y mettant le code pour éviter de réecrire (LA FLEMME 🙄 😀) =K2 =K3.

car le Select de l'Open échoue

C'était pour un test, et j'ai omis de l'éffacer avant de l'envoyer, sorry! 😱, pardon! 😱, scusa! 😱, entschuldigung! 😱

A+ 😎

Lone-wolf · 2 Janvier 2012

Re : Modifier le texte des shapes après sélection dans liste déroulante

Bonjour Le Forum,

je viens de changer les shapes par des TextBox et fait plusieures modifications du code.
Jai renommé celles-ci par tb1, tb2, tb3 et mis une variante (img), ensuite j'ai écrit ceci:

Une fois Dim img As Control, puis Dim img As OleObject
img = MsoForms("TextBox") - img = "Forms.TextBox.1"

With img
.Name = "tb & n"

Je n'arrive pas à écrire les lignes de code, vus qu'il y a 32 TextBox.

Un 'tit coup de main s.v.p. 😱

Merci infiniment

A+ 😎

[Résolu] Modifier le texte des shapes après sélection dans liste déroulante

Lone-wolf

XLDnaute Barbatruc

Cousinhub

XLDnaute Barbatruc

Lone-wolf

XLDnaute Barbatruc

Cousinhub

XLDnaute Barbatruc

Lone-wolf

XLDnaute Barbatruc

Pièces jointes

JNP

XLDnaute Barbatruc

Lone-wolf

XLDnaute Barbatruc

JNP

XLDnaute Barbatruc

Lone-wolf

XLDnaute Barbatruc

Lone-wolf

XLDnaute Barbatruc

Discussions similaires

[Résolu] Modifier le texte des shapes après sélection dans liste déroulante

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

Pièces jointes

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency