copie d'un code par macro

Re : copie d'un code par macro

Hello,

Dépose ton fichier qu'on voie ton code de plus près, sans ça difficile de t'aider !

Cdt, Hulk.

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.

Re : copie d'un code par macro

Bonsoir,

MPP87 à dit:

...Cependant voici le code qui se situe dans ma feuille modèle...
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 ?

Cliquez pour agrandir...

Je ne comprends pas bien
Si la feuille "modèle" sert à créer la feuille "feuille 1"
S'agissant d'une copie, le code se trouvant dans le module de la feuille "modèle" sera également copié dans le module de la feuille "Feuille 1"
A+
kjin

Re : copie d'un code par macro

Bonjour Kjin
Bien sur ! tu as raison.
Mon souci vient du fait que sur ma macro de copie je ne sélectionnais que les cellules que je copiais vers une nouvelle feuille.
Je rectifie et ça marche.
Merci de m'avoir ouvert les yeux !!!
A bientôt.