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...)
Code:
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
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