Re : copie d'un code par macro
Bonsoir Hulk.
Malheureusement je ne peux déposer mon fichier, trop lourd !!! même allégé il reste trop gros. Cependant voici le code qui se situe dans ma feuille modèle :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
'-- suppression
For Each s In ActiveSheet.Shapes
If s.Type = 13 Then
If s.TopLeftCell.Address = Target.Offset(0, 1).Address Then
s.Delete
End If
End If
Next s
'--
Sheets("METEO").Shapes(Application.Substitute(Target, " ", "")).Copy
Target.Offset(0, 1).Select
ActiveSheet.Paste
Selection.ShapeRange.Left = ActiveCell.Left + 9
Selection.ShapeRange.Top = ActiveCell.Top + 5
Target.Select
End If
End Sub
L'autre macro que j'utilise sélectionne uniquement les cellules de la feuille modèle et me crée une nouvelle feuille appellée feuille 1. Comment faire pour copier ce code automatiquement dans ma feuille 1 ?
Merci encore.