Discussion :

[basto]

Bonjour

J'ai un document Excel qui gère des listes de validation dynamique et ce grace à un petit code VBA.

Tout marche bien, sauf quand les listes de validation sont des nombres à virgule.

En effet, la propriété Formula1 ne comprend pas le format "Français" des nombres (qui est celui qui est pris si je tape à la main) et demande donc le format "Anglais".

Dans l'absolu, cela fonctionne bien. J'ai en final dans ma liste de validation les bons chiffres mais comme les , sont des ., Excel ne les reconnait pas comme chiffre et sa plante mes calculs.

Je m'explique :

En mode manuel, ma liste de validation serait : 1 ; 1,5 ; 1,6

Dans le code VBA, je dois mettre : 1 , 1.5 , 1.6

Mais la valeur 1.6 n'est pas un chiffre pour Excel.

Je suis donc complètement planté. Existe t'il un moyen dans Excel pour qu'il prenne en charge correctement les valeurs de validation?
Connaissez vous une astuce pour transformer le 1.6 au format Français.

D'avance merci de votre aide. Mon outil doit être en prod lundi et je suis complètement planté.

[Marc-L]

Comme déjà demandé dans ton post dans le forum Excel, où est donc le code ?!

Car il n'y a aucun souci avec les points vu que le VBA ne comprend que le point comme séparateur décimal ‼
C'est pourtant clair par la consultation de l'aide intégrée …

[basto]

Bonjour Marc-L

Le code n'apporte rien mais je le met ci-dessous :

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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
 
Public Function GET_NCQ_UO(Wprefixe As String, Wlot As String, WType As String) As String
    Dim Longlet As String
    Dim LligneLien As Integer           ' Ligne du libellé entier
    Dim LvaleurComp As String           ' Chaine du libellé en entier
 
    ' Si on cherche à mettre une valeur
    If WType <> "" Then
    ' Récupération du nom de l'onglet des libellés
        Longlet = getOngletCout(Wlot)
 
    ' On recherche dans l'onglet libelle
        LligneLien = TrouverDansColonne(Longlet, ActiveWorkbook.Sheets("conf").[CONF_UO_COURT].Value, Wprefixe)
 
    ' On récupère le libellé en entier
    ' On aurait pu faire plus dynamique mais j'ai la flem :(
        Select Case WType
            Case "N":
                LvaleurComp = Sheets(Longlet).Cells(LligneLien, ActiveWorkbook.Sheets("conf").[CONF_UO_N].Value).Value2
            Case "C":
                LvaleurComp = Sheets(Longlet).Cells(LligneLien, ActiveWorkbook.Sheets("conf").[CONF_UO_C].Value).Value2
            Case "Q":
                LvaleurComp = Sheets(Longlet).Cells(LligneLien, ActiveWorkbook.Sheets("conf").[CONF_UO_Q].Value).Value2
        End Select
    Else
        LvaleurComp = ""
    End If
 
        ' Si on a pas de valeur
 
    If LvaleurComp = "" Then
        Lval = ""
        With Selection.Validation
        .Delete
        End With
    Else
        Lval = Replace(Replace(Trim(LvaleurComp), ",", "."), ";", ",")
    ' On enleve les blancs au cas où
    ' et on passe au format américian : , => . et ; => , sinon ce n'est pas compris comme liste de validation
        With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:=Lval
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = "Vous devez saisir une valeur de l'inducteur autorisée sinon laisser vide"
        .ShowInput = True
        .ShowError = True
       End With
     End If
 
     ' on retourne qqch pour le fun
 
    GET_NCQ_UO = Lval
End Function

Donc maintenant, j'ai une belle liste de validation qui n'accepte que les nombres en X.Y et non X,Y

Mon problème reste entier.

A+

[Marc-L]

Se conformer aux règles du forum peut apporter plus de réponse car sinon, certains zappent ! …

Du coup on ne voit pas ce qu'il y a dans la variable, certainement la source de l'erreur !

En remplaçant par Formula1:="1,1.5,1.6" c'est bon ou pas ?

Sinon je laisse ceux disposant d'une version 2007 française répondre …

[basto]

Ce que j'essaye de dire depuis le début, c'est que Formula1:="1,1.5,1.6" c'est bon pour que l'affichage fonctionne en tant que liste de validation mais pas en tant que nombre au format français ensuite dans la celulle qui reçoit l'information.

Et oui, je pense qu'une version en Français doit permettre de mieux comprendre mon souci.

a+

[Marc-L]

J'ai reproduit le souci en utilisant une variable intermédiaire comme dans ton code …

Solutions viables :

• liste en dur : Formula1:="1,1.5,1.6", cela fonctionne bien de mon côté directement sans variable …

• liste via plage de cellules :

- si dans la même feuille : Formula1:="=$A$1:$A$3"

- si dans une autre feuille du classeur, via une plage de cellules nommée : Formula1:="=LISTEVAL" …

Sans voir de code donc, aucune aide n'aurait été possible !
De toute manière, une discussion doit être claire & exhaustive et accompagnée d'un code pour y répondre …

__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[basto]

Marc-L

Je te remercie pour ton aide et ton implication.
Je ne peux pas avoir de plage, ni de celulles nommées car je gère de nombreuses listes dynamiques.

Seule la solution, que tu appelles "en dur" est possible. Ma variable reproduit uniquement la liste que tu as mise.

Donc, si je fais cette première solution : J'ai dans ma liste déroulante (dans ma feuille excel)
1
1.5
1.6

et moi, je veux (pour respecter les nombres français)
1
1,5
1,6

Je pense qu'il n'y a pas de solution. J'ai donc fait une ptte fonction qui modifie dans mes formules de calcul 1.5 en 1,5 (par ex). C'est pas beau mais je ne vois pas comment faire.

Je crois que dans ce cas (et c'est vrai aussi pour les dates) qu'il y a une non prise en compte des informations locales depuis le code VBA.

A+

[Marc-L]

De mon côté, les trois solutions fonctionnent !
Je laisse d'autres intervenants tester et apporter leurs points de vue …

Et je n'ai jamais eu non plus de souci avec les dates même en 2007,
il faut juste être carré avec les types de données …

[Menhir]

Une autre solution ici :

http://www.developpez.net/forums/d14...te-validation/