Problème concordance avec Excel 97

[Heddi]

Hello m'sieurs dames !

J'ai un ch'ti problème technique... A savoir :
Je veux controler la position d'un certain nombre de petit boutons sur une feuille. Il faut donc pour se repérer que la shape et comme AlternativeText et Name, ce qui est définie dans le bout de code en dessous...

Seulement, sur Excel 97, il me crie dessus lors du If... Savez vous pourquoi ? L'une des propriétés de l'objet n'existait po auparavant ? (sur 2000 et +, ça va bien...)

    For Each objet In ActiveSheet.Shapes
        If objet.AlternativeText = 'Zone de Texte: Recalculer' And objet.Name  'Text Box 90' Then
            objet.Left = objet.BottomRightCell.Left + 2
            objet.Top = objet.BottomRightCell.Top
        End If
    Next

Merci d'avance si vous avais une ch'tite idée !

 

[Zon]

Salut,

En effet, la propriété alternativetext n'exsite pas , un coup d'oeil sur les propriétés d'un shape sous XL 97tu n'as pas d'onglet Web.

Tu peux travailler comme sous Word :

For Each objet In ActiveSheet.Shapes
with objet
.select
if selection.characters.text='Zone de Texte: Recalculer' And .Name= 'Text Box 90' Then
.Left=.BottomRightCell.Left + 2
.Top = .BottomRightCell.Top
End If
end with
next objet

A+++