bonjour à tous
Un code d'AV pour insérer une image à partir d'une liste déroulante.
Private Sub Worksheet_Calculate() 'AV
'Efface image précédente
On Error Resume Next
Application.ScreenUpdating = False
With Sheets("autoris")
For Each DwO In Sheets("autoris").DrawingObjects
If Not Intersect(.[N8], DwO.BottomRightCell) Is Nothing Then
DwO.Delete ' Replace:=False
Next DwO
'Copie image
Lg = Sheets("Photos").Range("NomsImages").Find(Sheets("Calcul1").[A1]).Row
Sheets("Photos").Range("LesImages").Item(Lg - 1).Copy .[N8]
End With
retour2
End Sub
Je l'utilise avec des photos en jpeg, mais ça marche avec 1 photo et pas les
autres
Je repose la question du 13/10
Est-ce que le code "DrawingObjects" est approprié à des photos ou kekun
sait-il ce qui peut rendre le fonctionnement aléatoire ?
Excusez moi d'insister
à+
gilles
--
en VBA aussi, ne remettons pas au lendemain ce qu'on peut faire aujourd'hui,
mais à chaque jour suffit sa peine...