Collage special avec laison et mise en forme [Résolu]

Signaler
Messages postés
150
Date d'inscription
mardi 9 septembre 2008
Statut
Membre
Dernière intervention
18 janvier 2021
-
Messages postés
150
Date d'inscription
mardi 9 septembre 2008
Statut
Membre
Dernière intervention
18 janvier 2021
-
Bonjour,

J'aimerais savoir s'il est possible de réaliser un collage spécial d'une plage de données avec liaison tout en conservant la mise en forme vers une autre feuille du classeur.
De cette façon en cas de modification dans la plage copiée, cette modification serait effective dans la plage de cellule collée.
Et le top du top serait que la réciproque soit possible aussi à savoir modifier des cellules dans la plage collée au départ, alors la modification se ferait dans la plage copiée au départ.

J'espère être clair, et si quelqu'un a une piste de réflexion je l'en remercie par avance

Cordialement

--

4 réponses

Messages postés
7335
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
12 avril 2021
122
Bonjour,

Ça n'a pas l'air de vous inspirer!!

non, vu le peu d'intérêt que tu portes aux réponses qui te sont faites!

https://codes-sources.commentcamarche.net/forum/affich-10103688-recuperation-debut-de-mois-en-fonction-du-mois

Messages postés
150
Date d'inscription
mardi 9 septembre 2008
Statut
Membre
Dernière intervention
18 janvier 2021

Bonjour,

Ça n'a pas l'air de vous inspirer!!
Du coup je suis parti sur la solution d'utiliser l'outil appareil photo par macro qui au moins me donne la liaison dans un sens.


--
Messages postés
150
Date d'inscription
mardi 9 septembre 2008
Statut
Membre
Dernière intervention
18 janvier 2021

Le problème désormais c'est que je souhaiterais pouvoir effacer l'image dans ma feuille "tampon".
J'écris:

Sheets("Sem Type").Pictures.Paste(Link:=True).Select
Du coup excel attribu un nom à l'image qui vient d'être créée, comment puis-je la renommer cette image?
--
Messages postés
7335
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
12 avril 2021
122
re,

Si tu n'as qu'une image, il suffit de faire cela en te mettant sur la feuille concernée:

Dim s As Shape
For Each s In ActiveSheet.Shapes 'boucle sur les shapes
 s.Delete
   Next s


@+ Le Pivert
Messages postés
150
Date d'inscription
mardi 9 septembre 2008
Statut
Membre
Dernière intervention
18 janvier 2021
>
Messages postés
7335
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
12 avril 2021

Le problème est là, j'ai des boutons (controles activeX) dans ma feuille qui sont à priori considéré comme des images car si je fais ça, il m'efface aussi les boutons. Donc je cherche à nommer l'image que je crée pour que je puisse aller ensuite la chercher pour l'effacer. Si cela est possible...
Messages postés
7335
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
12 avril 2021
122 >
Messages postés
150
Date d'inscription
mardi 9 septembre 2008
Statut
Membre
Dernière intervention
18 janvier 2021

voir ceci effacer les shapes sauf les boutons

http://boisgontierjacques.free.fr/pages_site/lesimages.htm#Suppression

tu peux aussi parcourir ce site pour trouver d'autres réponses!

@+
Messages postés
150
Date d'inscription
mardi 9 septembre 2008
Statut
Membre
Dernière intervention
18 janvier 2021
>
Messages postés
7335
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
12 avril 2021

Merci beaucoup pour le lien.
Du coup j'ai réussi à nommer mon image grâce à la ligne de code suivante:
Selection.ShapeRange.Name = "test"

Et donc ensuite je peux aller la redimensionner dupliquer ma feuille type et supprimer l'image dans ma feuille type.
J'avoue que mon code n'est pas optimisé avec beaucoup de Select et autre activate (entre autres) mais tout fonctionne et vu mon niveau cela me satisfait à ce jour.
Et merci encore aux gens qui maitrisent de partager leur savoir afin de faire progresser les auto didacte débutants comme moi!

@+
Messages postés
150
Date d'inscription
mardi 9 septembre 2008
Statut
Membre
Dernière intervention
18 janvier 2021

Je vous demande de m'excuser, il est vrai que je ne vous ai pas remercié ni clôturé la discussion.

Pardon

--