Discussion :

[Sup93400]

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 :

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
 
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

[mercatog]

Code :

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

Dim Sh As Worksheet

Sans s

Ensuite as tu une feuille qui s'appelle Sheet1?

[Sup93400]

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

Code :

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

With .Shapes("Picture 9")

quand je lance la macro...

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

Guillaume

[Sup93400]

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

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
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