Discussion :

[boubas53]

Bonjour,

Je voudrais mettre des images chacune dans une cellule mais je voudrais qu'elles soient parfaitement adaptées et ajustées aux dimensions de la cellule. En effet, comme j'aurai plusieurs images de même dimensions à mettre dans pleins de cellules, je ne voudrais pas toutes les avoir à ajuster de façon manuelle dans les cellules en faisant de l'à peu près. En fait, c'est comme si je voulais une image de remplissage au lieu d'une couleur de remplissage de la cellule. Comment puis-je procéder ? Merci.

[Invité]

Salut,

Tu vas être obligé d'utiliser du code VBA.

En prenant comme référence la cellule en haut à gauche de chaque image:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Option Explicit
 
Private Sub CentrerImages()
 
  Dim rng As Range
  Dim shp As Shape
 
  For Each shp In Me.Shapes
    With shp
      If .Type = msoPicture Then
        Set rng = .TopLeftCell
        .LockAspectRatio = False
        .Left = rng.Left:   .Top = rng.Top
        .Width = rng.Width: .Height = rng.Height
      End If
    End With
  Next shp
 
End Sub

Code à insérer dans le module de la feuille considérée.

[boubas53]

Bonjour,

J'ai un peu de mal avec les macros. Par exemple, je veux que dans le fichier ci-joint, les 3 images soient parfaitement intégrées et ajustées dans les 3 cellules fusionnées C5, F5 et I10. Merci.

[Invité]

Ok je t'ai mis un exemple du résultat en pj.

J'ai changé le code pour prendre en compte les cellules fusionnées:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Option Explicit
 
Private Sub CentrerImages()
 
  Dim rng As Range
  Dim shp As Shape
 
  For Each shp In Me.Shapes
    With shp
      If .Type = msoPicture Then
        Set rng = .TopLeftCell.MergeArea
        .LockAspectRatio = False
        .Left = rng.Left:   .Top = rng.Top
        .Width = rng.Width: .Height = rng.Height
      End If
    End With
  Next shp
 
End Sub

Il faut cependant déplacer le coin 'haut - gauche' de chaque image dans la cellule désirée avant d’exécuter le code.

[Invité]

Si tu veux que la taille des images s'adapte avec les cellules alors il faut rajouter la propriété suivante:

Code :

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

.Placement = xlMoveAndSize

[boubas53]

Je comprends pas, quand j'ouvre ton fichier, que je vais dans le menu développeur et que je clique sur macro, je ne vois pas la trace de ta macro pour l'exécuter.

[Invité]

C'est parce que j'ai déclaré la procédure en 'Private'.
Ci joint un exemple avec la procédure déclarée en 'Public' et donc accessible depuis le ruban Excel