Discussion :

[Australia]

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 )

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 :

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

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

[wilfried_42]

Bonjour

essaye ce code

Code :

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

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"

[Australia]

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

Code :

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

Cells.SpecialCells(xlCellTypeAllValidation)

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

Code :

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

Worksheet_SelectionChange

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

une autre solution ou un paliatif ?

merci d'avance

[wilfried_42]

re:

autre macro

Code :

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

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

[Australia]

merci wilfried_42 pour ton aide et désolé (tu peux me ) 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 ...

[pgz]

Bonjour.

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

Code :

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

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