Problème error 13 & error 9

Version imprimable

Bonjour à tous,

J'ai un fichier excel dans lequel j'ai une image que je veux toujours positionner en haut de l'écran à gauche, pour ce faire j'utilise le code suivant:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Sub test() Dim Sh As Worksheets Set Sh = Worksheets("Sheet1") With Sh With .Shapes("Picture 9") .Top = Sh.Range("A1").Top .Left = Sh.Range("A1").Left .Height = Application.CentimetersToPoints(2) .Width = Application.CentimetersToPoints(2) End With End With Set Sh = Nothing End Sub
je souhaite aussi la dimensionner comme je le souhaite grâce au vba.
Mais ce code me ramène toujours à deux erreurs: soit error 9 "subscript out of range" soit error 13 "type dismatch" et je ne comprends pas ce que je dois faire, est ce un problème de librairie ?

Merci d'avance à ceux qui me liront =)

Guillaume

13/04/2016, 20h26
mercatog

Code:

Dim Sh As Worksheet

Sans s

Ensuite as tu une feuille qui s'appelle Sheet1?
13/04/2016, 20h37
Sup93400

je viens d'enlever le s mais l'erreur se positionne sur le:

Code:

With .Shapes("Picture 9")

quand je lance la macro...

et le sheet1 c'est parce que mon pack office est en anglais ^^

Guillaume

je viens de trouver, c'était le double with qu'il aimait pas.. voici le code:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub test()
Dim Sh As Worksheet
Set Sh = Worksheets("Sheet1")
 
With Sh
 
.Shapes("Picture 7").Top = Sh.Range("B5").Top
 
.Shapes("Picture 7").Left = Sh.Range("B5").Left
 
.Shapes("Picture 7").Height = Application.CentimetersToPoints(20)
.Shapes("Picture 7").Width = Application.CentimetersToPoints(20)
End With
 
 
Set Sh = Nothing
End Sub

merci pour ton aide =)

Guillaume