Probleme avec une macro copier coller

Version imprimable

25/02/2012, 07h51
young 25

1 pièce(s) jointe(s)

Probleme avec une macro copier coller

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+

Petite modification

Code:

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

25/02/2012, 10h37
young 25

merci mercatog

cela fonctionne

Bon Week-end
A+