Bonjour,

Je souhaiterais dimensionner des images en fonction de la hauteur de plusieurs cellules. (une image = une cellule excel)

Le problème vient du fait que je n'arrive pas à affecter la valeur de la variable "cel" à la boucle "For each" suivante, ce qui fait que mes images se trouvent toutes au même endroit (dans la dernière cellule)

Voici mon code : (en rouge la valeur "Cel" que je n'arrive pas à faire varier par rapport à la première boucle: comment faire ? La valeur "Cel" prise en compte par la seconde boucle correspond à la dernière ligne "i")
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
                    'Mise en forme des cellules
                    Workbooks(1).Sheets("BDD").Columns("C:C").ColumnWidth = 83
                    
                    For Each cel In Workbooks(1).Sheets("BDD").Range("C3:C" & i).Rows
                    cel.RowHeight = 146.25
                    Next cel
                    
                    'Mise en forme des images
                    For Each Img In Workbooks(1).Sheets("BDD").Shapes
                    Img.LockAspectRatio = msoFalse
                    
                    With Img
                        .Left = cel.Left
                        .Top = cel.Top
                        .Width = cel.Width
                        .Height = cel.Height
                    End With
                    
                    Next Img
Vous remerciant par avance.

Cordialement.

GK