Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel qqun peut-il m'aider URGENT

qqun peut-il m'aider URGENT

14 réponses
Avatar
logan
Bonjour,

Lorsque je veux cr=E9er une macro en cliquant sur le bouton=20
formulaire d'excel, le message suivant s'inscrit : Espace=20
pile insuffisant (erreur 28), et je ne peux plus cr=E9er de=20
macros.

Comment puis-je corriger ce probl=E8me ou supprimer les=20
piles d'appels, car je pense qu'il s'agit d'encha=EEnements=20
en boucle?

Merci de bien vouloir m'aider.

ML
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
Alain CROS
Bonjour.

Un petit exemple pour le OnAction à coller dans un module de feuille, puis exécuter la macro AjoutChkBox.

Sub OptOnAction(Opt$)
With ActiveSheet.Shapes(Opt)
If .ControlFormat.Value = xlOn Then
MsgBox Opt & vbCr & .OnAction
Else
MsgBox Opt & vbCr & .TextFrame.Characters.Text
End If
End With
End Sub

Sub NewChkBox(Cell As Range)
Dim Opt As Shape
With Cell
Set Opt = Cell.Parent.Shapes.AddFormControl(xlCheckBox, .Left, .Top, .Width, .Height)
End With
Opt.OnAction = "'" & Cell.Parent.CodeName & ".OptOnAction """ & Opt.Name & """'"
End Sub

Sub AjoutChkBox()
Dim Cell As Range
For Each Cell In Range("B3:B6")
NewChkBox Cell
Next Cell
End Sub

Alain CROS.

"FxM" a écrit dans le message de news:
Re-2 ;o)

Reçu, testé, détails en BAL.
... je n'ai aucun message sous Win98SE FR - Excel 2000 FR SP3.

@+
FxM


Frédéric Sigonneau wrote:
Re,

Curieux ! Chez moi j'ai bien le message... Je t'envoie un petit fichier
exemple (7 Ko zippé).

FS




Avatar
FxM
Bonsoir Alain,

Hou, c'est la grosse cavalerie :o)
Après lancement de AjoutChkBox, 4 CheckBoxes ont été créées dans feuil1
de classeur1 (nommées CheckBox5 à 8 car c'était mon second essai).
Lorsque tu cliques, la coche est activée ou désactivée. Devais-je avoir
une autre action ?

Aucune référence indiquée comme manquante.
5 références sont cochées :
Visual Basic for Application
Microsoft Excel 9.0 Object Library (renvoit vers excel9.olb)
OLE Automation
Microsoft Excel 9.0 Object Library (MS09.dll)
Microsoft DAO 3.6 Object Library

S'il y a d'autres testeurs/testeuses pour indiquer si je suis seul à
bugger, n'hésitez pas.

@+
FxM dubitatif sur cette action qui n'actionne pas






Alain CROS wrote:
Bonjour.

Un petit exemple pour le OnAction à coller dans un module de feuille, puis exécuter la macro AjoutChkBox.

Sub OptOnAction(Opt$)
With ActiveSheet.Shapes(Opt)
If .ControlFormat.Value = xlOn Then
MsgBox Opt & vbCr & .OnAction
Else
MsgBox Opt & vbCr & .TextFrame.Characters.Text
End If
End With
End Sub

Sub NewChkBox(Cell As Range)
Dim Opt As Shape
With Cell
Set Opt = Cell.Parent.Shapes.AddFormControl(xlCheckBox, .Left, .Top, .Width, .Height)
End With
Opt.OnAction = "'" & Cell.Parent.CodeName & ".OptOnAction """ & Opt.Name & """'"
End Sub

Sub AjoutChkBox()
Dim Cell As Range
For Each Cell In Range("B3:B6")
NewChkBox Cell
Next Cell
End Sub

Alain CROS.

"FxM" a écrit dans le message de news:

Re-2 ;o)

Reçu, testé, détails en BAL.
... je n'ai aucun message sous Win98SE FR - Excel 2000 FR SP3.

@+
FxM


Frédéric Sigonneau wrote:

Re,

Curieux ! Chez moi j'ai bien le message... Je t'envoie un petit fichier
exemple (7 Ko zippé).

FS









Avatar
michdenis
Bonsoir Alain, Frédéric, FxM,

J'ai essayé ces 2 procédures et dans les 2 cas, cela ne fonctionne pas.

En fait, je n'ai jamais réussi à utiliser cette syntaxe .... OnAction...

Je suppose qu'il doit y avoir une option quelque part susceptible de rendre inopérante cette approche !!!


Salutations!





"Alain CROS" a écrit dans le message de news:
Bonjour.

Un petit exemple pour le OnAction à coller dans un module de feuille, puis exécuter la macro AjoutChkBox.

Sub OptOnAction(Opt$)
With ActiveSheet.Shapes(Opt)
If .ControlFormat.Value = xlOn Then
MsgBox Opt & vbCr & .OnAction
Else
MsgBox Opt & vbCr & .TextFrame.Characters.Text
End If
End With
End Sub

Sub NewChkBox(Cell As Range)
Dim Opt As Shape
With Cell
Set Opt = Cell.Parent.Shapes.AddFormControl(xlCheckBox, .Left, .Top, .Width, .Height)
End With
Opt.OnAction = "'" & Cell.Parent.CodeName & ".OptOnAction """ & Opt.Name & """'"
End Sub

Sub AjoutChkBox()
Dim Cell As Range
For Each Cell In Range("B3:B6")
NewChkBox Cell
Next Cell
End Sub

Alain CROS.

"FxM" a écrit dans le message de news:
Re-2 ;o)

Reçu, testé, détails en BAL.
... je n'ai aucun message sous Win98SE FR - Excel 2000 FR SP3.

@+
FxM


Frédéric Sigonneau wrote:
Re,

Curieux ! Chez moi j'ai bien le message... Je t'envoie un petit fichier
exemple (7 Ko zippé).

FS




Avatar
Alain CROS
Bonjour.

J'ai essayé sur XL2000 et ça ne fonctionne pas.
Pourquoi ? mystère.
J'ai rajouté la référence Microsoft Forms 2.0 Object Library (FM20.DLL) sans résultat.

Alain CROS.

"michdenis" a écrit dans le message de news:
Bonsoir Alain, Frédéric, FxM,

J'ai essayé ces 2 procédures et dans les 2 cas, cela ne fonctionne pas.

En fait, je n'ai jamais réussi à utiliser cette syntaxe .... OnAction...

Je suppose qu'il doit y avoir une option quelque part susceptible de rendre inopérante cette approche !!!


Salutations!



1 2