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

Roland_M · 14 Octobre 2022

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

sylvanu · 14 Octobre 2022

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 · 14 Octobre 2022

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 · 14 Octobre 2022

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

Roland_M · 14 Octobre 2022

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

sylvanu · 14 Octobre 2022

Bonjour Dranreb,

sylvanu à dit:
Un petit fichier test aurait été le bienvenu.

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

Roland_M · 14 Octobre 2022

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

Roland_M · 14 Octobre 2022

sylvanu à dit:
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 · 14 Octobre 2022

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 · 14 Octobre 2022

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 · 16 Octobre 2022

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 · 17 Octobre 2022

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 · 17 Octobre 2022

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 · 17 Octobre 2022

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 · 17 Octobre 2022

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

VB:

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

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

Roland_M

XLDnaute Barbatruc

sylvanu

XLDnaute Barbatruc

Roland_M

XLDnaute Barbatruc

Dranreb

XLDnaute Barbatruc

Roland_M

XLDnaute Barbatruc

sylvanu

XLDnaute Barbatruc

Roland_M

XLDnaute Barbatruc

Roland_M

XLDnaute Barbatruc

Dranreb

XLDnaute Barbatruc

Roland_M

XLDnaute Barbatruc

Roland_M

XLDnaute Barbatruc

Roland_M

XLDnaute Barbatruc

Pièces jointes

Dranreb

XLDnaute Barbatruc

Roland_M

XLDnaute Barbatruc

sylvanu

XLDnaute Barbatruc

Pièces jointes

Discussions similaires