Dudu2
XLDnaute Barbatruc
Bonjour,
Je dis sans dégrouper car il peut y avoir des groupes imbriqués (dans un cas réel, pas dans l'exemple ci-dessous où il n'y a qu'un seul groupe) car si on dégroupe les groupes il faut pouvoir les reconstituer. Ce qui est peut-être la seule solution ?
Merci pour toute suggestion.
Edit: la seule solution que j'ai trouvé consiste à sélectionner la Shape TextBox dans le groupe et de travailler avec la sélection en tant que TextBox. Pas terrible car il faut passer par une sélection ! Mais c'est un pis-aller.
Dans un groupe, ceci ne marche pas:
Mais ça fonctionne:
Je dis sans dégrouper car il peut y avoir des groupes imbriqués (dans un cas réel, pas dans l'exemple ci-dessous où il n'y a qu'un seul groupe) car si on dégroupe les groupes il faut pouvoir les reconstituer. Ce qui est peut-être la seule solution ?
Merci pour toute suggestion.
Edit: la seule solution que j'ai trouvé consiste à sélectionner la Shape TextBox dans le groupe et de travailler avec la sélection en tant que TextBox. Pas terrible car il faut passer par une sélection ! Mais c'est un pis-aller.
Dans un groupe, ceci ne marche pas:
VB:
Set TxB = ActiveSheet.TextBoxes(Shp.Name) '<--- ERREUR si la Shape TextBox est dans un groupe
'La qualification ActiveSheet n'est pas suffisante ou ne s'applique plus
Code:
Shp.Select
Set TxB = Selection
Pièces jointes
Dernière édition: