Bonjour,
Voici mon problème: Je voudrai redimensionner des images sous excel. Ma macro marche bien si je séléctionne plusieurs images sur la feuille elles se redimensionnent. Cependant si je ne séléctionne qu'une image parmis celles qui sont sur la feuilles toutes les images se redimenssionnent et non seulement celle que j'ai séléctionnée. Comment faire?

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
20
21
22
23
24
25
26
27
Sub Imagex3()
'
' Imagex3 Macro
' Redimensionnement Imagex3
'
' 'Declarons nos variables
    Dim PecentSize As Integer
    Dim inShape As Shape
    Dim i As Integer
    Dim nbrImagesSelect As Long
    nbrImagesSelect = ActiveSheet.Shapes.Count 'Récupération du nombre d'images de la SELECTION
    i = 1
 
    'On parcours toutes les images de la selection et on les redimmensionne une à une
    ' ==> on met un compteur i à 1 (première image i=1)
    'tant que le compteur n'à pas atteint le nombre d'images alors on redimensionne l'image n°i
    'enfin on ajoute 1 à i pour parcourir l'image suivante (i=i+1)
 
    While i <= nbrImagesSelect
    Set inShape = ActiveSheet.Shapes(i)
    'Redimensionnement de la largeur
    inShape.Width = 150
    i = i + 1
    Wend
'
'
End Sub