Discussion :

[sebastaupole]

Bonjour je souhaiterai faire fonctionner un groupe de trois bouton option il est intégré dans un formulaire qui me sert a écrire, consulter et modifier le contenu de mon tableau quand je veux modifier mes données tous ce remet en place dans mon formulaire ainsi que les boutons d' options "normalement" le problème est que le code est fait pour des groupes de deux boutons actions et que moi j'ai besoin de groupe de trois boutons il me manque plus que cela et j'aurais terminé mon frm et je n'y arrive pas et j'ai besoin de votre aide. Merci d'avance

Code :

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

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
Private Sub ReadRecord(ByVal RecordNumber As Long)
' Lecture de l'enregistrement
RecordNumber = RecordNumber + 1
With rng
Me.txtAffaire = .Cells(RecordNumber, 2)
Me.txtClient = .Cells(RecordNumber, 3)
Me.txtLivraison = .Cells(RecordNumber, 4)
Me.TxtCouleur = .Cells(RecordNumber, 5)
Me.TxtTemps = .Cells(RecordNumber, 6)
Me.cboPays = .Cells(RecordNumber, 7)
Me.cboGamme = .Cells(RecordNumber, 8)
 
      'partie du code qui me fait tirer les cheveux il doit finir pour la 1er ligne en ex avec OptlitAlu
 
If UCase(.Cells(RecordNumber, 11)) = "Com" Then Me.OptComAlu.Value = True Else Me.OptValAlu = True
If UCase(.Cells(RecordNumber, 12)) = "Com" Then Me.OptComAluDivers.Value = True Else Me.OptValAluDivers = True
If UCase(.Cells(RecordNumber, 13)) = "Com" Then Me.OptComAcces.Value = True Else Me.OptValAcces = True
If UCase(.Cells(RecordNumber, 14)) = "Com" Then Me.OptComAcier.Value = True Else Me.OptValAcier = True
If UCase(.Cells(RecordNumber, 15)) = "Com" Then Me.OptComPlastique.Value = True Else Me.OptValPlastique = True
If UCase(.Cells(RecordNumber, 16)) = "Com" Then Me.OptComBois.Value = True Else Me.OptValBois = True
If UCase(.Cells(RecordNumber, 17)) = "Com" Then Me.OptComVitrage.Value = True Else Me.OptValVitrage = True
If UCase(.Cells(RecordNumber, 18)) = "Com" Then Me.OptComTransport.Value = True Else Me.OptValTransport = True
If UCase(.Cells(RecordNumber, 19)) = "Com" Then Me.OptComElectronique.Value = True Else Me.OptValElectronique = True
Me.frmMember.Caption = "Fiche " & Format(RecordNumber, "R000")
End With
End Sub

[boisgontierjacques]

Bonjour,

Pour gérer un groupe d'options, on peut utiliser un ListBox (beaucoup plus simple)

Code :

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

1
2
3
4
5
6
7
Private Sub UserForm_Initialize()
  Me.ListBox1.List = Array("option1", "option2", "Option3", "option4")
End Sub
 
Private Sub ListBox1_Click()
  MsgBox ListBox1
End Sub

Boisgontier

[boisgontierjacques]

Bonjour,

Autre exemple plus classique

Code :

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

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
Private Sub B_validation_Click()
  If Me.textbox2 = "" Then
     MsgBox "Saisir une affaire"
     Me.textbox2.SetFocus
     Exit Sub
  End If
  '--- Transfert Formulaire dans BD
     Me.enreg = ligneEnreg
   For i = 1 To 8
     If IsNumeric(Me("textbox" & i)) Then
       f.Cells(ligneEnreg, i) = Val(Me("textbox" & i))
     Else
       f.Cells(ligneEnreg, i) = Me("textbox" & i)
     End If
   Next i
   '-- groupes
   For i = 1 To 9
     temp = ""
     For Each c In Me("groupe" & i).Controls
       If c.Value = True Then temp = c.Caption
     Next c
     f.Cells(ligneEnreg, i + 10) = temp
   Next i
   UserForm_Initialize
End Sub

Boisgontier