Copier une shape sur 12 onglets

[maval]

Bonjour,

J'ai fichier avec une feuille accueil et les 12 mois de l'année.Sur la feuille d'accueil j'ai la possibilité de faire le choix d'un logo.
Après avoir fait le choix du logo qui se trouve sur la feuille d'accueil. Je suis à la recherche d'un code pour copier se logo sur les 12 mois de l'année.
Un fichier valant mieux qu'un long discours, veuillez voir la pièce jointe.

D'avance merci à qui pourra m'aider.
Cordialement
Maval

 

[Yaloo]

Re : Copier une shape sur 12 onglets

Bonjour Maval,

Avec ta macro modifiée. Ajout d'une macro pour supprimer les images déjà en place.

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$B$12" And Target.Count = 1 Then
    On Error Resume Next
    ActiveSheet.Shapes("monimage").Delete
    On Error GoTo 0
    If Target <> "" Then
        For i = 1 To 13
          With Sheets(i)
            .Activate
            Supp_image
        Sheets("Images").Shapes(Target).Copy
        .[B4].Select
        ActiveSheet.Paste
        .[B4].Select
        End With
        Next
     End If
  End If
  Sheets("Accueil").Activate
  Target.Select
End Sub
Sub Supp_image()
Dim Imag As Object
 For Each Imag In ActiveSheet.DrawingObjects
     If TypeOf Imag Is Picture Then
         Imag.Delete
     End If
 Next Imag
End Sub

A te relire

Martial

Edition: Salut Jean-Claude, ah la grasse mat' du dimanche matin 😛

 

[maval]

Re : Copier une shape sur 12 onglets

Bonjour Martial,

Je te remercie beaucoup sa fonctionne Nickel.

Je te souhaite une bonne journée

@+
Max

 

[JCGL]

Re : Copier une shape sur 12 onglets

Bonjour à tous,

Un essai avec un code qui doit surement être simplifiable

A+ à tous

Edition : Très en retard... Salut Martial
Ré Edition : Salut FG 😎... Toujours un plaisir de te croiser.

 

[Efgé]

Re : Copier une shape sur 12 onglets

Bonjour maval, Yaloo, Salut JC 🙂
Une proposition sans macro du tout.
Cordialement

@ JC (décidément on peux rester des mois sans se croiser et en un Weekend rattraper le retard 😀)

EDIT Formules simplifiées et gestion du "vide" dans le choix. Bonjour 00 🙂

 

[maval]

Re : Copier une shape sur 12 onglets

Bonjour Efgé, Jean Claude,

Je vous remercie pour toute vos propositions!
Et vous souhaite une bonne journée

Max