{Résolu} Excel-VBA Pb de mise à jour de UserForm

{Résolu} Excel-VBA Pb de mise à jour de UserForm - VB/VBA/VBS - Programmation

Marsh Posté le 14-08-2006 à 22:37:32    

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


Message édité par Pixel72 le 16-08-2006 à 11:43:39
Reply

Marsh Posté le 14-08-2006 à 22:37:32   

Reply

Marsh Posté le 15-08-2006 à 10:51:06    

peut etre un systeme avec  
Ecran_accueil.controls("CheckBox" & compteur).caption = Cstr(TabValeurs(CompteurLigne3, 1))

Reply

Marsh Posté le 16-08-2006 à 11:23:52    

Bonjour
La grande communauté VBA m'a fournit la réponse à ma question.   :)  
 
Le bon code est le suivant:
 
Dim checkBox As String
 
CheckBox = "CheckBox" & CompteurLigne3 & "3"
 
Ecran_Accueil.Controls(chexkBox).Object.Caption = TabValeurs(CompteurLigne3, 1)
 
De cette façon à chaque passage de boucle incrémentant "CompteurLigne3" je Documente une nouvelle CheckBox : CheckBox13, puis CheckBox23, puis CheckBox33, ...etc.
 
A+   :hello:

Reply

Marsh Posté le 16-08-2006 à 11:36:41    

il avait lu ma réponse au moins ? pour me faire passer pour la communauté VB c'est presque trop :p

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed