radikal64
Messages postés7Date d'inscriptionjeudi 22 mars 2007StatutMembreDernière intervention 4 octobre 2010
-
28 sept. 2010 à 10:34
radikal64
Messages postés7Date d'inscriptionjeudi 22 mars 2007StatutMembreDernière intervention 4 octobre 2010
-
4 oct. 2010 à 11:15
Bonjour à tous,
Voilà je bloque sur un soucis et je n'ai pas trouvé de réponse exacte pour mon problème.
En fait j'ai créé plusieurs frame (Frame1, Frame2, etc...) contenant deux option button (bouton_ok1 bouton_nok1; bouton_ok2 bouton_nok2; etc...). Et je désire tester en fait à l'aide d'une boucle les valeurs des boutons dans chaque frame pour ensuite afficher ou non un nouvel userform. C'est surtout la boucle sur les noms des frame et option button qui me pose problème.
Quelqu'un pourrait il m'aider niveau syntaxe???
Un grand merci d'avance.
Bien cordialement,
radikal64
Messages postés7Date d'inscriptionjeudi 22 mars 2007StatutMembreDernière intervention 4 octobre 2010 28 sept. 2010 à 13:38
Merci pour ton aide.
J'ai lu plusieurs fois, mais je ne comprends pas tellement le principe... Enfin comment je pourrais utiliser cela dans mon cas...
Merci en tout cas.
radikal64
Messages postés7Date d'inscriptionjeudi 22 mars 2007StatutMembreDernière intervention 4 octobre 2010 4 oct. 2010 à 11:15
Bonjour,
Je me permets de relancer ce topic car je ne comprends vraiment pas le principe, quelqu'un pourrait-il m'aider d'après mon code?
Set Frme = Me.Controls.Add("Forms.Frame.1", "Frame" & numero_label)
With Frme
.Left = 10
.Top = hauteur
.Width = 90
.Height = 20
End With
Set bouton_ok = Frme.Controls.Add("Forms.Optionbutton.1", "bouton_ok" & numero_label)
With bouton_ok
'.Width = 40
'.Height = 20
'.Top = hauteur
'.Left = 10
.Caption = "OK"
End With
Set bouton_nok = Frme.Controls.Add("Forms.Optionbutton.1", "bouton_nok" & numero_label)
With bouton_nok
'.Width = 40
'.Height = 20
'.Top = hauteur
.Left = 50
.Caption = "NOK"
End With
hauteur = hauteur + 20
Next i
With Me
.Height = hauteur + 100
End With
Set bouton_1 = Me.Controls.Add("Forms.CommandButton.1", "bouton")
With bouton_1
.Width = 60
.Height = 40
.Top = hauteur + 20
.Left = 200
.Caption = "OK"
End With
End Sub
Sub bouton_1_Click()
Dim ligne, nb_label As Integer
Dim Date_now As Date
Dim Ctrl As Control
Sheets("Suivi").Select
nb_label = Range("AN1").End(xlDown).Row
For j = 1 To nb_labels
'et là je dois boucler sur chaque paire de label présents dans chaque frame
Next j
End Sub