Déclarer une variable

J'essaie vainement de déclarer une variable dans un petit code, qui me permet d'insérer des photos de façon rapide.

Le code me permet de distribuer rapidement des photos dans des contrôles image.

Voici le code qui me permet de faire défiler les photos selon la valeur contenue dans la combobox1:

Feuil1.Image1.Picture = LoadPicture(c:\"" & combobox1.value & ".jpg")

J'aimerais faire quelque chose comme ça :

Dim image As string
image = combobox2.vale
Feuil1.(image).Picture = LoadPicture("C:\""&combobox1.value & ".jpg")

Les valeurs contenues dans la combobox2 seraient Image1, Image2, Image3.... de façon à pouvoir selectionner le bon contrôle Image.

Je peux bien évidement fournir un classeur, mais il n'est pas très parlant puisque les photos se trouvent dans un document à part.

Merci beaucoup pour l'aide.

Bonsoir JeremyW

Sur une feuille, la collection d'objets est Shapes, sur un formulaire, c'est Controls, ton code devient :

    Dim sImage As String
    sImage = combobox2.value
    Feuil1..Shapes(sImage).DrawingObject.Object.Picture  = LoadPicture("C:\""&combobox1.value & ".jpg")

Si pour une raison quelconque tu as besoin de vérifier que l'objet est bien une image :

If TypeName(Feuil1.Shapes(sImage).DrawingObject.Object) = "Image" Then

Bonjour Benead et merci.

Je n'avais pas vu que tu avais répondu à ma question.

En tous cas, ça fonctionne parfaitement, merci à toi pour ta réponses et surtout les explications qui vont avec.

Bon week end

Rechercher des sujets similaires à "declarer variable"