Insertion forme

[Sebastien]

Bonjour à vous,

Je souhaiterais savoir s'il est possible d'integrer une image en fonction d'un nombre dans une cellule. ex: Si A1 = 5 insertion petit cercle
Si A1= 10 insertion gros cercle

Je vous remercie du temps que vous passerez sur mon problème

Sebastien

 

[Nanard]

Bonsoir visiteur,

voici une solution :

Sub cercle_Dif()
Dim c As Integer
If Sheets('Feuil1').Range('A1') = 5 Then
Range('A2').Select
ActiveSheet.Shapes.AddShape(msoShapeOval, 129#, 14.25, 18.75, 15#).Select
Range('B5').Select
Else
ActiveSheet.Shapes.AddShape(msoShapeOval, 83.25, 9.75, 90.75, 92.25).Select
Range('C11').Select
End If
End Sub

 

[Sebastien]

Excuse moi de ne pas t'avoir répondu plus tot
Je te remercie pour ta réponse je vais m'exercer dessus ça va m'être d'une grande utilité.
Merci beaucoup
A+