Discussion :

[kini5454]

Bonjour,

Je réalise actuellement un projet dans le cadre de mon projet de fin d'étude et je souhaiterai proposer à mon mettre de stage un outil informatique où les actions sont minimisées.

Pour ce faire, je souhaiterai pouvoir afficher une image dans une case, et qu'elle soit automatiquement copiée et apparente sur d'autres pages que j'aurai initialement définit.

Grossièrement, je souhaite utiliser le principe de l'en tête mais dans une case quelconque.

Avez vous compris mon problème?
si oui pouvez vous m'aidez?

Merci

[Daniel.C]

Bonjour,

Oui. Tu en es où ? Qu'est-ce qui te bloque ? L'insertion de l'image sera-t-elle manuelle ?
Quel est ton niveau de connaissance VBA ?

[kini5454]

je souhaiterai que l utilisateur de l outil informatique n est qu une image à ajouter, un peu comme quand on créé un en tete sur word

j ai essayé en utilisant le controle activex d image et par consequent en utilisant du langage vba par le biais du mode developpeur

je sais par exemple copier le contenu d une combobox sur une autre page
mais là pour l image je ne vois pas comment faire

[Daniel.C]

L'insertion d'une image dans une cellule ne provoque pas de déclenchement d'évènement. Il faut ajouter un bouton pour provoque la recopie. Regarde la macro suivante. Lorsqu'une image est insérée en D6, Feuil1 et que tu exécutes la macro (ici attachée à un bouton), elle est recopiée en Feuil2, A1.

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub CommandButton1_Click()
    Dim sh As Shape
    For Each sh In ActiveSheet.Shapes
        If sh.TopLeftCell = [D6] Then
            sh.Copy
            Application.Goto [Feuil2!A1]
            [Feuil2].Paste
        End If
    Next sh
End Sub

[kini5454]

ok merci

est il possible de faire en sorte que cela s'applique à 100 pages par exemple?
c'est à dire que l'image sera collée automatiquement dans la même cellule de 100 feuilles différentes?

[Daniel.C]

Oui, un fois le copier fait, tu colles dans autant de cellules que tu veux.