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

[Roland_M]

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.

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

 

[sylvanu]

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]

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 !?

 

[Dranreb]

Bonjour.
À tout hasard et pour tenter d'en savoir plus, reproduit aussi Cell.Validation.Type

 

[Roland_M]

Bonjour à toi Dranreb, j'y regarde de suite !

 

[sylvanu]

Bonjour Dranreb,

Un petit fichier test aurait été le bienvenu.

En insistant, on pourrait peut être avoir un fichier test, juste pour s'amuser.

 

[Roland_M]

j'obtiens ceci, mais quid des formules
'$F$287
'$F$297
'$F$307
'$Z$397
'$Z$407
...

 

[Roland_M]

Bonjour Dranreb,


En insistant, on pourrait peut être avoir un fichier test, juste pour s'amuser.

je peux pas, c'est un fichier d'une entreprise dans laquelle mon fils travaille.
c'est pour lui que je fais ça !

 

[Dranreb]

Même si Validation.Type = 0, ce qui autorise tout, il pourrait quand même y avoir une spécification de message à afficher quand on sélectionne la cellule. Enfin peut être …

 

[Roland_M]

re:

j'ai vérifié même édité validation des données sur cette cellule et fais effacé tout !
rien n'y fait ! c'est diabolique !

 

[Roland_M]

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 !

 

[Roland_M]

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 !

 

[Dranreb]

Bonjour.
Faut pas tout coller comme ça, on n'y voit rien !

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]

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

 

[sylvanu]

Bonjour,
Vous n'avez pas d'espaces entre les deux valeurs retournées.
PJ avec :

M$ = M$ & Cell.Address & "  -  " & Cell.Validation.Formula1 & vbLf