Discussion :

[ExecelMans]

Bonjour

J’ai un petit Pb dans la mise à jour d’une feuille UserForm :

Je voudrais que l’intitulé CheckBox13 puisse évoluer (sur la même ligne de code) en CheckBox 23, CheckBox 33…etc


Ecran_Accueil.CheckBox13.Caption = TabValeurs(CompteurLigne3, 1)
(CompteurLigne3 s’incrémente de 1 par une boucle ; TabValeurs est un tableau dynamique)


J’ai essayé le code ci-dessous, mais "CheckBox" n’est pas reconnu et plante la macro :

CheckBox = ("CheckBox" ) & (CompteurLigne3) & ("3" ) >>> La valeur de CheckBox est « CheckBox13 »

Ecran_Accueil.CheckBox.Caption = TabValeurs(CompteurLigne3, 1)

Je suis preneur de toutes méthodes simples et efficaces pour résoudre ce petit pb.

A+

ExcelMans

[SilkyRoad]

bonjour

peux tu remettre en forme ton message car je n'ai pas bien compris ta demande

au hasard tu peux essayer

Code :

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

1
2
3
4
Dim chkBx As String
chkBx = "CheckBox" & CompteurLigne3 & "3"
Ecran_Accueil.Controls(chkBx).Object.Caption = _
     TabValeurs(CompteurLigne3, 1)

bonne journée
michel

[ExecelMans]

Bonjour Silkyroad,

Tu as parfaitement compris mon poste, car la réponse que j'attendais est exactement celle-la, car ça fonctionne impec.

Merci encore