Discussion :

[mennix]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Plateforme3]

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

[LeForestier]

et si tu supprimais tout simplement "Val" en principe excel traduit directement en numérique.
Pas tester..

[alsimbad]

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

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Plateforme3]

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

[alsimbad]

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

et aussi

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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

[alsimbad]

oups escuse camarade
effectivement, on peut se tromper

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

mais bon, ça marche pas non plus pour le pb de mennix

[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

[SilkyRoad]

bonsoir

Tu peux essayer cette adaptation

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[mennix]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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