format/propriété cellule ??

Le
hugo2009
Bonjour,
Comment tester si une cellule contient une validation de données?
if Cells(1,1).validation.(????)=true (par quoi remplacer ?? ) ou existe-il
une autre methode
Merci pour votre aide
Cordialement
Hugo
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
JB
Le #20263551
Bonsoir,

For Each c In Cells.SpecialCells(xlCellTypeAllValidation)

Next c

Exemple pour positionner les menus sur le premier élément de chaque
liste:

Sub raz()
For Each c In Cells.SpecialCells(xlCellTypeAllValidation)
If Left(c.Validation.Formula1, 1) = "=" Then
NomList = Mid(c.Validation.Formula1, 2)
c.Value = Range(NomList)(1)
Else
temp = c.Validation.Formula1
a = Split(temp, ";")
c.Value = a(0)
End If
Next c
End Sub

JB
On 30 sep, 18:40, hugo2009
Bonjour,
Comment tester si une cellule contient une validation de données?
if Cells(1,1).validation.(????)=true (par quoi remplacer ?? ) ou existe -il
une autre methode
Merci pour votre aide
Cordialement
Hugo


Publicité
Poster une réponse
Anonyme