sancho12345
Messages postés131Date d'inscriptionjeudi 21 mai 2009StatutMembreDernière intervention18 mars 2012
-
25 mars 2011 à 18:44
sancho12345
Messages postés131Date d'inscriptionjeudi 21 mai 2009StatutMembreDernière intervention18 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 ?