Discussion :

[Gallinette59]

Bonjour à tous,

Sur un ensemble de cellules, je cherche à créer une sélection de données.
Cette sélection de données devant être dynamique, je cherche à convertir une formule réalisée sur un exemple.

Code :

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

1
2
3
4
5
6
7
 
=DECALER(
CATALOGUE!E1;
EQUIV(CONCATENER(GAUCHE(U2;2);"_";V2;"_";W2);CATALOGUE!R2:R200;0);
0;
NB.SI(CATALOGUE!R:R;CONCATENER(GAUCHE(U2;2);"_";V2;"_";W2));
1)

En VBA, j'ai essayé de faire l'adaptation suivante dans une boucle :

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:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
            xlBetween, Formula1:= _
            "=DECALER(CATALOGUE!E1;EQUIV(CONCATENER(GAUCHE(U & i;2);"_";V & i;"_";W & i);CATALOGUE!R2:R200;0);0;NB.SI(CATALOGUE!R:R;CONCATENER(GAUCHE(U & i;2);"_";V & i;"_";W & i));1)"
            .IgnoreBlank = True
            .InCellDropdown = True
            .InputTitle = ""
            .ErrorTitle = ""
            .InputMessage = ""
            .ErrorMessage = ""
            .ShowInput = True
            .ShowError = True
        End With

En regardant sur le web, j'ai vu qu'il fallait que j'adapte fonction en anglais :
DECALER -> OFFSET
EQUIV -> MATCH
NB.SI -> COUNTIF
Remplacer les ";" par des ","

Maintenant, en terme de mise en œuvre, je n'y arrive pas. J'ai toujours des soucis de syntaxe.
J'aurais besoin d'un petit coup de pouce pour m'en sortir.

Merci par avance pour votre aide.

[Philippe Tulliez]

Bonjour,

Maintenant, en terme de mise en œuvre, je n'y arrive pas. J'ai toujours des soucis de syntaxe.
J'aurais besoin d'un petit coup de pouce pour m'en sortir.

Si vous avez un problème de mise en œuvre d'une formule et surtout si vous devez la traduire. Voici ce que je vous conseille.
Vous testez votre formule dans une cellule quelconque mais idéalement dans le même contexte (référencement identique) et ensuite dans la fenêtre d'exécution de l'éditeur VBA, et en supposant que vous auriez placé cette formule en cellule B5, vous écrivez

Code :

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

? Range("B5").Formula

Vous aurez ainsi votre formule en anglais, il vous reste ensuite à faire un copier/coller dans votre code

[Gallinette59]

Bonsoir, un grand merci pour ta proposition technique.
Grace à elle, j'ai enfin pu trouver la petite erreur d'orthographe qui me faisait défaut depuis plusieurs heures.
Cdt