Pb de noms de variables

Bonjour

Je suis en train de créer ma propre barre d'outils avec mes propres boutons.
Parmi ces boutons, l'un d'entre eux, qu'on va appeler "Inserer image", doit servir à :

- Insérer une image dans ma feuille Excel, à partir d'un fichier
- Eventuellement selon les cas, appliquer quelques traitements simples à cette image (déplacement, redimensionnement)

Alors pour tout ce qui est insertion , déplacement, redimensionnement, et même algorithmie (le "selon les cas"), je m'en sors, ça marche nickel.

Là où je me mélange carrément les pinceaux, c'est :

Comment distinguer les images que je créee les une des autres ? (au niveau des noms).

Parce que dans mon code je fais

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

'Début de la macro Dim response As Variant Dim nomFichier As String   With UserForm1.CommonDialogInsererImage .CancelError = False .DialogTitle = "Inserer une image" .Filter = "Images (*.bmp;*.jpg;*.gif;*.ico;*.png)|*.bmp;*.jpg;*.gif;*.ico;*.png|Tous les fichiers (*.*)|*.*" .FilterIndex = 1 .InitDir = CurDir .Filename = "" .ShowOpen nomFichier = .Filename End With   ' Si choix = Ouvrir If nomFichier <> "" Then Dim ImageInseree As New image ImageInseree.Picture = LoadPicture(nomFichier) UserFormOptions.Show

---

Puis dans ma UserForm UserFormOptions, l'utilisateur peut cocher des options qui font qu'on appliquera ou non certains traitements à l'image qui vient d'être insérée.
Une fois les options cochées, il clique sur un bouton "OK", d'où une Sub
CommandButtonOk_Click()
Et dans cette Sub, je ne sais pas comment désigner mon image (avec quel nom de variable la manipuler ? ImageInseree ? )

Puis si je réinsère une image derrière, elle aura le même nom de variable ?

J'espère que je suis pas trop "pas clair".

Please help !

Les images et tout autre objet qu'une cellule font partie d'une collection Shapes. Il me semble que le premier indice de cette collection est zéro et que tu peux en avoir le nombre d'occurences via la propriété Count.

Donc quand je crée une image avec un
Dim monimage as New Image

on la retrouve automatiquement dans la collection Shapes ensuite ?

Pour faire plus pratique tu peux créer un tableau.

Code:

---

1 2 3 4 5 6 7

Private TabImages() As Picture ' tableau dynamique (encore vide)   Sub Procedure_Evenement() Redim Preserve TabImage(0) ' le premier élément Set TabImage(0) = New Picture TabImage(0) = LoadPicture("chemin\fichierimage.bmp") End Sub

---

Le mieux, c'est de dimentionner le premier élément dans le Form_Load et de tester sur le plus trand indice (fonction UBound) avant d'en ajouter d'autres.