Espace piles insuffisant en vba excel

Résolu
sancho12345
Messages postés
131
Date d'inscription
jeudi 21 mai 2009
Statut
Membre
Dernière intervention
18 mars 2012
- 25 mars 2011 à 18:44
sancho12345
Messages postés
131
Date d'inscription
jeudi 21 mai 2009
Statut
Membre
Dernière intervention
18 mars 2012
- 1 avril 2011 à 16:08
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.

3 réponses

Renfield
Messages postés
17287
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
71
28 mars 2011 à 09:15
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
3