Transférer des lignes de la Feuil1

Salut a tous, Forum

Comment transférer quelques lignes de la Feuil1 vers une Forme insérer par le menu insertion d'excel

Après maintes et essais et recherche je n'ai pas trouver comment faire

ci joint un petit fichier sans code et un commentaire a l'intérieur pour vous guider

Merci a vous pour votre aide

Cdlt Ray

Bonjour,
Une macro possible :

Sub ScreenShot()
    Worksheets("Feuil1").Range("F25:F34").Copy

    ActiveSheet.Shapes.Range(Array("Rounded Rectangle 1")).Select
    ActiveSheet.Paste

    Application.CutCopyMode = False
    Selection.Cut
    ActiveSheet.Shapes.Range(Array("Rounded Rectangle 1")).Select
    ActiveSheet.Paste

End Sub

Salut Optimix,

Merci pour ta réponse, c'est sympa

J'ai oublier de dire que j'étais sous Windows 10 et Excel 2007

Après essais ca ne fonctionne pas j'ai erreur 1004 nom introuvable

j'ai renommer ma forme Etiquette 1 et modifier dans le code mais

l'erreur persiste

Dans la Feuil1 il y a juste une Forme en haut et quelques lignes plus bas, ce

sont des cellules normales a Excel 2007

Merci de ton aide, bonne après midi

Cdlt Ray

Quelle erreur avez-vous avec celle-ci :

Sub Macro1()
    Range("F25:F34").CopyPicture xlScreen, xlPicture
    Range("F4").Select
    ActiveSheet.Paste
    Range("F25").Select
End Sub

Salut optimix,

merci pour la modification du code, le transfert du texte fonctionne bien mais quand je veux déplacer la forme avec le texte seul le texte se détache

de la forme qui elle reste a sa position et je souhaiterai aussi pouvoir a l'aide d'un bouton exécuter une petite macro effacer manuellement le contenu de la forme avant de relancer la macro sinon le texte suivant se transfert et s'affiche sur le précédent, ca fait pas joli

Merci de ton aide bonne journée a toi

Cdlt Ray

Ach so ! Alors voici une solution.
- on crée un sous-dossier temporaire dans le dossier contenant le fichier Excel ;
- on copie dedans une image de la zone sélectionnée (jpeg) ;
- on charge l'image dans la forme (attention : il ne s'agit plus d'un texte, mais d'une image) ;
- et on détruit le dossier temporaire avec son contenu.
Je préfère que vous sachiez qu'on va écrire quelque chose sur votre disque dur avant que vous ne testiez la macro.

Salut Optimix

Merci pour ta réponse, tu va écrire quoi au juste sur mon disque dur ??? , sinon seulement transférer du texte dans une forme et de déplacer cette forme avec le texte me conviendrai

Donc pas d'image svp

Bonne journée a toi

Cdlt Ray

Hello,

je propose autre chose : Copier les cellules en tant qu'image, la coller et lui donner les mêmes dimensions que la forme et grouper le tout.

Vous avez tout dans mes explications d'hier (12h18).
En dehors de la technique qui consiste à coller l'image d'une plage de cellules dans une forme, je ne sais pas faire.

Salut Nain porte koi, forum salut

Merci pour ta réponse et pour le fichier

Alors ca fonctionne presque mais j'ai une erreur Set Genere_Groupe = Feuille.Shapes.Range(Array(Forme_Cible.Name, Image_Collee.Name)).Group

Si tu peux me dire ou corriger sur le fichier a quoi corresponds cette erreur, merci bien

Bonne journée a toi

Cdlt Ray

Hello,

essayez de remplacer

Set Genere_Groupe = Feuille.Shapes.Range(Array(Forme_Cible.Name, Image_Collee.Name)).Group

par

    Feuille.Shapes.Range(Array(Forme_Cible.Name, Image_Collee.Name)).Select
    Set Genere_Groupe = Selection.ShapeRange.Group

Salut Nain porte koi,

Merci pour ta réponse,

j'ai essayer en remplacent le code qui fonctionnai pas celui que tu m'a fourni

après l'essai pas été bien loin aussitôt même erreur mais avec ton dernier code cette fois

j'ai chercher mais je n'ai pas trouver, c'est peut être mon Excel 2007

Bonne soirée a toi et merci

Cdlt Ray