XL 2016 Désélection Sharpe dans un classeur

[KTM]

Bonsoir chers tous
Dans mon classeur il existe des boutons ActiveX et des Sharpe (Formes) .
Je voudrais un code qui puisse les sélectionner tous ou les désélectionner
Merci...

 

[Eric C]

Bonsoir KTM, le forum

Pour sélectionner tous tes éléments (Shapes & Contrôles ActiveX) de la feuille1, dans un module :

Public Sub Affiche_Shapes()
Sheets("Feuil1").Shapes.SelectAll
End Sub

@+ Eric c

 

[KTM]

Bonsoir KTM, le forum

Pour sélectionner tous tes éléments (Shapes & Contrôles ActiveX) de la feuille1, dans un module :

Public Sub Affiche_Shapes()
Sheets("Feuil1").Shapes.SelectAll
End Sub

@+ Eric c

..

Bonsoir KTM, le forum

Pour sélectionner tous tes éléments (Shapes & Contrôles ActiveX) de la feuille1, dans un module :

Public Sub Affiche_Shapes()
Sheets("Feuil1").Shapes.SelectAll
End Sub

@+ Eric c

Merci!
Et pour désélectionner ?

 

[Eric C]

Bah, tu fais un click dans une cellule ou par macro

Sub non()
[A1].Select
End Sub

 

[KTM]

Bah, tu fais un click dans une cellule ou par macro

Sub non()
[A1].Select
End Sub

merci....