Discussion :

[bbelzile]

Bonjour,
Je fais la validation de données à la saisie dans des cellules avec comme critères une liste d'éléments qui apparaissent dans une liste déroulante à l'intérieur de la cellule.
Tout va bien en général, sauf qu'à l'occasion et sans raison apparente, la flèche qui permet d'activer la liste déroulante n'apparaît plus sur le côté de la cellule. Je ne peux donc pas sélectionner d'élément dans une liste. Pourtant, la liste semble toujours active pour valider l'information saisie, sauf que je ne peux plus l'utiliser directement.
Savez-vous qu'est-ce qui peut expliquer la disparition de la flèche permettant d'ouvrir la liste déroulante?
Merci
Bernard B.

[Philippe Tulliez]

Bonjour,
Dans l'onglet [Options] de la boite de dialogue de l'outil Validation de données tu as deux options à droite du choix Autoriser liste. Une de ces options est Liste déroulante dans la cellule. Cette option est très probablement décochée.

[PatrickLC]

Salut,

Juste au cas où ça pourrait servir à quelqu'un d'autre à l'avenir.
J'ai eu le même soucis : le menu déroulant (la flèche y pour accéder) de ma liste disparaissait alors que la validation de données était toujours présente. Je ne pouvais renseigner dans la case une autre valeur que celles de la liste.

Voici ce qui se passait dans mon cas :
Une macro supprime les shapes de ma page.
Or il s'avère que cette petite flèche pour accéder à la liste est un shape ; il s'appelle "Drop Down 123..."
La procédure supprimait donc aussi cette fameuse flèche si utile.

Voici donc mon code modifié pour traité ce problème (avec quelques contrôles pour voir ce qu'il se passe) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
 
Sub suppr_formes
 
Dim img as object
For each img in ActiveSheet.Shapes
  If Left(img.Name, 9) <> "Drop Down" Then
    Debug.print "Supprimer " & img.name
    img.Delete
  Else
    Debug.print "Ne pas supprimer " & img.name
  End if
  Stop
Next img

Bonne journée,

Patrick

[Gfacro]

s'il y a des macros, cherchez dans le code ".InCellDropdown = False"
et voyez si vous pouvez le changer en true.


ou pour chaque cellule ayant le souci
cellule.Validation.InCellDropdown = True

[PatrickLC]

Salut,

Je viens d'essayer la propriété .incelldropdown
En effet, elle permet de remettre la flèche du menu déroulant si celle-ci a disparu.

Néanmoins, cette propriété ne semble pas simple a utiliser.
S'il n'y a aucune validation de données sur la cellule tester, la procédure retourne une erreur.
Mais s'il y en a une et que c'est une liste, on peut enlever ou remettre la flèche.

Voici une procédure qui remet la flèche du menu déroulant sur une cellule sélectionnée :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Sub test2()
 
Dim cell As Range
For Each cell In Selection.Cells
    MsgBox cell.Validation.InCellDropdown
    cell.Validation.InCellDropdown = True
Next cell
 
End Sub

Bonne journée,

Patrick

[Philippe Tulliez]

Bonjour,
Juste pour votre information, la propriété Validation.InCellDropdown de l'objet Range en VBA correspond exactement à l'option que j'ai indiquée dans ma réponse du 30 juin
Il suffisait de cocher cette option à l'aide de l'enregistreur de macros pour obtenir le code

[Gfacro]

oui je m'en étais rendu compte, par contre je n'avais pas remarqué que c'était un vieux sujet enrichi d'une réponse nouvelle.

Je suis intervenu parce que le message d'ouverture du sujet indiquait que la raison de disparition de la flèche n'était pas connue, aléatoire. Donc cela ne pouvait pas se faire par "décocher" une case.
Il restait donc la possibilité du code VBA non maîtrisé, même si le VBA faisait la même chose.

Ou du raccourci clavier avec erreur de frappe, mais là, c'est moi qui ne maîtrise pas les raccourcis et surtout n'ait pas eu envie de me lancer à explorer cette possibilité car elle me semblait trop improbable.