Discussion :

[Demang]

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

[rjamin]

Bonjour,
Essayez de remplacer ça

Code :

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

1
2
3
For Compteur = 1 To 10
 NumCb = "CB(compteur)"
 NmCel = "B(comptecel)"

Par ça

Code :

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

1
2
3
For Compteur = 1 To 10
 NumCb = CB(compteur)
 NmCel = B(comptecel)

[Demang]

Merci de cette réponse rapide,

malheureusement cela ne marche par il bloque sur la ligne 2 sur CB

Code :

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

1
2
3
For Compteur = 1 To 10
  NumCb = CB(compteur)
  NmCel = B(comptecel)

merci de votre aide
je dois m'absenter je suis de garde
je pousuivrai dès mon retour

[rjamin]

Re,
Je crois que j'ai mal compris le problème
Il faudrait plutôt faire

Code :

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

1
2
3
For Compteur = 1 To 10
 NumCb = "CB" & compteur
 NmCel = "B" & comptecel

[Demang]

bonjour,
merci du suivi

j'ai essayé avec un tableau dim as variant et string
cela ne marche pas

j'ai controlé par des msgbox comme ci-dessous
les msgbox me donnent bien les variables qui s'incrémentent CB1 B13 et ....CB1Caption
mais le prg bloque en ligne 21 par erreur de compilation par qualificateur incorrect
je suppute qu'il faudrait introduire un "set"?? mais quid?

merci

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
 
Sub UserForm_Activate()
 
  Dim NumCb As String
  Dim Compteur As Integer
  Dim NumCel As String
  Dim CompteCel As Integer
  'Dim Cb(60) As String
  'Dim B(60) As String
  Dim nomtransit As String
 
   Compteur = 1
  CompteCel = 13
 
  For Compteur = 1 To 3
     NumCb = "CB" & (Compteur)
     NumCel = "B" & (CompteCel)
     MsgBox NumCb & "  " & NumCel
     nomtransit = NumCb & ".Caption
      MsgBox nomtransit
    nomtransit.Value = Sheets("Ftravail").Range(NumCel).Value
 
  CompteCel = CompteCel + 1
 
   Next Compteur
   'CB1.Caption = Sheets("Ftravail").Range("B13").Value
    'CB2.Caption = Sheets("Ftravail").Range("B14").Value
    End Sub

[SfJ5Rpw8]

Bonjour,

qu'est censé faire cette ligne 21 .? modifier la valeur d'un contrôle sur ton userform ? quel est le nom de ce contrôle ? que contient la variable nomtransit ?