Selectionner plusieurs objets en même temps

[Boby71C]

Bonjours à tous
J'ai un fichier excel dans lequel j'importe entre 1 et 20 objets (fichiers pdf).

Ces objets ne portent jamais la même référence, au début Object1, Object2 etc...J'en suis à Object 140
Ma macro créée avec l'enregistreur de code ne fonctionne pas, étant donné que les objets changent de nom.
En utilisant le bouton de la barre d'outils dessin qui représente une flèche donnant en haut, penchée à gauche, est il possible de créer un code qui prendrait pour référence le premier clic situé à gauche de B1 et le second clic en bas à droite de la cellule B20, ce qui sélectionnerait systématiquement les objets situés en colonne B.

Merci pour votre aide

 

[Pierrot93]

Re : Selectionner plusieurs objets en même temps

Bonjour Boby

regarde le code ci-dessous, si cela peut t'aider :

Option Explicit
Sub test()
Dim s As Shape, i As Byte
For Each s In Feuil1.Shapes
      If s.TopLeftCell.Column = 2 And s.TopLeftCell.Row < 20 Then s.Select IIf(i = 0, 1, 0)
      i = i + 1
Next s
End Sub

bonne soirée
@+

 

[Boby71C]

Re : Selectionner plusieurs objets en même temps

Bonsoir Pierrot93

Une foi de plus époustouflé, nous apprenons tous les jours. Heureusement qu'il y a des pros qui ont le cœur sur la main.

Merci beaucoup

Bonne soirée