Discussion :

[graphikris]

Bonjour,

Des posts sur les listes déroulantes en cascade, j'en ai trouvé pas mal sur le forum mais cela ne correspond pas a ce que je voudrais faire.

Je dispose de 2 feuilles, l'une nommée Links contenant des tableaux et la seconde nommée Actions dans laquelle je souhaiterais avoir des listes en cascade.
Il faudrait que parmi les listes en cascades, je puisse faire des choix multiples sur la feuille "Actions" et qu'en fonction de ces choix, Excel puisse renseigner certaines cellules (comme pour les recherche V)

Je joins un fichier pour plus de clarté.

Cordialement
Graphikris.

[graphikris]

Voici ce que j'ai trouvé aujourd'hui sur les recherches multiples mais je n'arrive pas a faire fonctionner l'exemple : j'ai bien crée un module en y insérant le code ci dessous mais j'ai "Erreur de syntaxe" sur la ligne 5

http://boisgontierjacques.free.fr/pa...hercheMultiple

Recherche multiple
Sur l'exemple, on recherche plusieurs codes séparés par le caractère ",".

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Function RechercheMult(couleur As String, maTable As Range)
**Application.Volatile
**a = Split(couleur, ",")
**b = maTable
**For i = LBound(a) To UBound(a)
*****For j = LBound(b) To UBound(b)
********If UCase(a(i)) = UCase(b(j, 1)) Then tmp = tmp & b(j, 2) & ","
****Next j
**Next i
**If tmp <> "" Then tmp = Left(tmp, Len(tmp) - 1)
**RechercheMult = tmp
End Function

Nouveau fichier avec Function Boisgontier

[EricDgn]

Bonjour,
En fait 2 problèmes:
a) dans le code de la fonction il y a des caractères vu comme des espaces mais qui n'en sont pas ?!! De ce fait, le blocage de la macro (avec apparition d'un carré noir sur le caractère où cela bloque) !
Ainsi ce code marche:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Function RechercheMult(Process As String, TableProcess As Range)
Application.Volatile
a = Split(Process, "-")    '--- delimiter = 1 caractère (par défaut: " ")
b = TableProcess
For i = LBound(a) To UBound(a)
For j = LBound(b) To UBound(b)
If UCase(a(i)) = UCase(b(j, 1)) Then tmp = tmp & b(j, 2) & ","
Next j
Next i
If tmp <> "" Then tmp = Left(tmp, Len(tmp) - 1)
RechercheMult = tmp
End Function

b) dans la fonction Split, le 'délimiteur' doit être 1 caractère (et pas une chaine de caractères).

Cordialement

[Marc-L]

le 'délimiteur' doit être 1 caractère (et pas une chaine de caractères).

Bonjour Eric,

Split accepte une chaîne d'un ou plusieurs caractères comme délimiteur …

___________________________________________________________________________________________________________

Je suis Paris, Mogadicio, Barcelone, London, Manchester, Egypte, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

[EricDgn]

Effectivement Marc, Split() admet comme délimiteur une chaine de caractères.
L'aide en français n'est pas claire sur ce point ("Tout caractère unique"), mais en anglais c'est clair ("Any string of characters"). Cependant les exemples sont bien éclairants.
Cdt

[graphikris]

Bonjour Eric et Marc,

Ok le code ne bloque plus mais le résultat escompté ne fonctionne pas.
Effectivement si je mets en A2, un processus, j'ai bien comme résultat en B2, son titre mais dès que je saisi deux processus, au lieu d'avoir les 2 titres avec mise a la ligne, j'obtiens comme resultat : 0
Idem si je saisi un processus (ex M10) et une Fonction en A1, j'obtiens 0 comme résultat.

Auriez vous une idée du comment faire ?
car normalement avec le code ça aurait dû fonctionner
Merci à vous