Manipulation de variable

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:

---

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

Bonjour,
Essayez de remplacer ça

Code:

---

1 2 3

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

---

Par ça

Code:

---

1 2 3

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

---

Merci de cette réponse rapide,

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

Code:

---

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

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

Code:

---

1 2 3

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

---

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:

---

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

---

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 ?

Bonjour,

j'ai corrigé la ligne 21 en supprimant .Value, et le prg ne plante plus mais il ne fonctionne tjs pas.

le nom du contrôle est CB1
il varie de CB1 à CB10 car il y a 10 cases à cocher
la variable nomtransit contient CB1.caption, afin dy inputer le libellé de la case à cocher
ce libellé varie sur base d'une liste de nom
repris selon la formule Sheets("Ftravail").Range("B13").Value, de B13 à B23r

en fait si je n'utilise que

Code:

---

1 2 3

'CB1.Caption = Sheets("Ftravail").Range("B13").Value 'CB2.Caption = Sheets("Ftravail").Range("B14").Value 'CB3.Caption = Sheets("Ftravail").Range("B15").Value

---

jusqu'à CB10

CELA FONCTIONNE!!

mais ce n'est pas très esthétique ni pratique (s'il y a beaucoup de cases)
car je dois faire de même pour cocher ou décocher automatiquement toutes les cases à cocher

Merci

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 26 27 28 29 30 31 32 33 34 35 36

Sub UserForm_Activate()   Dim NumCb As String Dim Compteur As Integer Dim NumCel As String Dim CompteCel As Integer 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 = Sheets("Ftravail").Range(NumCel).Value ' c'est ici que le bas blaisse nomtransit devrait être "CBnn.caption" et pas la variable ???   CompteCel = CompteCel + 1   Next Compteur '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

---

Bonsoir,

je suis pas vraiment sur que ton code soit plus lisible (esthétique ...) écrit avec une boucle FOR de 5 ou 6 lignes pour remplacer les 10 lignes initiales beaucoup plus parlante ...

utilise la collection controls ..

ligne 20 :

Code:

---

Controls(NumCb).caption = Sheets("Ftravail").Range(NumCel).Value

---

Bonjour,

Magnifique cela fonctione;
Effectivement le code est probablement moins lisible MAIS
je vais pouvoir faire varier les bornes de départ et de fin en fonction du nombre de médecins inscrits et ne plus être bloqué par un nombre définitivement fixé
je vais également pouvoir automatiser le décochage et le cochage global

et cette technique est et sera adaptable à d'autre contrôle

OUPS! Champagne "virtuel" pour toi
je t'en remercie