Espace piles insuffisant en vba excelRésolu

Question

Bonjour à tous,

J'ai un souci avec un programme en vba excel, je m?explique.

Les lignes ci-dessous permettent de faire une reconnaissance à savoir, si la cellule est une Liste validation dans une feuil Excel.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim cell As Range, Rng As Range
 Set cell = ActiveCell()
On Error Resume Next
Set Rng = Intersect(cell, Cells.SpecialCells(xlCellTypeAllValidation))
On Error GoTo 0

If Not Rng Is Nothing Then

'MsgBox cell.Address & " c'est une liste de validation"
UserForm2.Show 'Si on rajoute alors bogue sinon aucun problème
End
Else
MsgBox cell.Address & "Ce n'est pas une liste de validation"
End
End If



End Sub


De ce côté-là aucun problème, par contre si j'essaye d'ouvrir un Userform2 si la cellule est une Liste validation alors à ce moment là il bogue avec le message suivant : Erreur d'exécution 28 Espace piles insuffisant ?

Auriez-vous une idée ?

Merci.

Renfield · Accepted Answer

Pourquoi ces 'End' dans ton code ?

pour savoir d'ou viens ton erreur, presse Ctrl+L
(affichage de la pile des appels) quand l'erreur survient.

Renfield - Admin CodeS-SourceS - MVP Visual Basic	& Spécialiste des RegExp

sancho12345 · Answer

Petite précision qui peut avoir son importance.

Dans l'Userform2 il y a uniquement un calendrier avec la ligne suivante.

Private Sub UserForm_Initialize()
Calendar1.Value = Date
End Sub

Merci

sancho12345 · Answer

Bonjour à toi !

Effectivement ils ne servent à rien.

Rien  le problème est résolu

Bonne journée

Espace piles insuffisant en vba excel

3 réponses

Votre réponse

Discussions similaires