insertion de forme automatique

[legros gilles]

Salut à tous,
quelqu'un pourait- t- il me dire sous excel 2000 (windows ) comment insérer par le biais d'une formule une forme automatique quelconque .

exemple : A1 =10
l'idée : dans la cellule A4 une formule commencant par: si( A1 <20; insertion d'une forme.......
apparement il est possible de nommer une forme mais comment l'insérer dans une formule.

est-ce réalisable ?
merci de votre aide

 

[@Christophe@]

Bonjour Gilles

Avec macro, réalisable sur, mais avec formule je crois pas, mais peux être que un ou une specialiste des formules aura une solution, mais j'y crois pas trop.

Avec ce genre de macro, si la valeur introduite dans A1 est plus grande que 10 il insert une image.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("A1").Value > 10 Then
ActiveSheet.Pictures.Insert( _
"C:\Mes documents\Mes images\1.jpg").Select
End If

End Sub

Dis moi ce que tu en penses

@Christophe@

 

[@Christophe@]

Re

Petit détail, cela marche bien sur aussi pour une forme automatique comme tu demandais

Au lieu de ActiveSheet.Pictures.Insert...... tu mets:

ActiveSheet.Shapes.AddShape(msoShapeMoon, 197.25, 109.5, 52.5, 75.75).Select

Voila un petit exemple

@Christophe@

 

[legros gilles]

christophe , je suis désolé mais mes connaissances en macros ne me suffise pas pour te comprendre.

tu me parle de macro mais est ce que la macro s'execute à chaque changement du contenu de la cellule A1 ou il faut relancer sans arrêt la macro ?

 

[@Christophe@]

RE

Oui, c'est bien cela, la macro s'éxecute a chaque changement de la cellule A1

@Christophe@