Souci avec une formule par une fonction Selection.validation

Version imprimable

Bonjour,
Je galere depuis un petit moment sans vraiment comprendre pourquoi ca ne marche pas.

Dans une celulle excel, je saisie un texte de ce style la :"CC-XX" sachant que les XX sont un chiffre compris entre 1 et 52

je voudrais crée ss VBA par la fonction validation une formule qui vérifie mon ecri et l'autorise si c'est bon.
Mon souci est que je n'arrive pas a faire fonctionner la fonction VAL ou CNUM pour basculer du texte en numerique.

voici la formule
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 With Selection.Validation .Delete .Add Type:=xlValidateCustom, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:= _ "=AND(LEFT(A5,3)=""CC-"",OR(AND(LEN(A5)=4,AND(VAL(MID(A5,4,3))<10,val(MID(A5,4,3))>0)),AND(val(MID(A5,4,3)>9,val(MID(A5,4,3)<53)))" .IgnoreBlank = True .InCellDropdown = True .InputTitle = "Format CC-X ou CC-XX" .ErrorTitle = "" .InputMessage = " " .ErrorMessage = "" .ShowInput = False .ShowError = True End With
Il n'aime pas la fonction VAL, j'ai viré les vals, et fait une analyse par alphanumérique, forcmeent ca marche pas (mais la fonction ne plante plus)

Comment peux ton basculer du string en Val sous la fonction de validation ?
Merci a vous.
T

01/08/2007, 16h53
Plateforme3

Bonjour
je suis pas sur du tout mais si tu utilises VALUE à la place de VAL?
Slts
01/08/2007, 16h58
LeForestier

et si tu supprimais tout simplement "Val" en principe excel traduit directement en numérique.
Pas tester..
02/08/2007, 06h07
alsimbad

normalement c'est CNUM qui devrais t'aller puisque val est une foction vba et pas excel
02/08/2007, 06h21
alsimbad
Citation:

Envoyé par alsimbad

normalement c'est CNUM qui devrais t'aller puisque val est une foction vba et pas excel

je reviens
en fait tu utilises des formule vba, c'est normal que ça marche pas
pourquoi ne pas tester direstement en vba, en faire une fonction par exemple
Code:

1 2 3 4 5 function formulalac() resultadeslettre = Left(Range("a5"), 3) If Not resultatdeslettre = "CC-" Then If tesautresconditions Then ...
ça serait plus simple
a plus
02/08/2007, 11h11
Plateforme3

Citation:

Envoyé par alsimbad

normalement c'est CNUM qui devrais t'aller puisque val est une foction vba et pas excel

D'accord avec toi, mais il faut les mettre en anglais quand on les rentre par VBA donc VALUE
Slts

Citation:

Envoyé par Plateforme3

D'accord avec toi, mais il faut les mettre en anglais quand on les rentre par VBA donc VALUE
Slts

et aussi

Citation:

Envoyé par plateforme3

Bonjour
je suis pas sur du tout mais si tu utilises VALUE à la place de VAL?
Slts

plateforme, es tu sur d'avoir saisie la difference entre val et value
je te rappelle la formulation quand tu appuie sur F1
Code:

1 2 3 4 5 6 7 <H1>Val, fonction Renvoie le nombre contenu dans une chaîne de caractère sous la forme d'une valeur numérique d'un type approprié. </H1>
Code:

1 2 3 4 5 6 7 8 value <a href="mk:@MSITStore:C:\Program%20Files\Microsoft%20Office\Office10\1036\VBAXL10.CHM::/html/xlprovalue.htm#" target="_blank">Propriété Value telle qu'elle s'applique à l'objet Range.</a><a href="mk:@MSITStore:C:\Program%20Files\Microsoft%20Office\Office10\1036\VBAXL10.CHM::/html/xlprovalue.htm#" target="_blank"> Cette propriété renvoie ou définit la valeur de la plage spécifiée. Type de données Variant en lecture-écriture. expression.Value(RangeValueDataType) expression Obligatoire. Expression qui renvoie un objet Range. </a>
ou alors je sais pas de quoi tu parles

02/08/2007, 19h00
Plateforme3

Bonjour
Je m'appuyais simplement sur le fait qu'en enregistrant une macro du type: =Cnum(cellule), le code dans VBA te donne =Value(cellule)
Ou c'est mon Excel qui plantoie... rires
Slts
02/08/2007, 19h37
alsimbad

oups escuse camarade
effectivement, on peut se tromper

Code:

ActiveCell.FormulaR1C1 = "=VALUE(""CC-22"")"

mais bon, ça marche pas non plus pour le pb de mennix
02/08/2007, 20h06
Plateforme3

Bonjour
J'ai compté, il y a incohérence dans le nombre de parenthèses ouvertes et fermées, ça va pas aider
Ensuite, en retapant la formule, Excel me dit qu'il y a trop d'arguments, mais est ce du simplement aux parenthèses?
Slts

bonsoir

Tu peux essayer cette adaptation

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
'Equivalent de la formule:
'=SI(ESTERREUR(ET(GAUCHE(A5;3)="CC-";CNUM(STXT(A5;4;NBCAR(A5)-3))<53;
'CNUM(STXT(A5;4;NBCAR(A5)-3))>0;NBCAR(A5)<6));FAUX;ET(GAUCHE(A5;3)="CC-";
'CNUM(STXT(A5;4;NBCAR(A5)-3))<53;CNUM(STXT(A5;4;NBCAR(A5)-3))>0;NBCAR(A5)<6))
 
With Range("A5").Validation
    .Delete
    .Add Type:=xlValidateCustom, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:= _
        "=IF(ISERROR(AND(LEFT(A5,3)=""CC-"",VALUE(MID(A5,4,LEN(A5)-3))<53," & _
        "VALUE(MID(A5,4,LEN(A5)-3))>0,LEN(A5)<6)),FALSE,AND(LEFT(A5,3)=""CC-"",VALUE" & _
        "(MID(A5,4,LEN(A5)-3))<53,VALUE(MID(A5,4,LEN(A5)-3))>0,LEN(A5)<6))"
    .IgnoreBlank = True
    .InCellDropdown = True
    .InputTitle = "Format CC-X ou CC-XX"
    .ErrorTitle = ""
    .InputMessage = ""
    .ErrorMessage = "Erreur de format "
    .ShowInput = False
    .ShowError = True
End With

michel

Hello a tous
merci déjà a vous tous... visiblement Value ne fonctionne pas ds mon algo d'origine, quand je le rajoute ,j'ai un crash

en reprenant exemple sur SilkyRoad,j'ai reecris legerement l'algo
Code:

1 2 3 4 5 .Add Type:=xlValidateCustom, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:= _ "OR(AND(LEFT(A6,3)=""CC-"",VALUE(MID(A6,4,2))<53,VALUE(MID(A6,4,3))>9,LEN(A6)=5)," & _ "AND(LEFT(A6,3)=""CC-"",VALUE(MID(A6,4,2))<10,VALUE(MID(A6,4,3))>0,LEN(A6)=4))"
Avec ca, c'est du tout bon... ca marche nickel..
merci encore