XL 2016 Noms dupliqués

[danielco]

Bonjour,

J'ai un classeur avec plusieurs images liées à des cellules. Plusieurs images portent le même nom. Pouvez-vous vérifier que je n'ai pas fait d'erreur ? Voici le code utilisé :

Sub test()
  Dim sh As Shape
  ligne = 1
  Set Var = ActiveSheet.Shapes("Image 56")
  With ThisWorkbook.Sheets(1)
    .[2:100].ClearContents
    For Each sh In ActiveSheet.Shapes
      ligne = ligne + 1
      .Cells(ligne, 2) = sh.Name
      .Cells(ligne, 3) = sh.TopLeftCell.Address
      .Cells(ligne, 4) = sh.BottomRightCell.Address
      .Cells(ligne, 5) = sh.Height
      .Cells(ligne, 6) = sh.Width
      On Error Resume Next
      .Cells(ligne, 7) = sh.DrawingObject.Formula
      On Error GoTo 0
    Next sh
  End With
End Sub

Et le résultat obtenu :

Merci d'avance pour vos réponses.

Daniel

 

[eriiic]

Bonjour,

sans fichier avec tes Shapes ça va être difficile de contrôler.
A part Set Var = ActiveSheet.Shapes("Image 56") qui semble inutile car non utilisé, on ne peut pas dire grand chose.
eric

 

[danielco]

Bonjour et merci pour ta réponse. La ligne inutile m'a juste servi à contrôler que la ligne ne provoquait pas d'erreur. Sinon, en effet, j'aurais dû la retirer.
J'attends l'accord du propriétaire du classeur pour poster celui-ci.

Daniel

 

[danielco]

Voici le classeur.

Daniel

 

[eriiic]

m'est avis que tu t'es trompé de fichier
eric

 

[danielco]

Euh, non, pourquoi ?

Daniel

 

[eriiic]

Comme tu parlais d'images je m'attendais à en trouver.
Comme objets il n'y a que des cases à cocher parfaitement nommées différemment...

 

[danielco]

Nan, clique en D8, par exemple, tu vas avoir une image liée aux cellules AN16:BA16.

Daniel

 

[eriiic]

ok, vu
Ben oui, elles s'appellent toutes Image 56, que veux-tu que ton programme annonce d'autre ?
Renomme-les, ou si elles sont ajoutées par macro regarde de coté là.
eric

 

[danielco]

Mais c'est anormal que deux images portent le même nom ! Ma macro aurait pu être fautive.Le problème, c'est qu'avec Excel 2007, on peut modifier D8 au travers de l'image, comme si l'image n'existait pas. Je cherche donc ce que le classeur peut avoir d'anormal.

Daniel

 

[eriiic]

Oui c'est anormal, mais déjà vu plusieurs fois. Excel ou vba ne doivent pas être très verrouillés de ce coté là...
Je pense que ton problème de 'passer à travers' est indépendant.
Sur 2019 je ne peux pas.

Tu ne peux pas mettre du texte dans les cellules plutôt que tes images ?
Et protéger ta feuille ou empêcher la sélection de ces cellules.
eric

 

[danielco]

Ce n'est pas mon classeur. Son propriétaire avait l'habitude, avec Excel 2007, de modifier les cellules à travers les images. Et il trouve drôle de ne plus pouvoir le faire avec Microsoft 365. C'est le classeur qui réagit bizarrement. Impossible de reproduire le problème avec un autre classeur, même enregistré sous Excel 2007.

Daniel

 

[eriiic]

Si il avait l'habitude de mettre à profit un bug de 2007, il va falloir qu'il oublie 😉
Et donc ton code c'était plus pour chercher cette anomalie que pour faire évoluer le classeur si je comprend bien.
Sur 2019 je ne vois rien de plus, et pas d'anomalies autres que ces noms dupliqués.
eric

 

[danielco]

Et donc ton code c'était plus pour chercher cette anomalie que pour faire évoluer le classeur si je comprend bien.

Absolument. Merci pour ton intervention.

Daniel