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