Discussion :

[young 25]

Bonjour à toutes et à tous,

Ci-joint un fichier dans lequel j'ai crée plusieurs macro donc une macro copier coller une image et c'est cette macro qui me pose quelques problemes.
en fait avec cette macro, je copie une image en feuille 1 et je vais la coller sur 5 autres feuilles jusque la ça fonctionne. par contre je souhaite coller l'image dans une zone définie ( zone grise dans les feuilles) mais malgré la selection d'une cellule de départ avec de coller il me colle l'image autre part.
Je vous avoue que je ne comprend pas.

Si vous avez une idée elle est la bien venue.

Merci d'avance et bonne journée
A+

[mercatog]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Sub Macro5()
Dim Ws As Worksheet
 
Application.ScreenUpdating = False
With Worksheets("Tableau de bord").Shapes(12)
    .Width = 440                                 'redimensionner Largeur 440
    .Height = 435                                'redimensionner Hauteur 435
    .Rotation = 180                              'image 12 rotation de 180°
    .Copy                                        'copier l'image 12
End With
 
For Each Ws In ThisWorkbook.Worksheets
    If InStr(Ws.Name, "Feuille") > 0 Then
        With Ws
            .Protect "thibaut", UserInterfaceOnly:=True
            .Paste
            With .Shapes(.Shapes.Count)
                .Width = 1100                    'redimensionner largeur 1110
                .Height = 424
                .Left = 0
                .Top = 0
            End With
        End With
    End If
Next Ws
Application.CutCopyMode = False                  'arreter le mode copy avec échappe
End Sub

[young 25]

merci mercatog

cela fonctionne

Bon Week-end
A+