Discussion :

[Vulci]

Bonjour

Sujet précédent en lien avec le problème présent :
https://www.developpez.net/forums/d4...ssins-d-excel/

J'ai le même problème, donc si qqn a une réponse je suis preneur !!
J'utilise une macro qui crée des pages, et bien que la suppression des anciennes et la création des nouvelles marche parfaitement bien,
il s'avère que le chiffre suivant "Feuil" dans l'appelation d'Excel ne se remet à 0.
Heureusement, je ne crée que deux pages à la fois, ce qui fait qu'il n'en est "que" à "Feuil19"et "Feuil20"
Mais ça me stresse de voir ces chiffres monter sans savoir comment les réinitialiser..
Si vous ne voyez pas de quoi je veux parler, je peux fournir une capture d'écran

Merci..

[patricktoulon]

je ne comprends pas bien ton probleme en fait
on est bien d'accords qu'entre chaque dessin toutes les shapes sont detruites
alors il est ou ton soucis ???
quand tu ajoute une shape rectangle par exemple elle s'appellera "Rectangle 1" puis "rectangle 2" puis etc.....
tu peut tres bien aller jusqu'a rectangle 100000000000000000000000000000 le nom n'est pas un numero mais un string
en gros tu te casse la tete pour rien tu peux non seulement laisser excel les nommer comme il l'entends
mais tu peux faire en sorte de les "GROUPER" sous un nom "dessin1 par exemple puis dessin2 etc...
et quand tu veux supprimer tes shapes tu supprime "dessin1" ou dessin2" etc....

si tu les nommes pour y avoir acces afin de les dimentionner ,modifier ,placer ,sur ta feuille tu peut le faire sans en connatre le nom a chaque ajout de shapes c'est shapes(shapes.count)
ce qui accelererait le processus de minimum 30%

[Vulci]

Voilà une image expliquant mieux que mes mots

Je sais que ce n'est pas gênant et que ça ne change rien, mais je m'interroge juste s'il y a une façon d'éviter qu'on atteigne "Feuil5060" un jour...

Merci à toi d'avoir répondu

[patricktoulon]

j'avoue que je comprends pas ce que vient faire le nombre de shapes avec le nombres de sheets et meme son nom

qu'est ce qui t'empeche d'avoir ""Feuil5060" comme nom de feuille apart peut etre le nombre limite possible

pour en revenir a tes shapes

prends un fichier vierge et teste ces code
dans le premier exemple je connais le nom de aucun des 10 shapes et pourtant il sont ciblés et regroupés en un et porte le nom de "toto"

dans le 2d exemple je peux connaitre leur nom il sont stoker dans un tableau et je les regroupe en un et la aussi le groupe s'appelle "toto"rien ne l'empeche
pour suprimer tes shapes (remise a zero) tu n'a plus qu'a supprimer "toto" a chaque tour

exemple 1 10 differentes shapes formes au hasard

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub test()
'on y va en aveugle
    For a = 0 To 9
        ActiveSheet.Shapes.AddShape (1 + Round(Rnd * 100)), 10 + (30 * a), 10, 20, 20
    Next a
    ActiveSheet.Shapes.SelectAll   'si il est sensé y etre que les shapes de ton dessin on groupe en aveugle avec selectall puis groupe
    Set Group = Selection.Group
    Group.Name = "toto"
End Sub

exemple2 10 differentes shapes formes au hasard

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub test2()
'ici on est pas en aveugle le tableau de shapes est syncro
    Dim tableau(10)
    For a = 0 To 9
        ActiveSheet.Shapes.AddShape (1 + Round(Rnd * 100)), 10 + (30 * a), 10, 20, 20
        'ici tu fait ce que tu veux avec ta shape
        'fill
        'position
        'etc.....
        tableau(a) = ActiveSheet.Shapes(ActiveSheet.Shapes.Count).Name
        Debug.Print tableau(a)
    Next a
    Set Sh = ActiveSheet.Shapes.Range(tableau).Group    'Regroupe les formes dont le nom se trouve dans le tableau
    Sh.Name = "toto"    'Renomme le groupe.
End Sub

pour suprimer toutes tes shapes
c'est simples

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub suprime_le_groupe()
    ActiveSheet.Shapes("toto").Delete
End Sub

a chaque fois c'est toujours toto que tu supprime
bien evidement tu peux mettre une condition sur sa presence
dois-je préciser aussi qu'avec l'exemple 2 tu peux te permettre d'avoir d'autre shapes ou object dans le meme sheet sans qu'ils soit supprimer l'ors de l'effacement de toto
voila

[Jean-Philippe André]

Bonjour,

plutôt que partir sur du code bazooka, tu peux plus pragmatiquement utiliser 2 feuilles finales qui seront simplement nettoyées avant chaque traitement.

Tu passes donc d'un processus :
- suppression
- suppression
- creation
- creation
- remplissage
- remplissage

à
- nettoyage
- nettoyage
- remplissage
- remplissage

et exit le problème d'incrémentation.

[Vulci]

Merci à vous deux !

Du nettoyage, oh j'aime bien le concept !

Je n'y avais même pas pensé !
merci à toi

Bonne fin d'après midi

[Menhir]

Je sais que ce n'est pas gênant et que ça ne change rien, mais je m'interroge juste s'il y a une façon d'éviter qu'on atteigne "Feuil5060" un jour...

Si tu crées deux feuilles par jour, Excel n'arrivera à ce chiffre que dans... 10 ans.

Et même s'il y arrive, je ne comprends pas en quoi ça pourrait être perturbant...
Je n'ai pas trouvé de renseignements pour savoir s'il y a une valeur limite à ce numéro mais s'il y en a une, elle doit être bien au delà de de 5060 vu que pour Excel 2013-2016, le nombre de feuilles n'est limité que par la mémoire :
https://support.office.com/fr-fr/art...7-269d656771c3

Donc, respire profondément, mets une musique douce et laisse ton niveau de stress descendre doucement.