Espace piles insuffisant en vba excel [Résolu]

sancho12345 131 Messages postés jeudi 21 mai 2009Date d'inscription 18 mars 2012 Dernière intervention - 25 mars 2011 à 18:44 - Dernière réponse : sancho12345 131 Messages postés jeudi 21 mai 2009Date d'inscription 18 mars 2012 Dernière intervention
- 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.
Afficher la suite 

Votre réponse

3 réponses

Meilleure réponse
Renfield 17308 Messages postés mercredi 2 janvier 2002Date d'inscription 22 août 2018 Dernière intervention - 28 mars 2011 à 09:15
3
Merci
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

Merci Renfield 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 92 internautes ce mois-ci

Commenter la réponse de Renfield
sancho12345 131 Messages postés jeudi 21 mai 2009Date d'inscription 18 mars 2012 Dernière intervention - 25 mars 2011 à 18:56
0
Merci
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
Commenter la réponse de sancho12345
sancho12345 131 Messages postés jeudi 21 mai 2009Date d'inscription 18 mars 2012 Dernière intervention - 1 avril 2011 à 16:08
0
Merci
Bonjour à toi !

Effectivement ils ne servent à rien.

Rien le problème est résolu

Bonne journée
Commenter la réponse de sancho12345

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.