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

Une image qui tombe hors du cadre selon l'écran

Créer une discussion

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

WDAndCo

XLDnaute Impliqué
Bonjour le Forum
J'ai ce bout de code qui en fonction de différents criteres choisi la bonne image (de taille et sens différent pour l'instant)
Code: 
If Dessin = "MD2P" Then Gauche = 50: Haut = -140: Reduc = 1: Rota = 90
If Dessin = "MG2P" Then Gauche = -20: Haut = -140: Reduc = 1: Rota = 90
If Dessin = "MG0PVCC" Then Gauche = -20: Haut = -155: Reduc = 1: Rota = 90
If Dessin = "MD0PVCC" Then Gauche = 40: Haut = -155: Reduc = 1: Rota = 90
If Dessin = "MG8PVCC" Then Gauche = -40: Haut = -150: Reduc = 1: Rota = 90
If Dessin = "MD8PVCC" Then Gauche = -40: Haut = -150: Reduc = 1: Rota = 90
If Dessin = "MDTJD" Then Gauche = -70: Haut = -90: Reduc = 0.6: Rota = 90
If Dessin = "MGTJD" Then Gauche = 0: Haut = -90: Reduc = 0.6: Rota = 90
If Dessin = "MDVCC2PTJD" Then Gauche = -70: Haut = -80: Reduc = 0.6: Rota = 90
If Dessin = "MGVCC2PTJD" Then Gauche = 0: Haut = -80: Reduc = 0.6: Rota = 90
If Dessin = "HJL" Then Gauche = 150: Haut = 150: Reduc = 1.5: Rota = 0

    Sheets("Schemas Aiguille").Visible = True 'Feuille qui contient les dessins
    Sheets("Schemas Aiguille").Select
    Range("E1") = Dessin 'Nom du dessin choisi
    ActiveSheet.Shapes(Dessin).Copy
    Sheets("Schemas Aiguille").Visible = False
        Sheets("Fiche Projet").Select 'Feuille ou seras copier le dessin
        DeProtege
        Range("F5").Select
        ActiveSheet.Paste 'Mise en forme
        Selection.ShapeRange.IncrementRotation Rota
        Selection.ShapeRange.IncrementLeft Gauche
        Selection.ShapeRange.IncrementTop Haut
        Selection.ShapeRange.ScaleHeight Reduc, msoFalse, msoScaleFromBottomRight
        Selection.ShapeRange.ScaleWidth Reduc, msoFalse, msoScaleFromTopLeft
If Dessin <> "HJL" Then Selection.ShapeRange.Name = "Dessin": Range("H9").Value = 1'test si dessin ou pas
If Dessin = "HJL" Then MsgBox ("Pas de Dessin pour cette installation : Voir Jean Louis"): ActiveSheet.Shapes("HJL").Delete: Range("H9").Value = 0
Protege
Range("C2").Select
Mais en fonction de l'écran sa tombe a coté du cadre (D2 à I9) comment eviter cela.
D'avance merci
 
Trier par date Trier par votes
Re : Une image qui tombe hors du cadre selon l'écran

Bonjour le Forum et Paritec

Comment coller une image pas toujours la même qui n'ont pas les mêmes dimensions qui sont dans un autre onglet et cela sur cadre qui comporte les cellules de D2 a I9

D'avance merci
 
Vote positif 0 Vote négatif
Re : Une image qui tombe hors du cadre selon l'écran

Bonsour®
utiliser les objets Image ActiveX
adapter la propriété PictureSizeMode selon besoin


0 -Clip : l'image est insérée, non redimensionnée, , tronquée selon le cas
1 - Stretch : l'image est insérée, et déformée pour s'adapter intégralement au conteneur
2 - Zoom : l'image est insérée et redimensionnée proportionnellement pour être visible entiérement
 

Pièces jointes

  • Capture.JPG
    80.3 KB · Affichages: 48
  • Capture.JPG
    80.3 KB · Affichages: 42
Vote positif 0 Vote négatif
Re : Une image qui tombe hors du cadre selon l'écran

Bonjour le Forum et Modeste geedee

Comment adapter cela à ce code ? (Je suis en XP)
Code: 
 Sheets("Schemas Aiguille").Visible = True 'Feuille qui contient les dessins
    Sheets("Schemas Aiguille").Select
    Range("E1") = Dessin 'Nom du dessin choisi
    ActiveSheet.Shapes(Dessin).Copy
    Sheets("Schemas Aiguille").Visible = False
        Sheets("Fiche Projet").Select 'Feuille ou seras copier le dessin
        DeProtege
        Range("D2:I9").Select
        ActiveSheet.Paste 'Mise en forme
        Selection.ShapeRange.IncrementRotation Rota
        Selection.ShapeRange.IncrementLeft Gauche
        Selection.ShapeRange.IncrementTop Haut
        Selection.ShapeRange.ScaleHeight Reduc, msoFalse, msoScaleFromBottomRight
        Selection.ShapeRange.ScaleWidth Reduc, msoFalse, msoScaleFromTopLeft
