Données Validation

Pascalbar

XLDnaute Nouveau
Bonjour,
Sous 2003, j'ai une donnée validation alimentée par une liste dynamique.
Plutôt que d'afficher un vide avant le choix de l'opérateur, j'aimerais afficher la première valeur.
J'ai trouvé une procédure VBA chez Jacques Boisgontier
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
Mais qui chez moi me renvoie une valeur d'erreur
Variable non définie
Des idées ?
Merci
Pascal
 

Discussions similaires

Réponses
12
Affichages
801

Statistiques des forums

Discussions
315 098
Messages
2 116 189
Membres
112 679
dernier inscrit
Yupanki