Valeur de l'optionButon et textbox dans un label

maval · 1 Juillet 2016

Bonjour

J'ai 21 option bouton et 21 textbox et un label, j'aimerai que lorsque je clique sur une option bouton j'ai la valeur de l'option bouton et du textbox qui est en relation dans le label1 c'est à dire si je clique sur l'option bouton action et dans le textbox il y a 144 j'aimerai que dans le label1 il y a "Action 144"

Je vous remercie d'avance

jecherche · 1 Juillet 2016

Re : Valeur de l'optionButon et textbox dans un label

Bonjour,

Si j'ai bien compris ... l'ajout est juste avant le End With...

Code:

Private Sub Bouton_Click()
Dim Num As Integer
Dim Cel As Range, Depart As String

  With UserForm1
    For Num = 1 To 21
      .Controls("TextBox" & Num) = ""
    Next Num
    Range("F2:F" & Range("F" & Rows.Count).End(xlUp).Row).Interior.ColorIndex = xlNone
    Set Cel = Columns("F").Find(what:=Bouton.Caption, LookIn:=xlValues, lookat:=xlPart)
    If Not Cel Is Nothing Then
      Depart = Cel.Address
      Do
        Cel.Interior.ColorIndex = 3
        Set Cel = Columns("F").FindNext(Cel)
      Loop While Depart <> Cel.Address
    End If
    Num = Val(Mid(Bouton.Name, Len("OptionButton") + 1))
    .Controls("TextBox" & Num) = Application.CountIf(Columns("F"), "*" & Bouton.Caption & "*")
    .Label1 = Bouton.Caption & " " & .Controls("textbox" & Num).Value  ''' Ajout ICI
  End With
End Sub

Jecherche

Papou-net · 1 Juillet 2016

Re : Valeur de l'optionButon et textbox dans un label

Bonsoir Max,

Essaie comme ceci (dans le module de classe):

Code:

Private Sub Bouton_Click()
Dim Num As Integer
Dim Cel As Range, Depart As String

  With UserForm1
    For Num = 1 To 21
      .Controls("TextBox" & Num) = ""
    Next Num
    Range("F2:F" & Range("F" & Rows.Count).End(xlUp).Row).Interior.ColorIndex = xlNone
    Set Cel = Columns("F").Find(what:=Bouton.Caption, LookIn:=xlValues, lookat:=xlPart)
    If Not Cel Is Nothing Then
      Depart = Cel.Address
      Do
        Cel.Interior.ColorIndex = 3
        Set Cel = Columns("F").FindNext(Cel)
      Loop While Depart <> Cel.Address
    End If
    Num = Val(Mid(Bouton.Name, Len("OptionButton") + 1))
    .Controls("TextBox" & Num) = Application.CountIf(Columns("F"), "*" & Bouton.Caption & "*")
    .Label1.Caption = Bouton.Caption & " : " & Application.CountIf(Columns("F"), "*" & Bouton.Caption & "*")
  End With
End Sub

A +

Cordialement.

Oups, collision. Bonsoir "Jecherche"

maval · 1 Juillet 2016

Re : Valeur de l'optionButon et textbox dans un label

Bonsoir, Jecherche, Papout-net

Je vous remercie et vous souhaite une bonne soirée

Valeur de l'optionButon et textbox dans un label

maval

XLDnaute Barbatruc

Pièces jointes

jecherche

XLDnaute Occasionnel

Papou-net

XLDnaute Barbatruc

maval

XLDnaute Barbatruc

Discussions similaires