En fait cette instruction crée l'hexagone mais le sélectionne aussi. J'ai
bien essayé de supprimer .Select mais cela déclenche immédiatement une
erreur.
Je voudrais éviter que le dernier hexagone créé soit sélectionné, comment
faire pour supprimer la fonction Select
Deuxième petit problème, je voudrais effacer les hexagones au moyen d'un
bouton
J'ai commencé par faire une boucle :
For n = 1 To ThisWorkbook.Sheets("Test").Shapes.Count
ThisWorkbook.Sheets("Test").Shapes(n).Delete
Next n
Sauf que je me suis aperçu que les boutons aussi étaient des Shapes et ils
étaient effacés également
Ensuite, inexplicablement, la procédure efface une partie des Shapes mais
s'arrete sur une erreur d'indice des Shapes hors range pour une valeur de n
bien inférieure pourtant au nombre total des Shapes d'origine.
Je suppose que la suppression s'effectue progressivement par petit groupe,
et qu'une fois effacés une partie des Shapes, leur nombre a diminué et que
l'indice n dépasse cette nouvelle valeur d'où l'erreur.
Je voudrais juste sélectionner l'ensemble des Shapes-Hexagones et les
supprimer sans supprimer mes deux Shapes-Boutons. Comment faire?
En fait cette instruction crée l'hexagone mais le sélectionne aussi. J'ai bien essayé de supprimer .Select mais cela déclenche immédiatement une erreur. Je voudrais éviter que le dernier hexagone créé soit sélectionn é, comment faire pour supprimer la fonction Select
Deuxième petit problème, je voudrais effacer les hexagones au moyen d 'un bouton J'ai commencé par faire une boucle :
For n = 1 To ThisWorkbook.Sheets("Test").Shapes.Count ThisWorkbook.Sheets("Test").Shapes(n).Delete Next n
Sauf que je me suis aperçu que les boutons aussi étaient des Shapes et ils étaient effacés également Ensuite, inexplicablement, la procédure efface une partie des Shapes ma is s'arrete sur une erreur d'indice des Shapes hors range pour une valeur de n bien inférieure pourtant au nombre total des Shapes d'origine. Je suppose que la suppression s'effectue progressivement par petit groupe, et qu'une fois effacés une partie des Shapes, leur nombre a diminué e t que l'indice n dépasse cette nouvelle valeur d'où l'erreur. Je voudrais juste sélectionner l'ensemble des Shapes-Hexagones et les supprimer sans supprimer mes deux Shapes-Boutons. Comment faire?
En fait cette instruction crée l'hexagone mais le sélectionne aussi. J'ai
bien essayé de supprimer .Select mais cela déclenche immédiatement une
erreur.
Je voudrais éviter que le dernier hexagone créé soit sélectionn é, comment
faire pour supprimer la fonction Select
Deuxième petit problème, je voudrais effacer les hexagones au moyen d 'un
bouton
J'ai commencé par faire une boucle :
For n = 1 To ThisWorkbook.Sheets("Test").Shapes.Count
ThisWorkbook.Sheets("Test").Shapes(n).Delete
Next n
Sauf que je me suis aperçu que les boutons aussi étaient des Shapes et ils
étaient effacés également
Ensuite, inexplicablement, la procédure efface une partie des Shapes ma is
s'arrete sur une erreur d'indice des Shapes hors range pour une valeur de n
bien inférieure pourtant au nombre total des Shapes d'origine.
Je suppose que la suppression s'effectue progressivement par petit groupe,
et qu'une fois effacés une partie des Shapes, leur nombre a diminué e t que
l'indice n dépasse cette nouvelle valeur d'où l'erreur.
Je voudrais juste sélectionner l'ensemble des Shapes-Hexagones et les
supprimer sans supprimer mes deux Shapes-Boutons. Comment faire?
En fait cette instruction crée l'hexagone mais le sélectionne aussi. J'ai bien essayé de supprimer .Select mais cela déclenche immédiatement une erreur. Je voudrais éviter que le dernier hexagone créé soit sélectionn é, comment faire pour supprimer la fonction Select
Deuxième petit problème, je voudrais effacer les hexagones au moyen d 'un bouton J'ai commencé par faire une boucle :
For n = 1 To ThisWorkbook.Sheets("Test").Shapes.Count ThisWorkbook.Sheets("Test").Shapes(n).Delete Next n
Sauf que je me suis aperçu que les boutons aussi étaient des Shapes et ils étaient effacés également Ensuite, inexplicablement, la procédure efface une partie des Shapes ma is s'arrete sur une erreur d'indice des Shapes hors range pour une valeur de n bien inférieure pourtant au nombre total des Shapes d'origine. Je suppose que la suppression s'effectue progressivement par petit groupe, et qu'une fois effacés une partie des Shapes, leur nombre a diminué e t que l'indice n dépasse cette nouvelle valeur d'où l'erreur. Je voudrais juste sélectionner l'ensemble des Shapes-Hexagones et les supprimer sans supprimer mes deux Shapes-Boutons. Comment faire?