insertion de forme automatique

  • Initiateur de la discussion legros gilles
  • Date de début
L

legros gilles

Guest
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@

Guest
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@

Guest
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@
 
L

legros gilles

Guest
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 ?
 

Discussions similaires

Statistiques des forums

Discussions
311 720
Messages
2 081 915
Membres
101 837
dernier inscrit
Ugo