OVH Cloud OVH Cloud

Y a t'il une liste de validation dans cette cellule ?

4 réponses
Avatar
Le Nordiste
Bonjour tertous,


J'aimerais savoir s'il est possible de d=E9tecter si une liste de
validation de donn=E9es est pr=E9sente sur une cellule donn=E9e ?


remerciements anticip=E9s,

4 réponses

Avatar
Ardus Petus
If ActiveCell.Validation.InCellDropdown Then
MsgBox "has Validation"
End If

Cordialement,
--
AP

"Le Nordiste" a écrit dans le message de
news:
Bonjour tertous,


J'aimerais savoir s'il est possible de détecter si une liste de
validation de données est présente sur une cellule donnée ?


remerciements anticipés,
Avatar
Le Nordiste
En cas d'absence d ela liste d evalidation j'ai l'erreur 1004 : erreur
définie par l'application ou par l'objet, sans pouvoir faire le choix.
Avatar
Jacky
Bonjour,
Ceci peut-être:
'-----
Sub jj()
On Error Resume Next
x = ActiveCell.Validation.Type
If Err = 0 Then
MsgBox "Validation active"
Else
MsgBox "Validation non active"
End If
End Sub
'--------
Salutations
JJ

"Le Nordiste" a écrit dans le message de
news:
En cas d'absence d ela liste d evalidation j'ai l'erreur 1004 : erreur
définie par l'application ou par l'objet, sans pouvoir faire le choix.
Avatar
Le Nordiste
Merci, même si j'aime pas trop utiliser le traitement d'erreur comme
celui ci mais bon ça marche quand même.

Qui dira ou fera mieux ?