Discussion :

[Mikro93]

Bonjour à tous,

Je me casse les dents sur un problème depuis ce matin, je vais essayer de l'énoncer de manière aussi claire que possible.

J'ai, dans mon classeur, une feuille "Listes" contenant des... listes. Par exemple, la plage B2:B7 est nommée Tous_les_jours et est utilisée dans une liste déroulante dans une autre feuille.

Dans cette autre feuille, appelons-la "Banane", le texte "Tous les jours" apparaît dans la cellule A5. La cellule B5 est conditionnée par ce texte, puisqu'elle permet le choix de valeurs parmi la liste Tous_les_jours, créée dans Validation des Données de B5, j'ai la formule =INDIRECT(SUBSTITUE(A5;" ";"_"))

Et cela fonctionne très bien

Maintenant, j'essaie de mettre en Banane!C5 une valeur dépendant de Banane!B5, et se trouvant dans Listes.

Par exemple, si je choisis dans la liste déroulante de Banane!B5, le contenu se trouvant en Listes!B2, je souhaiterais obtenir la valeur de Listes!C2 dans Banane!C5.

Je comptais utiliser la fonction Match, avec un truc du genre

Code :

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

Match(Sheets("Banane").Range("B5"), Replace(Range("A5").Text, " ", "_"), 0)

dans la macro Worksheet_Change dont je me sers déjà.

Mais cela ne marche pas, car le Replace me renvoie un type String, qui devrait être interprété comme le nom d'une plage, mais qui ne l'est pas...

Je suis conscient que mon problème est difficile à expliquer, malheureusement je ne peux pas déposer mon tableur, puisque celui-ci contient des données confidentielles.

Je remercie les gens qui auront pris le temps de me lire

Cordialement,
Mikro93.

[Invité]

Pas bien sur de ce que tu veux mais tu peux faire une recherche dans une plage nommée avec la fonction 'Match()':

Code :

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

Application.WorksheetFunction.Match(Range("A1").Value, Range("Plage_Nommée"), 0)

[Mikro93]

Bonjour vcottineau, et merci pour cette réponse rapide,

C'est exactement ce que je voudrais faire, sauf qu'à la place de

Code :

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

Range("plage_nommée")

j'ai essayé avec

Code :

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

Range(Replace(Range("A5").Text, " ", "_")))

et j'obtiens une erreur 1004. Mon code exact est :

Code :

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

Range("E5").Value = Application.WorksheetFunction.Match(Range("B5").Value, Range(Replace(Range("A5").Text, " ", "_")), 0)

Cordialement,

Mikro93.

[EngueEngue]

Un range de trop

[Invité]

Dans ce cas il vaut mieux raisonner à l'envers:

Code :

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

Range("E5").Value = Application.WorksheetFunction.Match(Replace(Range("B5").Value, "_", " "), Range("A5"), 0)

[Mikro93]

@EngueEngue : je ne suis pas sûr de voir duquel il s'agit, j'essaie de les enlever un par un, j'obtiens divers messages d'erreur.

@vcottineau :

Je n'ai pas dû exprimer mon problème de façon assez claire

Dans ma cellule A5 se trouve le texte Tous les jours , et ma cellule B5 contient un choix parmi ceux de la liste appelée Tous_les_jours. Je dois donc bien faire un

Code :

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

Replace(Range("A5").Value, " ", "_")

Et en inversant simplement :

Code :

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

Range("E5").Value = Application.WorksheetFunction.Match(Range(Replace(Range("A5").Value, " ", "_"), Range("B5").Value), 0)

j'obtiens le même message 1004.

EDIT : un code plus approprié serait (erreur de parenthèse) :

Code :

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

Range("E5").Value = Application.WorksheetFunction.Match(Range(Replace(Range("A5").Value, " ", "_")), Range("B5").Value, 0)

Mais toujours la même erreur.

[Invité]

Et comme ça:

Code :

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

Range("E5").Value = Application.WorksheetFunction.Match(Range("B5").Value, Range(Replace(Range("A5").Value, " ", "_")), 0)