Excel VBA - Checkbox Dynamique avec Nom Variable - Probleme de Value

Excel VBA - Checkbox Dynamique avec Nom Variable - Probleme de Value - Logiciels - Windows & Software

Marsh Posté le 21-02-2008 à 09:32:57    

bonjour j ai un probleme sur Excel VBA
j ai cree des Checkbox dynamique sur mon userform. le nombre et le nom varie en fonction d une variable
 

Code :
  1. Set Checkbox = Me.Controls.Add("forms.Checkbox.1" )
  2.                 With Checkbox
  3.                 .Name = "CheckBox_" & Info
  4.                 .Caption = Info
  5.                 .Value = Statut
  6.                 .Left = 142
  7.                 .Top = Info_Pro_Position + 15 * Info_Pro_Number
  8.                 .Width = 200
  9.                 .Enabled = True


 
dans cet userform , j ai creer unb bouton valider qui me permet de transferer les valeurs des Checkbox sur excel.
 

Code :
  1. Private Sub BNT_Validate_Click()
  2. Column_Nombre = Sheets("Commandes" ).Range("A1" ).End(xlToRight).Column
  3. 'transferer les valeurs sur Excel
  4.     For X = 2 To Column_Nombre
  5.         Info = Sheets("Commandes" ).Cells(1, X)
  6.         Checkbox_Name = "CheckBox_" & Info
  7.         Value = Controls.Item(Checkbox_Name).Value
  8.         Sheets("Commandes" ).Cells(2, X) = Value
  9.     Next X
  10. 'fermer la fenetre
  11.     Unload UserForm_Setting
  12. End Sub


 
C ets a ce moment que j ai un probleme, Excel m affiche qu il ne reconnait pas le nom de ma checkbox. J ai donc differente hypotheses :
- je ne sais pas comment "activer" les checkbox pour que je puisse y acceder a partir de Private Sub BNT_Validate_Click()
- je ne connais pas le ligne de code pour trouver le nom de la checkbox dynamique
- autre chose..
 
je vous donne le code complet pour avoir une vision d ensemble plus claire
Private Sub UserForm_Initialize()
 

Code :
  1. Column_Nombre = Sheets("Commandes" ).Range("A1" ).End(xlToRight).Column
  2.    
  3. 'Creer les checkbox pour Info Perso
  4.     ' creer le label Info perso
  5.         Info_Perso_Position = 15
  6.             Set Label = Me.Controls.Add("forms.Label.1" )
  7.                 With Label
  8.                 .Name = "Label_Perso_Info"
  9.                 .Caption = "Personnal Information"
  10.                 .Left = 12
  11.                 .Top = Info_Perso_Position
  12.                 .Width = 200
  13.             End With
  15.     Info_Perso_Number = 1
  16.     'Creer les checkbox pour Info Perso
  17.         For X = 1 To Column_Nombre
  18.             'calcul des variables
  19.                 Statut = Sheets("Commandes" ).Cells(2, X)
  20.                 Info_Type = Sheets("Commandes" ).Cells(3, X)
  21.                 Info = Sheets("Commandes" ).Cells(1, X)
  22.  
  23.              If Info_Type = "Perso" Then
  24.                     Dim Checkbox As Object
  25.                     Set Checkbox = Me.Controls.Add("forms.Checkbox.1" )
  26.                         With Checkbox
  27.                             .Name = "CheckBox_" & Info
  28.                             .Caption = Info
  29.                             .Value = Statut
  30.                             .Left = 24
  31.                             .Top = Info_Perso_Position + 15 * Info_Perso_Number
  32.                             .Width = 200
  33.                             .Enabled = True
  34.                         End With
  35.                 Info_Perso_Number = Info_Perso_Number + 1
  36.             End If
  37.         Next X
  39. 'Creer les checkbox pour Info Pro
  40.     Info_Pro_Position = 15
  41.             Set Label = Me.Controls.Add("forms.Label.1" ) ' creer le label Info Pro
  42.                 With Label
  43.                 .Name = "Label_Prof_Info"
  44.                 .Caption = "Professional Information"
  45.                 .Left = 130
  46.                 .Top = Info_Pro_Position
  47.                 .Width = 200
  48.             End With
  49.    
  50.     Info_Pro_Number = 1
  51. For X = 1 To Column_Nombre 'Creer les checkbox pour Info Pro
  52.     'calcul des variables
  53.         Statut = Sheets("Commandes" ).Cells(2, X)
  54.         Info_Type = Sheets("Commandes" ).Cells(3, X)
  55.         Info = Sheets("Commandes" ).Cells(1, X)
  56.    
  57.     If Info_Type = "Pro" Then
  58.         Set Checkbox = Me.Controls.Add("forms.Checkbox.1" )
  59.                 With Checkbox
  60.                 .Name = "CheckBox_" & Info
  61.                 .Caption = Info
  62.                 .Value = Statut
  63.                 .Left = 142
  64.                 .Top = Info_Pro_Position + 15 * Info_Pro_Number
  65.                 .Width = 200
  66.                 .Enabled = True
  67.         End With
  68.             Info_Pro_Number = Info_Pro_Number + 1
  69.     End If
  70. Next X
  71. End Sub
  74. Private Sub BNT_Validate_Click()
  75. Sheets("Commandes" ).Activate
  76. Column_Nombre = Sheets("Commandes" ).Range("A1" ).End(xlToRight).Column
  77. 'transferer les valeurs sur Excel
  78.     For X = 2 To Column_Nombre
  79.         Info = Sheets("Commandes" ).Cells(1, X)
  80.         Checkbox_Name = "CheckBox_" & Info
  81.         Value = Controls.Item(Checkbox_Name).Value
  82.         Sheets("Commandes" ).Cells(2, X) = Value
  83.     Next X
  84. 'fermer la fenetre
  85.     Unload UserForm_Setting
  86. End Sub


 
J espere que vous pourrez me donner des bons conseils.
 
A bientot
 
 
 
 
 
 
 

Reply

Marsh Posté le 21-02-2008 à 09:32:57   

Reply

Marsh Posté le 21-02-2008 à 10:01:19    

Ce sujet a été déplacé de la catégorie Hardware vers la categorie Windows & Software par DraCuLaX


---------------
| Un malentendu du cul | boum boum ! | La roulette
Reply

Sujets relatifs:

Leave a Replay

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