Discussion :

[BBe8127]

Bonjour,
dans une procédure, je recrée à chaque passage un même tableau, et je lui crée un certain nombre de boutons en tête de colones.
Le système refuse aujourd'ui de me créer ces boutons.
Je pense que j'ai dépassé un nombre max (68000 ++ boutons crées) autorisé (le système marche dans d'autre procédures où je n'en suis qu'à quelques centaines).
Comment donc réinitialise-t-on ce nombre max à zéro?
Merci d'avance à tous ceux qui vont m'aider.
Cordialement.
Bernard

[chmod777]

tu veux supprimer les boutons deja existant?

quelle est la structure du nom du bouton?

[ThierryAIM]

Je pense que j'ai dépassé un nombre max (68000 ++ boutons crées) autorisé

[zazaraignée]

Salut

Comment donc réinitialise-t-on ce nombre max à zéro?

C'est difficile de répondre tant qu'on ne sait pas:
1. ce que tu appelle bouton en entête;
2. ce que tu appelle tableau (tableau en mémoire, FlexGrid, DataGrid...);
3. dans quoi (quelle variable et quel type) tu garde le nombre de boutons créés;
4. le nombre max est-il limité par le type de variable, si oui, prends un type avec plus de capacité, genre Long;
5. la méthode pour créer les fammeux boutons.

Donc, avec quelques bouts de code stratégiques, on pourrait mieux cibler le problème et du même coup t'aider.

[BBe8127]

Bonjour,

et merci à ceux qui ont essayé de me répondre.
Manisfestement, je me suis mal exprimé et j'en suis désolé.
Je reprends donc mon message en l'explicitant un peu mieux.

"dans une macro VB, je recrée à chaque passage un même tableau Excel "(rab du tableau précédent, et effacement des boutons qui existaient)

Code :

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

1
2
3
4
5
6
      Sheets("Tout").Select 
      Cells.Select 
      Selection.ClearContents 
      Selection.ClearFormats 
      Sheets("Tout").Shapes.
      SelectAll Selection.Delete

"Ce tableau comporte une vingtaine de colones et pour pouvoir l'exploiter, "je crée en tête de certaines colones des boutons renvoyant à des macros "de tri.

Code :

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

1
2
3
4
5
6
7
8
9
       ActiveSheet.Buttons.Add(2, 5, 30, 30.75).Select 
       Selection.OnAction = "'Forces -
           Tableaux.xls'!a_Affichage.Tout_Genre"    Selection.Characters.
           Text ="Genre" 
        With Selection.Characters(Start:=1, Length:=9).Font 
            .Name = "Times New Roman" 
            .FontStyle = "Normal" 
            .Size = 11
        End With

"Ce code qui fonctionnait depuis plus d'un an refuse aujourd'ui de me créer "ces boutons.

Erreur d'exécution "1004"
La méthode Select de le classe Button a échoué

"Je pense que j'ai dépassé un nombre max autorisé (68000 ++ boutons "crées dans ce dossier Exel ou sur cette feuille).
"VB numérote automatiquement les les objets crées.

"Le même code fonctionne dans des procédures où le nombre de boutons "créés ne dépasse pas "quelques centaines".
"Mon problème est donc de "remettre à zéro" ce compteur.
"Comment cela se fait-il?
________________

Pour répondre plus particulièrement à Zazaraignée:

3. dans quoi (quelle variable et quel type) tu garde le nombre de boutons créés;
4. le nombre max est-il limité par le type de variable, si oui, prends un type avec plus de capacité, genre Long;

= je ne gère pas moi même le nombre des boutons, c'est le système qui le fait, je ne connais donc ni son nom ni sa position.

Les réponses à tes trois autres questions sont dans ma nouvelle présentation de la question.
___________________________

Dans l'attente de vous lire.
Cordialement.
Bernard

PS: ThierryAIM , j'ai cherché avant de poser ma question.

[AlainTech]

Visiblement, d'après ton code, tu n'es pas en VB mais bien en VBA.

J'ai corrigé le tag en ce sens.

[SfJ5Rpw8]

bon en tout cas l'erreur et reproductible... :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Sub Test()
       ActiveSheet.Buttons.Add(2, 5, 30, 30.75).Select
       Set s = ActiveSheet.Buttons(1)
       Debug.Print s.Name
       s.Delete
End Sub
 
Sub Test2()
 For i = 1 To 65535
  Test
  DoEvents
 Next
End Sub

c'est le 65536éme .. qui fait planter.., mqe plus qu'a voir comment réinitialiser ce fameux compteur...? .
j'ai déjà une solution de contournement... tu copie la feuille compléte dans le même classeur, tu détruit l'original ... et le compteur repart à 1....

[BBe8127]

bbil.

Même si ta solution n'est pas tout a fait celle recherchée, ça marche en effet.

Merci à ceux qui ont planché.

Cordialement.
Bernard