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

 

[kjin]

Re : recopier un texte d'une bulle automatiquement

Bonjour,
Il n'existe aucun événement lié aux formes !
A+
kjin

 

[picronte]

Re : recopier un texte d'une bulle automatiquement

Bonjour Kjin
Merci pour ta reponse je vais essayer de faire autrement Car j'ai plus de 60 onglets et j'en ai marre de copier coller
si quelqu'un a une idée je suis preneur
Picronte

 

[job75]

Re : recopier un texte d'une bulle automatiquement

Bonjour picronte, salut kjin,

Avec cette solution le texte et sa mise en forme en Feuil1 sont répercutés sur les autres feuilles.

Il ne peut y avoir qu'un seul type de police pour tous les caractères.

Fichier joint.

A+

 

[tototiti2008]

Re : recopier un texte d'une bulle automatiquement

Bonjour à tous ,

un autre essai sans VBA mais qui ne reprend que le texte, pas la mise en forme

 

[kjin]

Re : recopier un texte d'une bulle automatiquement

salut les Gas ,
Des fois je passe en mode crétin.... sans appuyer sur un bouton
A+
kjin

 

[picronte]

Re : recopier un texte d'une bulle automatiquement

Bonjour à tous,
vous êtes geniaux, comment je n'ai pas penser à cela.
un gros merci
A++++++
Picronte

 

[Gardien de phare]

Re : recopier un texte d'une bulle automatiquement

Bonjour le forum, Job

Sous 2010, ton code plante sur le ColorIndex, il faut le remplacer par Color.

 

[picronte]

Re : recopier un texte d'une bulle automatiquement

bonjour le forum,
effectivement j'ai écris trop vite car plus difficile que je ne le pensais.
j'ai recopié le code vba dans Thisworkbook de mon fichier mais cela ne fonctionne pas.
j'ai changer ColorIndex par Color
mais cela ne fonctionne pâs non plus
Picronte

 

[picronte]

Re : recopier un texte d'une bulle automatiquement

re,
ci-joint mon fichier avec le vba recopié
Picronte

 

[picronte]

Re : recopier un texte d'une bulle automatiquement

Bonjour job75,
peux tu m'aider car le code vba recopié dans mon fichier ne fonctionne pas

Merci
picronte

 

[job75]

Re : recopier un texte d'une bulle automatiquement

Bonjour picronte, le forum,

Il y a en effet (parfois) incomptabilité entre Excel 2003 et Excel 2010 pour la couleur de police.

Alors pour Excel 2010 voici une autre manière de déterminer cette couleur :

CP = s.TextFrame2.TextRange.Font.Fill.ForeColor.RGB 'police

Ce calcul étant impossible sur Excel 2003, j'ai mis On Error Resume Next au début.

Testez le fichier (2), chez moi il fonctionne bien sur les 2 versions Excel 2003 et 2010.

Nota : maintenant on peut aussi modifier les couleurs de remplissage et de bordure :

CF = s.Fill.ForeColor.RGB 'remplissage
CL = s.Line.ForeColor.RGB 'bordure

A+

 

[job75]

Re : recopier un texte d'une bulle automatiquement

Re,

En fait le calcul de CP au post #12 est inutile.

Gardien de phare a raison, le code .Color = F.Color fonctionne sur toute version.

Utilisez donc le fichier (2 bis).

Nota : picronte, votre fichier beugue parce que vous avez écrit .Color = F.ColorIndex

A+

 

[picronte]

Re : recopier un texte d'une bulle automatiquement

Bonjour Job75
effectivement ton fichier fonctionne très bien sur 2010, mais lorsque j'intègre la feuil1 de ton fichier avec le code vba les bulles deviennent noires et les écritures ne sont pas retranscris dans les autres bulles.
Donc j'ai du faire encore des bêtises car si cela fonctionne sur le tien il devrait fonctionner sur le mien.
ci-joint le fichier
picronte

 

[job75]

Re : recopier un texte d'une bulle automatiquement

Re,

Il y avait 2 autres points qui n'allaient pas dans votre fichier picronte :

1) La forme à copier ne se trouve pas en Feuil1 mais en Feuil16, attention c'est le CodeName :

For Each s In Feuil16.Shapes

2) Les noms de vos shapes sont en fait Rounded Rectangular Callout x j'ai donc modifié :

If s.Name Like "*Rectang*" Then

Votre fichier joint, maintenant il fonctionne.

A+