castor30
XLDnaute Occasionnel
Bonjour,
j'ai un problème dans ce code pour effacer l'image
En vous remerciant
j'ai un problème dans ce code pour effacer l'image
En vous remerciant
VB:
Sub Logo()
Dim F As Worksheet, Nom As String
Application.ScreenUpdating = False
'La feuille avec le logo doit être la feuille active
Worksheets("Img").Visible = True
Sheets("Img").Activate
Nom = ActiveSheet.Name
ActiveSheet.Shapes("Picture 1").Copy
Nom = ActiveSheet.Name
Sheets("EC").Activate
RazLogo
Range("A1").Select
ActiveSheet.Paste
Selection.Name = "Logo"
Selection.ShapeRange.Left = 1.5
Selection.ShapeRange.Top = 1.5
Worksheets("Img").Visible = False
Application.ScreenUpdating = True
End Sub
Sub RazLogo()
ActiveSheet.Shapes("Logo").Delete
Range("A1:E20").ClearContents
End Sub
Dernière édition: