Discussion :

[abennis]

Quelqu'un a une idée de pourquoi ce code ne passe pas ?

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
Sub redimensionnerImage(nomImage As String, nomReference As String)
    Dim facteurLargeur As Double
    Dim facteurHauteur As Double
 
 
    facteurLargeur = ActiveSheet.Shapes(nomReference).Width / ActiveSheet.Shapes(nomImage).Picture.Width 'Ligne cause d'erreur
 
' Précision : ce qui ne passe pas, c'est la 2ème partie de la ligne, c'est à dire le Shapes(nomImage).Picture.Width
 
    facteurHauteur = ActiveSheet.Shapes(nomReference).Height / ActiveSheet.Shapes(nomImage).Range.Height 'Ligne cause d'erreur
 
 
    ActiveSheet.Shapes(nomImage).Picture.Width = ActiveSheet.Shapes(nomImage).Picture.Width * facteurLargeur
    ActiveSheet.Shapes(nomImage).Picture.Height = ActiveSheet.Shapes(nomImage).Picture.Height * facteurHauteur
 
End Sub

[ouskel'n'or]

As-tu besoin d'ajouter Picture ?

Code :

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

Rapport = ActiveSheet.Shapes(1).Width / ActiveSheet.Shapes(2).Width

Mais tu veux peut-être autre chose...
Tu dis
A+

[abennis]

Ca marche nickel.

Chui trop bete!


Merci