Bonjour je suis novice et un problème se pose

je crée un UF de cases à cocher
je voudrais à l'initialisation du UF que les propriétés .caption soient modifiées sur base d'une liste de noms


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
'+++ j'essaye ceci mais il bloque en ligne  (15)
 
Sub UserForm_Activate()
 
Dim NumCb As String
Dim Compteur As Integer
Dim NumCel As String
Dim CompteCel As Integer
 
Compteur = 1
CompteCel = 13
 
For Compteur = 1 To 10
NumCb = "CB(compteur)"
NmCel = "B(comptecel)"
 
(15)    Set Cb(Compteur).Caption = Sheets("Ftravail").Range(NumCel).Value
 
CompteCel = CompteCel + 1
Next Compteur
 
 
 
'+++ comme ci dessous cela marche
'CB1.Caption = Sheets("Ftravail").Range("B13").Value
'CB2.Caption = Sheets("Ftravail").Range("B14").Value
'CB3.Caption = Sheets("Ftravail").Range("B15").Value
'CB4.Caption = Sheets("Ftravail").Range("B16").Value
'CB5.Caption = Sheets("Ftravail").Range("B17").Value
'CB6.Caption = Sheets("Ftravail").Range("B18").Value
'CB7.Caption = Sheets("Ftravail").Range("B19").Value
'CB8.Caption = Sheets("Ftravail").Range("B20").Value
'CB9.Caption = Sheets("Ftravail").Range("B21").Value
'CB10.Caption = Sheets("Ftravail").Range("B22").Value
 
End Sub
Pourriez-vous m'aider SVP