If Dessin <> "HJL" Then Selection.ShapeRange.Name = "Dessin": Range("H9").Value = 1'test si dessin ou pas
If Dessin = "HJL" Then MsgBox ("Pas de Dessin pour cette installation : Voir Jean Louis"): ActiveSheet.Shapes("HJL").Delete: Range("H9").Value = 0
D'avance merci
 
Vote positif 0 Vote négatif
Re : Une image qui tombe hors du cadre selon l'écran

Bonjour le Forum

J'ai trouvé cela :
Code: 
ActiveSheet.Paste
        Selection.ShapeRange.IncrementRotation Rota
        Selection.ShapeRange.IncrementLeft = Range("D2").Left
        Selection.ShapeRange.IncrementTop = Range("D2").Top
        Selection.ShapeRange.ScaleHeight = Range("D2:I9").Height
        Selection.ShapeRange.ScaleWidth = Range("D2:I9").Width
Mais bien sur ça ne fonctionne pas. Donc comment mettre le dessin qui a était choisi sur les cellules de D2 à I9

D'avance merci
 
Vote positif 0 Vote négatif
Re : Une image qui tombe hors du cadre selon l'écran

Non rien a faire je ne comprends même pas ce code ! Alors je suis loin de mettre ces dessins à leurs placent
Le coin supérieur gauche Left D2 OK mais après le trou noir.
 
Vote positif 0 Vote négatif
Re : Une image qui tombe hors du cadre selon l'écran

Bonjour le Forum

J'ai trouvé. Cela est provoqué par la version d'Excel !
Donc je vais codé en double. La position des dessins.

Comment connaitre la version d'Excel pour faire une selection ?

D'avance merci.
 
Vote positif 0 Vote négatif
Re : Une image qui tombe hors du cadre selon l'écran

Bonjour à tous

Un des moyens pour connaître la version d'Excel est de taper dans une cellule:

Code: 
=INFORMATIONS("version")

Ensuite suivant le résultat tu auras pour PC: 7=95, 8=97, 9=2000, 10=2002, 11=2003, 12=2007, 14=2010 et 15=2013

Mais il doit y avoir un moyen par VBA.
 
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

Discussions similaires

  • Question Question
XL 2021 coller une image interne au classeur
2 3
Réponses
33
Affichages
1 K
Jouxte
D
  • Question Question
XL 2021 VBA - Erreur 1004 aléatoire - Image/Logo
Réponses
10
Affichages
798
crocrocro
C
W
  • Question Question
XL 2016 Supprimer une image.JPG puis Intégrer une nouvelle.JPG au-dessus du groupe de cellules A13:A14
Réponses
4
Affichages
578
Webperegrino
W
P
  • Résolu(e)
Microsoft 365 Erreur d'exécution "9" :L'indice n'appartient pas à la sélection
Réponses
9
Affichages
2 K
pelerin65
P
M
  • Question Question
XL 2010 Insérer image dans une zone de texte
2
Réponses
15
Affichages
2 K
patricktoulon
F
  • Question Question
XL 2016 Blocage macro sur instruction SET
Réponses
6
Affichages
622
job75
  • Résolu(e)
Microsoft 365 Code VBA qui renvoie une matrice à partir d'un liste à cocher au lieu d'une cellule
Réponses
5
Affichages
928
yal
Y
S
  • Question Question
XL 2013 Ajouter un lien hypertexte dans la macro qui envoi une invitation outlook
Réponses
3
Affichages
1 K
Sbed
S
M
  • Résolu(e)
Microsoft 365 Image stockée dans une feuille à l'initialisation du userform
2
Réponses
20
Affichages
2 K
meyscal
M
R
  • Résolu(e)
XL 2019 Vba qui détermine la moyenne en fonction du produit
Réponses
1
Affichages
607
Rose_Chlh
R
  • Question Question
Microsoft 365 problème navigation et selection dans Combobox-Liste de choix
Réponses
4
Affichages
2 K
chostra
E
  • Question Question
Microsoft 365 Ecrire une date en fonction d'une recherche (vba)
Réponses
2
Affichages
1 K
Eisu
E
S
  • Question Question
XL 2010 Redimensionner une image avec méthode Range(" ").CopyPicture
2
Réponses
26
Affichages
5 K
Staple1600
P
  • Résolu(e)
XL 2019 Macro qui enregistre en PDF à personnaliser
Réponses
10
Affichages
2 K
pat66
P
W
  • Résolu(e)
Microsoft 365 Insertion Image dans une Feuille et Ratio conservé
2
Réponses
23
Affichages
4 K
patricktoulon
M
  • Résolu(e)
Supprimer une ligne d'un tableau selon la valeur d'une cellule sous VBA (sans supprimer les lignes au dessus)
Réponses
14
Affichages
9 K
MaDesn
M
P
  • Question Question
XL 2019 Macro qui ralenti mon classeur après exécution
Réponses
2
Affichages
785
pat66
P
  • Question Question
XL 2016 Image Useform
2 3
Réponses
39
Affichages
5 K
Maathis
K
  • Question Question
Microsoft 365 choisir une page
Réponses
6
Affichages
806
xUpsilon
N
  • Question Question
Boucle for qui ne boucle pas
Réponses
4
Affichages
554
Niko71
N
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…