Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

simplifier un rapport photo

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion sseebburb
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
S

sseebburb

Guest
Bonjour Dans la pièce jointe vous trouverez une fiche de raccordement sur ces fiche ce trouve 4 emplacements pour y caser des photos je désire crée une macro qui m évitera d exécuté la manipulation suivante,

insertion==>image==>a partir du fichier, ensuite recherche du dossier (recherche de la photo)==>inséré==>redimensionner

mon souhait lol : clic sur le cadre ou une photo doit etre place ==ouverture du dossier je sélectionne ma photo, elle s insére dans ma feuille exel au dimension d une case et je n ai plus qu a la positionner au bonne endroit.
 

Pièces jointes

Trier par date Trier par votes
Re : simplifier un rapport photo

Bonjour sseebburb,

Y'a sûrement moyen de faire beaucoup plus propre, mais voici un essai :

VB: 
Sub Rectangle2_Cliquer()
    ActiveSheet.Pictures.Insert(Application.GetOpenFilename(Filefilter:="Images (*.png),(*.jpg),")).Select
    Selection.ShapeRange.Top = Range("B7").Top
    Selection.ShapeRange.Left = Range("B7").Left
    Selection.ShapeRange.Height = Range("B7:B18").Height
    Selection.ShapeRange.Width = Range("B7:R7").Width
End Sub

C'est seulement dans le cas du première rectange en haut à gauche, il suffit de refaire le même code, en modifiant les Ranges pour chacun des rectangles.
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

  • Question Question
XL 2016 Manipulation d'un PDF à partir d'un activeX sur un UserForm
Réponses
1
Affichages
5 K
kiki29
B
  • Question Question
Chargement d'image dans un UserForm
2
Réponses
22
Affichages
8 K
breitzou
B
T
  • Question Question
crée une correspondance entre excel et un fichier image.
Réponses
1
Affichages
662
phlaurent55
M
[REF] Wiki Page 7 de MichelXld
Réponses
0
Affichages
52 K
MichelXld
M
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…