Discussion :

[metis]

Bonjour, (débutant)

le problème me parait simple, mais pas moyen d'y arriver:

"je dispose d'une colonne contenant des chemins d'images, je souhaite tout simplement une fonction à mettre dans la colonne d'à coté pour incorporer et afficher ces images"

la macro suisvante fonctionne:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 16/05/2007 par userX
    ActiveSheet.Pictures.Insert( _
        "C:\Documents and Settings\user\Mes documents\Mes images\Logos\animalis.gif"). _
        Select
End Sub

mais dès que je l'appelle depuis une fonction ça plante!!! pourquoi?


Sila "fonction" était définitivement impossible, il me reste la possibilité de faire une macro qui affiche d'un coup toutes les images en balayant ma colonne contenant les chemins. Qqun peut il m'aiguiller pour faire ce genre de boucle ?

Merci

[ouskel'n'or]

Ton code ne pose pas de problème.
Tu mets "dès que je l'appelle depuis une fonction"... Qu'entends-tu par là ?
Où as-tu une erreur ? Sur quel ligne ? Quel message ?
Montre ta fonction
A+

[metis]

bonsoir,

voici le code :

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
Function test()
 
Macro1
 
End Function
 
Sub Macro1()
On Error GoTo erreur:
 
' Macro1 Macro
' Macro enregistrée le 16/05/2007 par userX
    ActiveSheet.Pictures.Insert( _
        "C:\Documents and Settings\user\Mes documents\Mes images\Logos\animalis.gif"). _
        Select
Exit Sub
 
erreur:
 MsgBox Err
 
End Sub

si je met dans une cellule de mon tableau Excel la formule "=test()"

la Macro1 tombe en erreur 1004.

alors que quand je la lance directement elle marche ?

Merci

[AlainTech]

2 choses à savoir:
Une fonction, placée dans une cellule, ne peut pas modifier les données d'autres cellules.
Une procédure modifiant des données dans une/des feuille(s) doit être placée dans un module et pas d'ans le code d'une feuille.