Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2016 [RESOLU] validation de données !?

Roland_M

XLDnaute Barbatruc
Bien le bonjour à tous,

Encore une petite question concernant les validations de données
J'ai une petite routine pour les afficher et je vois apparaître une bizarrerie !?

un extrait de ma liste donne ceci:
'$C$13=ET(B13>0;L2>0;L3>0;C3>0)
'$B$14=ET(B14+B30<61;B14+B46<61)
'$C$26
'$C$346
'$C$356

j'ai vérifié ces cellules '$C$26 '$C$346 '$C$356
il n'y a aucune validation !? j'ai beau chercher je ne vois rien !?
Ma question est: Comment se fait il que ces adresses apparaissent puisqu'il n'y a rien ?
et malgré le test : If Cell.Validation.Formula1 > "" Then

merci d'avance.

Code:
Sub ListeValidations()
On Error Resume Next
Dim Cell As Range
For Each Cell In ActiveSheet.Cells.SpecialCells(xlCellTypeAllValidation)
 If Cell.Validation.Formula1 > "" Then
    Debug.Print "'" & Cell.Address & Cell.Validation.Formula1
 End If
Next
End Sub
 
Dernière édition:

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour Roland,
Un petit fichier test aurait été le bienvenu.
Avec deux simples listes en validation en C13 et B14, sur XL2007 j'obtient :

Ce qui semble marcher.
( ensuite j'aurais plutôt mis : If Cell.Validation.Formula1 <> "" Then, le > seul me semble bizarre, mais ça marche )
 

Roland_M

XLDnaute Barbatruc
bonjour sylvanu,

j'ai essayé, >"" <>"" rien n'y fait !
puisqu'il n'y a rien dans ces cellules j'ai vérifié !
alors pourquoi ces cellules apparaissent ?

EDIT: moi aussi sur XL2007 et aussi XL2016 même résultat !?
 

Roland_M

XLDnaute Barbatruc
Bonjour à tous,

j'ai un début d'explication, enfin si je puis dire !?
exemple avec ceci, alors qu'il n'y a rien à ces adresses !? c'est à C35 et C35
'$C$346
'$C$356
il n'y a pas de formule, c'est:
Options, Nombre entier, Données comprises entre, Minimum 0 Maximum 60

ça m'affiche $C$346 et en réalité c'est à $C$34
idem avec '$C$356 et en réalité c'est à $C$35
idem C180 alors que c'est à C18

Questions:
1' comment faire pour afficher ces données au lieu d'une simple adresse ?
2' pourquoi là ou il n'y pas de formule
ça affiche simplement une adresse(fausse) exp C346 alors que c'est à C34


merci d'avance à tout ceux qui pourront m'éclairer !
 
Dernière édition:

Roland_M

XLDnaute Barbatruc
Bonjour à tous,

toujours pas de réponse !?

ci-joint un exemple très simple qui confirmera mes dires !
je pensais que c'était suffisamment clair qu'il n'y avait pas besoin de fichier !

bizarre que personne ne se soit au courant de ce phénomène !?
mais il doit bien y avoir une explication !

merci d'avance à tout ceux qui pourront m'éclairer !
 

Pièces jointes

  • ClasseurEssai.xlsm
    17.6 KB · Affichages: 3

Dranreb

XLDnaute Barbatruc
Bonjour.
Faut pas tout coller comme ça, on n'y voit rien !
VB:
Sub ListeValidations()
   Dim Cell As Range, Vali As Validation
   On Error Resume Next
   M$ = ""
   For Each Cell In ActiveSheet.Cells.SpecialCells(xlCellTypeAllValidation)
      Set Vali = Cell.Validation
      M$ = M$ & Cell.Address & ": Type=" & Vali.Type & ", Formula1=""" & Vali.Formula1 & """" & vbLf
      Next
   MsgBox M$
   End Sub
 

Roland_M

XLDnaute Barbatruc
Salut Dranreb !

la voilà l'explication !

aussi simple que ça, c'est te dire que chez moi ça ne va plus !
il fut un temps je n'aurai jamais demandé une chose pareille, mais ça c'était avant !

encore merci à toi et bonne journée
 
Dernière édition:
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…