recopier un texte d'une bulle automatiquement

[picronte]

Bonjour le fil,
je voudrais s'avoir si c'est possible de copier automatiquement un texte d'une bulle dans une bulle identique d'un autres onglet.
Ci-joint un fichier pour mieux comprendre
Picronte

 

[picronte]

Re : recopier un texte d'une bulle automatiquement

re,
j'ai essayé a nouveau mais toujours rien. mais j'ai d'autres onglet dans mon fichier qui non pas de bulle, es pour cela que ça ne fonctionne pas car dans le tien cela fonctionne.
Picronte

 

[job75]

Re : recopier un texte d'une bulle automatiquement

Re,

Vous n'avez pas vu mon post #15, il s'est croisé avec le vôtre.

A+

 

[picronte]

Re : recopier un texte d'une bulle automatiquement

re,
je touche presque au but.
maintenant quand le texte est petit cela fonctionne mais mon texte est grand. il me met le message d'erreur a chaque onglet et si je clique sur fin il me copie bien mon texte.
Faut-il que je mets mon fichier en ligne.
Picronte

 

[job75]

Re : recopier un texte d'une bulle automatiquement

Re,

Je ne vois pas de quoi il s'agit car la longueur du texte ou sa taille ne posent pas de problème, même si la forme n'est pas assez grande pour l'afficher en entier.

A+

 

[picronte]

Re : recopier un texte d'une bulle automatiquement

re,
j'ai du surement faire une erreur car il me marque "la valeur tapée est en dehors des limites" je te joins mon fichier original
Picronte

 

[job75]

Re : recopier un texte d'une bulle automatiquement

Re,

Je pense que ça vient du fait qu'il n'y a pas de forme "Rectangle" en Feuil16...

A+

 

[picronte]

Re : recopier un texte d'une bulle automatiquement

re,
que dois-je rectifier dans le code pour qu'il puisse prendre en compte la forme de ma bulle
je ne connais pas le terme pour cette bulle.
If s.Name Like "*Rectang*" Then
picronte

 

[job75]

Re : recopier un texte d'une bulle automatiquement

Re,

Votre post #22 n'a pas de sens !

Et mon post #21 non plus !

Comme vous l'avez écrit, la feuille de la forme à copier est Feuil30.

Retirez ou mettez en commentaire ces 2 lignes :

.ReadingOrder = T.ReadingOrder
.AutoSize = T.AutoSize

Elles beuguent sur votre fichier et ne servent à rien sur Excel 2010.

A+

 

[picronte]

Re : recopier un texte d'une bulle automatiquement

Re,
merci cela fonctionne trés bien.
dernière question, si j'ai besoin de changer le texte d'une bulle autre que la bulle de la feuil30. es possible?
picronte

 

[job75]

Re : recopier un texte d'une bulle automatiquement

dernière question, si j'ai besoin de changer le texte d'une bulle autre que la bulle de la feuil30. es possible?

Ben vous n'avez qu'à essayer.

A+

 

[job75]

Re : recopier un texte d'une bulle automatiquement

Re,

Si vous voulez qu'une forme ne soit plus modifiée il faut un repère.

Par exemple faire précéder le texte par un espace (ou tout autre caractère de votre choix) :

If Left(.Characters.Text, 1) = " " Then Exit For 'évite toute modification

Fichier (2).

A+

 

[job75]

Re : recopier un texte d'une bulle automatiquement

Re,

Le repère peut être tout simplement la couleur de remplissage :

If s.Fill.ForeColor.RGB <> CF Then Exit For 'évite toute modification

Voir la feuille "a".

Fichier (2 bis).

A+

 

[picronte]

Re : recopier un texte d'une bulle automatiquement

re,
merci job75
comme d'habitude c'est de l’excellent travail et je vous tire mon chapeau pour votre patience.
j'ai opté pour la première solution cela m'évitera de changer la couleur de la bulle
encore merci
Picronte