Discussion :

[chrisaccess]

Bonjour,

Je reviens vous voir pour un nouveau problème.
Je n'ai pas encore manipulé les contrôles image dans un userform.

Je souhaite sélectionnée un ensemble de cellules dans une feuille par utilisation de copy.
Cela copiera le contenu et la mise en forme de cellules (données +1 image) sur la feuille dans le classeur.

Cette copie devrait être collé dans mon contrôle image de mon userform.
De cette manière je laisse la possibilité de modifier les données de mes cellules dans la feuille, et je peux afficher son contenu pour aide à la saisie dans l'userform ouvert.

je commencerai mon code ainsi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
option explicit
 
sub essai
load saisi
sheets ("aide").activate
sheets("aide").range("a1:d52").copy
 
saisi.image..... ?????

Il me faut insérer le contenu de ma copie dans l'image. Comment puis je faire ?

J'ai trouvé le tuto de toulon mais il me semble compliqué pour se que je veux faire !!
Y a t'il une solution simple ?

Merci pour votre aide

[chrisaccess]

Bonsoir,

Je remonte 1 dernière fois ce sujet pour vérifier si personne n'a de solutions ??

[Menhir]

Je souhaite sélectionnée un ensemble de cellules dans une feuille par utilisation de copy.
Cela copiera le contenu et la mise en forme de cellules (données +1 image) sur la feuille dans le classeur.

Les images ne font pas partie du contenu des cellules. Elles sont juste placées éventuellement au même endroit sur une feuille de calcul mais il n'y a pas de rapport direct entre les deux.
Une image dans un onglet n'appartient pas à l'objet Range mais à l'objet Worksheet.
Donc, on ne peut pas copier une image avec une cellule, même si, en apparence, elle semble être dedans.

L'image doit être copiée en tant qu'objet Spape.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Worksheets("MaFeuille").Shapes("MonImage").Copy

[chrisaccess]

Bonjour,

Merci Menhir pour ton explication.
Donc je pars pas du bon pied avec copy.

Après réflexion j'ai peut être une solution : l'aperçu avant impression.
Se n'est pas prévu pour cela, mais mon but est d'affiché une image d'une feuille excel sans la modifié.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
option explicit
 
sub essai
load saisi
sheets ("aide").activate
Sheets("aide").PrintPreview
end sub

Elle réponds à ma demande mais pas facile à manier !!!
Qu'en penses tu ?
Penses tu à une autre solution ?

au plaisir de te relire

merci pour ton aide

[Menhir]

Après réflexion j'ai peut être une solution : l'aperçu avant impression.

Je ne vois pas trop comment tu vas pouvoir transformer cet aperçu en image.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
sub essai
load saisi
sheets ("aide").activate
Sheets("aide").PrintPreview
end sub

Ta ligne Activate est inutile.

Penses tu à une autre solution ?

La méthode CopyPicture de l'objet Range.

[joe.levrai]

Bonjour,

bien qu'une image ne soit pas "dans une cellule" mais posée au dessus de la plage, on peut détecter sa position comme les formes basiques

En effet, les shapes disposent de propriétés telles que TopLeftCell (elle donne la cellule la plus en haut à gauche de l'image) et BottomRightCell (cellule la plus en bas à droite)

On boucle sur les Shapes de la feuille pour trouver celles qui sont positionnées au dessus de ta plage afin de les copier

Exemple pour la détection

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub toto()
Dim Forme As Shape
Dim Plage As Range
    With Sheets("aide")
        Set Plage = .Range("a1:d52")
        For Each Forme In .Shapes
            If Not Intersect(.Range(Forme.TopLeftCell, Forme.BottomRightCell), Plage) Is Nothing Then MsgBox Forme.Name & " dans la plage"
        Next Forme
    End With
End Sub

[chrisaccess]

Bonjour messieurs,

Encore merci pour votre aide.

Mon but est d'afficher dans un userform appelé "aide" le contenu d'une feuille excel tel quel est sur la feuille.

Je crois que se sera plus facile si je vous fournit la feuille :
aide.xlsx

Je souhaite garder la mise en forme, les couleurs, le contenu, les 2 images ... tel qu'ils sont.
Je garde la feuille pour pouvoir procéder aux modifications dont j'aurais besoin, et donc je ne peux pas créer une image sauvegarder de cette feuille car il faut refaire l'image à chaque modif.

Le but est que lorsque l'utilisateur recherche le numéro itst ou ips à saisir, il clique sur un bouton "aide" du formulaire "saisi" afin d'afficher dans un userform "aide" une image de la feuille excel. Un bouton Ok fermera l'userform aide pour le ramener à l'userform de saisi. en résumé une info lors de la saisi

La solution de aperçu avant impression me donne une vue de cette feuille mais je reconnaît pas très sympatique pour une aide à la saisie.

Merci pour votre aide

[Menhir]

Est-ce que tu as lu mon message #5 ?

[chrisaccess]

Bonsoir,

Merci Menhir pour ton aide,

J'ai regardé la méthode CopyPicture de l'objet Range qui réponds à ma besoin pour le copier.

Maintenant il me reste plus qu'à le coller dans l'image de l'userform.
Par contre après quelques recherches il apparaît que le coller dans l'image de l'userform semble pas possible sans d'abord le coller sur une feuille en tant qu'image.
Avez vous une solution pour coller directement dans le formulaire ou dois je coller sur une feuille excel et appeler cet image de la feuille pour l'insérer dans mon formulaire?

On avance,

Merci pour votre aide