Discussion :

[nananinanana]

Ci-dessous ma solution

Il suffisait de rajouter CStr(ress(j, 1)) et CStr(ress(1, k))
Car la condition n'était pas reconnue

Merci pour vos bons conseils

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
 
Private Sub Valider_Click()
 
Dim i As Integer, k As Integer, j As Integer
Dim lavaleur As String
Dim d As Byte, e As Byte
Dim ress()
 
ThisWorkbook.Worksheets("Ressources").Activate
 
With ThisWorkbook.Worksheets("Ressources")
derl = .Cells(Rows.Count, 1).End(xlUp).Row
derc = .Cells(1, Cells.Columns.Count).End(xlToLeft).Column
ress = .Range(Cells(1, 1), Cells(derl, derc)).Value
End With
 
lavaleur = ""
 
 
For i = 0 To Lb_codi.ListCount - 1
    With Lb_codi
        If .Selected(i) = True Then
        d = InStr(.List(i), "(") + 1
        e = InStr(.List(i), ")")
        lavaleur = lavaleur & ";" & Mid(.List(i), d, e - d)
        End If
   End With
Next i
 
For k = LBound(ress, 2) To UBound(ress, 2)
    If CStr(ress(1, k)) = Me.CB_lofc.text Then
        For j = LBound(ress, 1) To UBound(ress, 1)
            If CStr(ress(j, 1)) = Me.Cb_sem.Value Then
                With Cells(j, k)
                    'ôter le 1er ";"
                    .Value = Right(lavaleur, Len(lavaleur) - 1)
                    'ajustement de la largeur de colonne
                    .Columns.AutoFit
                End With
            End If
        Next
    End If
Next
 
Me.Hide
Unload Me
 
End Sub

[MarcelG]

Bonjour à toi, Bonjour le Forum,

Le formulaire est activé sur l'évènement Selection Change de ta feuille de calcul,
A priori donc, je ne vois pas à quoi sert ta variable "ress".
La seul cellule à informer étant justement celle active.

As-tu essayé intégralement le code que je t'ai proposé?
Si oui, a-t-il été effectif?

J'attire ton attention également sur le fait que les objets ne sont pas tous très bien attachés (il manque des ".")