Problème de variables sur deux boucles

**Ghost0000** · 12/07/2016, 20h43

Après plusieurs essaies, j'ai finalement réussi, en effet, il s'agissait d'un problème d'incrémentation de variable "Numéro de cellule"

Voici la solution :

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
                    'Redimensionnement de la colonne C :
                    With Workbooks(1).Sheets("BDD")
                        nbligne = .Cells(.Rows.Count, 1).End(xlUp).Row
                        Columns("C:C").ColumnWidth = 83
                        Range("C3:C" & nbligne).RowHeight = 146.25
                    End With
 
                    'Initialisation de la variable (numéro de cellule de la colonne C)
                    c = 2
 
                    'Redimensionnement des images au sein de chaque cellules de la colonne C (à partir de C3 jusqu'à nbligne)
                    For Each Img In Workbooks(1).Sheets("BDD").Shapes
                        c = c + 1
                                    With Img
                                        .LockAspectRatio = msoFalse
                                        .Top = Workbooks(1).Sheets("BDD").Range("C" & c).Top
                                        .Left = Workbooks(1).Sheets("BDD").Range("C" & c).Left
                                        .Width = Workbooks(1).Sheets("BDD").Range("C" & c).Width
                                        .Height = Workbooks(1).Sheets("BDD").Range("C" & c).Height
                                    End With
                    Next Img

J'ai pu trouvé grâce à vous !

Merci Encore !!

GK.

**eric4459** · 12/07/2016, 23h14

Bravo,
J'ai moi même essayé de tester plusieurs possibilités mais sans succès. Je regarderai demain, je te donnerai également un lien vers un site super que je consulte de temps en temps mais la je ne l'ai plus en tête ( prénom boisgonthier excellent). Comme quoi à force d'essayer et de se tromper .... ;-)
Eric