[XL-2000] Faire en VBA un Select Case "dynamique" [Résolu]

[lolod]

Bonjour

J'aimerai faire un select case dont les valeurs de choix seraient dynamique en fonction du contenu d'une colonne d'un onglet.

J'explique le détail :
J'ai une liste de projet qui ont chacun un ou plusieurs codes
Prj1 : 45 , 57 , 67
Prj2 : 32, 56, 63, 87
Prj3 : 43
J'ai cette liste dans un onglet car elle évolue. Le nombre de code par projet n'est pas fixe.
Et d'un autre coté (un autre onglet), une longue liste de frais par code .
Et je veux créer un onglet par projet en y copiant toute les lignes qui contiennent un des codes du projet.

J'ai pensé faire un select case sur le code pour copier dans l'onglet concerné. Mais comme la liste de code et de projet évolue, ca me fait changer le programme à chaque fois.

Comment serait il possible de faire un équivalent select case dynamique en fonction de ce que j'ai entré dans la liste des codes par projets ?

J'espère que j'ai réussi à expliquer clairement mon problème.

Merci d'avance

[Qwazerty]

Salut et bienvenu
Le mieux dans ton cas je pense, serait de créer une collection de dictionnaires
Le nombre de dico est déterminé en fonction du nombre de lignes

Code :

1
2
3
Prj1 : 45 , 57 , 67
Prj2 : 32, 56, 63, 87
Prj3 : 43

ici donc une collection de 3 dicos
Dico(0) -> Prj1
Dico(1) -> Prj2
Dico(2) -> Prj3

Puis dans ton code utiliser la méthode Exists des dico pour asvoir si un code donnée s'y trouve

Si tu veux savoir si le project 1 contient le code 57 tu fais

Code :

if Dico(0).Exist(57) then

Je n'ai pas trop le temps de m'y pencher plus, peut etre en fin de journée.
Essai de donner plus d'infos

Et je veux créer un onglet par projet en y copiant toute les lignes qui contiennent un des codes du projet.

ou se trouvent toutes ses donnée quelles lignes, quelles colonnes.

Nous n'avons pas ton fichier sous les yeux, donc ce qui peu te paraitre évident a tes yeux, ne l'ai pas forcement au notre

A++
Qwaz

[lolod]

Bonjour Qwaz
Merci pour la réponse.
Je ne suis pas habitué à écrire du VB objet ( -> ), mais je comprend que tu propose un tableau à 2 dimensions. (je ne sais pas affecter les codes aux dico sauf à faire un tableau à 2 dim)

Ca me va bien, mais ce qu'il me faudrait dans ce cas ( pour éviter une boucle sur tous les indices de Dico existants) c'est un équivalent à
"Dans quel dico est le code xx"

Après réflexion je pense que plutot que d'organiser ma liste de projets/code comme ca :

Code :

1
2
3
Prj1 : 45 , 57 , 67
Prj2 : 32, 56, 63, 87
Prj3 : 43

je peux tout aussi bien faire

Code :

1
2
3
4
5
6
7
8
9
10
Projet	code
AA	     12
AA	     42
BB	     17
BB	     25
BB	     36
CC	     37
CC	     13
CC	     56
DD	     32

Ce qui facilitera le remplissage d'un tableau

Par contre j'aimerai éviter de faire 2 boucles imbriquées:
- une boucle sur chaque occurence d'association projet-code pour trouver le projet à partir du code
- ceci dans une boucle sur chaque ligne de la liste des montant à affecter.

J'ai joint un fichier avec
-l'exemple d'organisation projet-code (onglets projetType1 et projetType 2)
- les données sources
- et les onglets résultat que je veux obtenir (un par projet)

A+

[Qwazerty]

Salut
Un petit truc, la notation Dico(0) -> Prj1 n'est pas du code vb, c'est juste pour imagé, je sais que certain langage utilise ce type de syntaxe mais pas VB
La notion de dico est plus complète qu'un tableau a 2 dimensions, des méthodes lui sont rattachées, elle permettent entre autre de rapidement trouver si une entrée existe déjà. Je les avait déjà croisé auparavant mais je n'ai que ressemant découvert qu'ils permettaient un travail rapide et efficace.

Les infos sont elles amenées a être modifiées par la suite?
J'entend pas modifier, une fois la macro exécutée, est ce que des ligne seront rajoutées dans l'onglet DataSource ou dans l'onglet Projet_Type ?

Si oui comment vois tu l'évolution des données contenues dans tes différents onglets?
Les montants doivent ils changés de valeur lorsque tu fais une modif dans DataSource? (-> Mise en place de formules dans les cellules)
Les montants et nouveaux onglets sont créés ou modifiés a chaque lancement de la macro?

La 1er organisation des codes (onglet Projet_type1) me parait plus adapté a ce que tu souhaites faire.
A++
Qwaz

[lolod]

Bonsoir

après plus de creuzage de tete, j'ai vu que le 1er type d'organisation ne pouvait pas aller car j'avais besoin d'autres info par code
Donc je suis parti sur le type 2 ( une ligne par code) pour pouvoir mettre un texte explicatif par code.

J'ai utilisé les type :

Code :

1
2
3
4
5
6
7
8
9
10
Type CodeType
    Number As String
    Detail As String
End Type
Type ProjectType
    Name As String
    Code() As CodeType
    ProjetFic As String
End Type
Dim Projet() As ProjectType

Et jai fait mes boucles imbriquées avec des Do / until

Par contre je suis très intéressé pour savoir où trouver comment fonctionne le "Dico" et toutes les fonctions qui lui sont attachées.

Merci pour l'aide, ca m'a permis de clarifier mon besoin et les possibilités.
Et je doit finir ca pour demain.

A+

[Qwazerty]

Pour demain...

Pour le dico.
il faut ajouter la reference "Microsoft Scripting Runtime" au projet
Dans VBA menu Outils->References -> Dans la liste cocher "Microsoft Scripting Runtime"

Pour la déclaration

Code :

1
2
3
 
Dim dicoType as Object
Set dicoType = CreateObject("Scripting.Dictionary")

Pour l'utilisation voila un lien qui contient les méthodes du dico

Bon courage
++
Qwaz

Ce code te crée un dico contenant la liste des projets a créer, et un dico par projet contenant chacun la liste des codes liés au projet.

Code :

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
Sub lolod()
Dim DicoListPrj As Object, DicoPrj() As Object, aDico As Object
Dim TheCel As Range
 
Set DicoListPrj = CreateObject("Scripting.Dictionary")
 
'On boucle sur les cellules de la colonne A (de A2 jusqu'a la derniere cellule non vide)
'Le but et de savoir combien de projet sont a generé et d'en avoir une liste
With Sheets("Projet_type2")
    For Each TheCel In .Range("A2", .Cells(Rows.Count, "A").End(xlUp))
        If Not DicoListPrj.Exists(TheCel.Value) Then
            DicoListPrj.Add TheCel.Value, DicoListPrj.Count
            ReDim Preserve DicoPrj(DicoListPrj.Count - 1)
            Set DicoPrj(DicoListPrj.Count - 1) = CreateObject("Scripting.Dictionary")
        End If
        DicoPrj(DicoListPrj.Item(TheCel.Value)).Add TheCel.Offset(0, 1).Value, TheCel.Value 'On ajoute le code en Key et le nom du projet en item
    Next
End With
 
 
'Reste du code
 
 
 
End Sub

++
Qwaz

[lolod]

Merci pour toutes ces infos.

J'ai déjà un autre programme à faire, je vais pratiquer le dico ;-)