[E-00]tester si une cellule est définie comme liste de validation ?

Bonjour à tous,

voila mon problème (qui me semble quand même pas si compliqué, et pourtant ben faut dire ce qui est, j'y arrive pas :traine:)

je souhaite simplement testé si une cellule est définie en tant que liste de validation, si c'est le cas, le code suivant fonctionne :

Code:

---

1 2 3 4

if Target.Validation.Type = xlValidateList then ... end if

---

sinon (la cellule n'est pas définie comme une liste déroulante) , ca pete l'erreur "1004 : Erreur definie par l'application ou par l'objet"

PS : je pourrais récupérer cette erreur pour traiter mais ça me gène car c'est une erreur assez générique (je le ferai en dernier recours si pas d'autre solution ...)

merci d'avance

Bonjour

essaye ce code

Code:

---

1 2 3

Dim cel As Range Set cel = Cells.SpecialCells(xlCellTypeAllValidation) If Not Intersect(target, cel) Is Nothing Then MsgBox "La cellule " & target.address & "a une liste de validation"

---

super, merci,
ca marche, nickel sauf (car y a toujours un sauf)
que du coup, le

Code:

---

Cells.SpecialCells(xlCellTypeAllValidation)

---

fait qu'il boucle sur l'évènement

Code:

---

Worksheet_SelectionChange

---

et ca m'arrange pas tellement car ca ralenti pas mal,

une autre solution ou un paliatif ?

merci d'avance

re:

autre macro

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub Worksheet_SelectionChange(ByVal Target As Range) On Error GoTo erreur: Target.Validation.Add xlValidateInputOnly Target.Validation.Delete On Error GoTo 0 Exit Sub erreur: MsgBox Target.Address & " Contient une validation" On Error GoTo 0 End Sub

---

merci wilfried_42 pour ton aide et désolé (tu peux me :fessee: ) de ne pas encore être satisfait mais le problème c'est qu'au lieu de peter l'erreur 1004 quand ce n'est pas une liste (mon code), cette macro pete l'erreur 1004 quand c'est une liste (ton code)
et c'est ce que je souhaiterai éviter,

c'est quand même bizarre de ne pas pouvoir savoir par code si une cellule est une liste sans générer une erreur ...

Bonjour.

Je te propose qui te renvoie le type de validation et -1 s'il n'y en a pas

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Function fctValidationType(ByRef myCell As Range) As Long   On Error GoTo ERREUR fctValidationType = myCell.Validation.Type On Error GoTo 0   Exit Function   ERREUR: ERR.Clear fctValidationType = -1   End Function

---

Il y a sûrement plus simple...

PGZ

merci à tous mais je voudrais sans gestion d'erreur si c'est possible ce dont je commence à douter sérieusement ...:bug:

re:

j'ai cherché pas mal de temps, je ne pense pas que sans la gestion d'erreur ce la soit possible, à moins d'utiliser la premiere solution

il n'y a pas de methode count ou hasvalidation ou encore une autre permettant de savoir s'il y a une liste de validation sur cette cellule

ok merci à ceux qui ont cherché,
j'pense que jv'ais prendre la solution fournie par

Citation:

---

pgz

---

merci à tous