Discussion :

[lomaje]

Bonjour
je tourne en rond sur un problème tout simple

j'avais définit dans mon code VBA la validation de certaines cellules avec un formule
comme ceci

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
       Worksheets(feuille).Cells(i, colnom).Select
       With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:= _
        "SI($B4=GRP_HUILE;LISTE_GRP_HUILE;SI($B4=GRP_HY;LISTE_GRP_HY;SI($B4=GRP_HE;LISTE_GRP_HE;LISTE_GRP_AUTRE)))"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With

ce qui marche très bien.

Mais je dois revoir ma formule et elle devient dynamique (le référentiel des Noms à utiliser dans la formule étant lui même généré dynamiquement)
ce qui veut dire que je voudrais tout simplement remplacé dans mon code la formule par une variable

comme ceci

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
       Worksheets(feuille).Cells(i, colnom).Select
       With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:=Libformule
 
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With

où
mon champ (string) Libformule est définit "à part" , pour l'instant j'ai juste remis exactement la même formule comme suit

Code :

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

 libformule = "SI($B4=GRP_HUILE;LISTE_GRP_HUILE;SI($B4=GRP_HY;LISTE_GRP_HY;SI($B4=GRP_HE;LISTE_GRP_HE;LISTE_GRP_AUTRE)))"

mais ça ne marche pas !!

Merci d'avance pour votre aide

[SfJ5Rpw8]

Bonjour,

as tu pensé à mettre la ligne obligatoire (surtout pour les débutants) :

Code :

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

Option Explicit

en haut de TOUTES tes pages de codes ?

[lomaje]

non en effet
je vais voir si ça règle la chose.
(mais au fait à quoi ça sert ?)

[lomaje]

bon j'ai mis "Option Explicit" en début
et j'ai rejoué mon code

mon Problème reste le même
au lieu de voir apparaître la liste voulue
je vois ça


ce qui m'embête c'est que le signe "=" disparait dans la mémorisation de la formule
Ecran validation :


si je le remet dans la fenêtre de validation ça marche

mais si je fais pareille dans le code
en remettant le signe "="
LibFormule = "=SI($B4=GRP_HUILE;LISTE_GRP_HUILES;LISTE_GRP_AUTRE)"

ça plante avec le message sybillin "Erreur 1004"

[SfJ5Rpw8]

non en effet
je vais voir si ça règle la chose.
(mais au fait à quoi ça sert ?)

Bonjour,

Option Explicit , "oblige" l'utilisateur à déclarer les variables ... et permet de mettre en évidence des erreurs de portées de variables par exemple ... vu que tu ne nous as pas montré comment et ou tu déclare ta variable LibFormule j'ai pensé que Option Explicit pourrai mettre en évidence une éventuelle erreur de portée... mais vu ton nouveau message ce n'est pas le cas....


Avec ta formule à la mode anglaise .. cela ne passe pas mieux ?

Code :

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

1
2
3
 (...) Formula1:= _
        "=IF($B4=GRP_HUILE,LISTE_GRP_HUILE,IF($B4=GRP_HY,LISTE_GRP_HY,IF($B4=GRP_HE,LISTE_GRP_HE,LISTE_GRP_AUTRE)))"
(...)

[lomaje]

je viens d'essayer en anglais cela ne change rien

bon j'ai résolu mon problème autrement
en définissant mes LISTEs dynamiques par formule dans de nouvelles cases et en faisant référence
directement dans mon champ destinataire à la validation comme ceci


et où je détermine mes Listes dynamiquement dans les cellules des colonnes B et C.

c'est plus dynamique qu'en passant par une Macro finalement.

Mais je ne désespère pas de trouver la solution à mon problème d'origine
je vais tenter un autre truc ..

[lomaje]

bon, je viens de tester un tas de truc
entre-autre de changer le type de ma variable Libformule de 'string' en 'autre chose' dans lequel je pourrais mettre ma formule ... mais pas de résultat ...
SNIF