Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
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,
If ActiveCell.Validation.InCellDropdown Then
MsgBox "has Validation"
End If
Cordialement,
--
AP
"Le Nordiste" <jean-paul.bataille@cegetel.fr> a écrit dans le message de
news:1141912484.318772.102460@v46g2000cwv.googlegroups.com...
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 ?
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.
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.
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" <jean-paul.bataille@cegetel.fr> a écrit dans le message de
news:1141915018.719121.192540@u72g2000cwu.googlegroups.com...
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.
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.
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 ?
Merci, même si j'aime pas trop utiliser le traitement d'erreur comme
celui ci mais bon ça marche quand même.