Discussion :

[nananinanana]

Bonjours à tous

ci dessous un code qui permet de remplir une feuille à l'aide d'un userform

J'ai 2 combobox cb_lofc et cb_sem qui correspondent à mes données sur la 1ère ligne et la 1ère colonne respectivement
A l'aide d'un array j'ai essayé de rechercher :
- la donnée selectionnée dans Cb_sem dans la première colonne
- celle selectionnée dans cb_lofc dans ma première ligne

pour objenir une cellule (i,j) et la renseigner avec une partie des données sélectionnées dans la listbox (celles entre parenthèses) lb_codi

Or il ne se passe rien au click, mais alors rien,

Aussi je ne vois pas comment lui dire de renseigner uniquement les données entre parenthèses de la listbox

Merci d'avance

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
16
17
18
19
20
21
22
23
24
25
26
Private Sub Valider_Click()
Dim derl%
Dim derc%
Dim ress()
Dim i As Integer, j As Integer, k As Integer
 
f1 = "Ressources"
derl = Worksheets(f1).Cells(Rows.Count, 1).End(xlUp).Row
derc = Worksheets(f1).Cells(1, Cells.Columns.Count).End(xlToLeft).Column
ress = Worksheets(f1).Range(Cells(1, 1), Cells(derl, derc)).Value
 
For i = LBound(ress, 1) To UBound(ress, 1)
    If ress(i, 1) = Cb_sem.Value Then
        For j = LBound(ress, 2) To UBound(ress, 2)
            If ress(1, j) = CB_lofc.Value Then
                For k = 0 To Lb_codi.ListCount - 1
                    If Lb_codi.Selected(k) = True Then
                    ress(i, j) = ress(i, j) & ";" & Lb_codi.List(k)
                    End If
                Next
            End If
        Next
    End If
Next
 
End Sub

[MarcelG]

Bonjour et bienvenu sur le Forum,

Je sais que les pièces jointes sont limitées.
Mais là, je suis un peu perdu.

Pourrais-tu joindre un classeur simplifié et reporter les résultats que tu voudrais voir affichés en les explicitant précisément.

[nananinanana]

Ci joint le fichier en xls ou xlsm

[MarcelG]

(Il n'y pas de quoi!)

Au risque de me montrer abrupt, je dirais que ton développement présente beaucoup d'approximations et de complications
- Si tu veux activer des procédures, ton classeur doit pouver les activer donc extension ".xlsm"
- Tu nommes un formulaire de la même façon qu'une feuille de travail ("Ressources")
Dans ce cas, pourquoi pas Usf_Ressources?
- Un formulaire doit être chargé avant d'être affiché

Code :

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

1
2
Load Usf_Ressources
Usf_Ressources.Show

- Les objets doivent bien être attachés en utilisant la méthode With à bon escient
Exemple

Remplacer

Code :

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

1
2
3
4
5
6
7
8
f1 = "Ressources"
derc = Worksheets(f1).Cells(1, Cells.Columns.Count).End(xlToLeft).Column
codi = Worksheets(f1).Range(Cells(1, 2), Cells(1, derc)).Value
With CB_lofc
For i = LBound(codi, 2) To UBound(codi, 2)
        .AddItem codi(1, i)
Next
End With

par

Code :

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

1
2
3
4
5
6
7
With Worksheets("Ressources")
        derc = .Cells(1, .Columns.Count).End(xlToLeft).Column
        codi = .Range("B1", .Cells(1, derc)).Value
End With
For i = LBound(codi, 2) To UBound(codi, 2)
        CB_lofc.AddItem codi(1, i)
Next i

Plus clair, non?
Bien regarder l'attachement des objets précédés par "."

Enfin, je trouve ton code lié à la validation de ton formulaire bien compliqué.
Pourrais-tu retourner l'amont et l'aval de ton développement.
A savoir à travers un exemple
Ce que tu choisis dans ton formulaire pour les 3 contrôles ComboBox et ListBox
Ce que tu souhaites voir apparaître dans la feuille "Ressources" en fonction de ces choix

A plus.

[nananinanana]

Je sais bien pour le xlsm ... pas besoin d'être un génie.
J'ai posté les deux car visiblement les xlsm de sont jamais ouvert, on me dit préférer le xls

Je vais essayer de modifier comme proposé et de formuler à travers un exemple mon besoin

Merci

EDIT : Load Usf_Ressources génère une erreur 9 (l'indice n'appartient pas à la section)

[MarcelG]

le "on" qui te dit de préférer les "xls" ne doit pas connaître grand chose à Excel en général, et VBA en particulier.

Pourquoi cette susceptibilité? Je n'ai pas parlé de "génie".