Copier contenu shapes

[ymrabet]

Bonjour,

Comment Copier le contenu d'un shapes et de le coller dans une cellule.
Merci

 

[kjin]

Re : Copier contenu shapes

Bonjour,

[B1] = ActiveSheet.DrawingObjects(1).Text

A+
kjin

 

[ymrabet]

Re : Copier contenu shapes

Merci mais peut etre je me suis mal experime
j'ai un shapes: toto avec comme text a l'interieur ( test), j'ai cree un bouton avec une macro qui doit copier le contenu de toto c'est a dire "test" et de le coller dans B1 par exemple

 

[ymrabet]

Re : Copier contenu shapes

c'est bon j'ai reussi merci

 

[ymrabet]

Re : Copier contenu shapes

bonjour Voici mon nouveau pb :

Dans une feuil1 j’ai entre autre : 3 lignes de codes :
Ligne1 = ActiveSheet.DrawingObjects("chrono").Text qui retourne le contenue de « chrono »
Ligne2= ActiveSheet.DrawingObjects("Rectangle 12").Text qui retourne le contenue de « Rectangle 12 »
Ligne3= ActiveSheet.DrawingObjects("indicateur").Text qui retourne le contenue de « indicateur »
Je souhaite exécuter une macro qui :
Copie la valeur retournée par « chrono » dans la feuil de nom ( retournée par indicateur » dans la cellule ( ligne i, colonne ( valeur retournée par Rectangle 12))
Et incrémenter de +1 la valeur de i pour la prochaine exécution de la macro ( écrire dans la ligne i+1)
Merci de votre aide.

 

[kjin]

Re : Copier contenu shapes

Re,
Je ne vois pas comment un rectangle peut contenir du texte mais bon...
donc avec le peu d'info fournit

valeur = ActiveSheet.DrawingObjects("chrono").Text
colonne = ActiveSheet.DrawingObjects("Rectangle 12").Text
feuille = ActiveSheet.DrawingObjects("indicateur").Text
Sheets(feuille).Cells(i, Int(colonne)) = valeur

Et incrémenter de +1 la valeur de i pour la prochaine exécution de la macro ( écrire dans la ligne i+1)
Merci de votre aide

Là faut consulter Irma (c'est-elle qui a les boules....de cristal)
A+
kjin