VBA : Excel : si liste de valeur

Résolu/Fermé
Signaler
-
Messages postés
1823
Date d'inscription
vendredi 5 septembre 2008
Statut
Contributeur
Dernière intervention
24 avril 2020
-
Bonjour à tous,
je suis Newbie en VBA.
J'ai trouvé sur le Net une macro qui permet d'ouvrir automatiquement les listes de valeurs d'une cellule. Mon problème, c'est que j'ai une centaine de cellule avec liste de valeurs...
Il existerait un bout de code qui dirait si la cellule est une liste de valeur ?
Merci

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If target.address = "liste de valeur" Then 
     SendKeys "%{down}"
  End If
End Sub



<config>Windows XP / Safari 535.7</config>

8 réponses

Messages postés
16133
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
6 décembre 2021
1 566
Bonjour,



Comment vérifier si une liste de validation existe dans une cellule ?
[haut]
auteur : SilkyRoad
La vérification est effectuée sur la feuille active:

Vba


Sub Test()
'Vérifie si la cellule A1 contient une liste de validation.
MsgBox ValidationExiste(Range("B1"))
End Sub


Function ValidationExiste(Cell As Range) As Boolean
Dim Cible As Range

On Error Resume Next
'Définit toutes les cellules contenant une liste de validation dans la feuille active.
Set Cible = ActiveSheet.Cells.SpecialCells(xlCellTypeAllValidation)
On Error GoTo 0

If Not Cible Is Nothing Then
If Not Intersect(Cible, Cell) Is Nothing Then
ValidationExiste = True
Else
ValidationExiste = False
End If
Else
ValidationExiste = False
End If
End Function


Provient du site Developpez.com
Sommaire > Les cellules > Les listes de validation

Bonne suite
Bonjour,
J'ai adapté le code que vous m'avez envoyé.
Il a bien le fonctionnement attendu pour les cellules avec Liste, le problème, c'est qu'il a le même comportement pour les cellules sans listes... C'est à dire que dans le cas de cellules normales, la macro ouvre une liste de valeur qui ne contient aucune valeur !
C'est moi qui me suis planté dans l'adaptation du code ???
merci,


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If ValidationExiste(Range(Target.Address)) = True Then
     SendKeys "%{down}"
  End If
End Sub


Function ValidationExiste(Cell As Range) As Boolean
    Dim Cible As Range
    On Error Resume Next
    Set Cible = ActiveSheet.Cells.SpecialCells(xlCellTypeAllValidation)
    On Error GoTo 0
    If Not Cible Is Nothing Then
        If Not Intersect(Cible, Cell) Is Nothing Then
            ValidationExiste = True
        Else
            ValidationExiste = False
        End If
    Else
        ValidationExiste = False
    End If
End Function
Messages postés
16133
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
6 décembre 2021
1 566
Re,
Je verifie votre code

A+
Messages postés
16133
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
6 décembre 2021
1 566
Re,

C'est le fait d'utiliser Worksheet_SelectionChange(ByVal Target As Range) qui pose probleme.
Je ne trouve pas de solution pour le moment.
Messages postés
16133
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
6 décembre 2021
1 566
Bonjour,

Apres quelques recherches et essais (je ne suis pas un pro d'EXCEL), j'ai trouvre une solution qui permet de bloquer les evenements (Application.EnableEvents ) qui posaient un probleme au niveau de la subroutine Worksheet_SelectionChange

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.EnableEvents = False
If ValidationExiste(Range(Target.Address)) = True Then
SendKeys "%{down}"
End If
Application.EnableEvents = True
End Sub

Function ValidationExiste(Cellule As Range) As Boolean
Dim Cible As Range
On Error Resume Next
Set Cible = ActiveSheet.Cells.SpecialCells(xlCellTypeAllValidation)
On Error GoTo 0
If Not Cible Is Nothing Then
If Not Intersect(Cible, Cellule) Is Nothing Then
ValidationExiste = True
Else
ValidationExiste = False
End If
Else
ValidationExiste = False
End If
End Function

Essayez et merci de rendre compte du resultat

Bonne suite
Magnifique !
Une correction de votre post : vous êtes un pro d'excel !
Merci
Messages postés
1823
Date d'inscription
vendredi 5 septembre 2008
Statut
Contributeur
Dernière intervention
24 avril 2020
624
Bonjour regglyss et f894009,

J'ai aussi testé de mon coté car le sujet est intérressant.
En effet, f894009 à raison, c'est bien l'instruction :
ActiveSheet.Cells.SpecialCells(xlCellTypeAllValidation) qui provoque l'appel récurssif de l'événement Worksheet_SelectionChange.
Donc la solution donnée fonctionne.

Pour ma part, j'avais trouvé une autre solution que je vous soumet :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo FIN
If Target.Validation.Type = 3 Then SendKeys "%{down}"
FIN:
End Sub

Il s'agit d'utiliser la propriété Validation.type de la cellule qui vaut 3 si il s'agit d'une liste.

A+

Cordialement,
Bonjour,

Ma foi, ta solution est encore meilleure. 5 lignes pour le même fonctionnement que les 25 proposées. Ça me plait !
Je me permets une question au passage. A part connaitre le langage comme sa poche, comment faire pour chercher ce genre d'instruction ?

PS : c'est marrant on peut écrire "comme ca" mais pas "comme sa"
Messages postés
1823
Date d'inscription
vendredi 5 septembre 2008
Statut
Contributeur
Dernière intervention
24 avril 2020
624
Je suis (très très) loin de connaitre tous les objets, les propriétés et méthodes du VBA.
Personnellement, je cherche avec l'explorateur d'objet du vba.
Là par exemple je me suis demandé si il n'y avait pas une propriété de Range adaptée.
Donc dans l'explorateur d'objet du clique sur range et tu vois toutes les propriétés et méthodes. Tu découvre la propriété "Validation" dont le nom m'a incité à tester....
Voilà...
Bonne continuation...
Messages postés
16133
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
6 décembre 2021
1 566
Bonjour Pilas31
Merci de votre solution car je n'ai pas penser cette propriete Validation.type de la cellule du fait que je cherchai plutot a bloquer ces evenements parasites. Votre solution est plus simple donc je l'adopterai si besoin et je la recommande a regglyss.

Merci encore

Bonne suite
Messages postés
1823
Date d'inscription
vendredi 5 septembre 2008
Statut
Contributeur
Dernière intervention
24 avril 2020
624
Merci et A+ sur un autre sujet....