Valeur de l'optionButon et textbox dans un label

[maval]

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]

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

Bonjour,

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

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]

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

Bonsoir Max,

Essaie comme ceci (dans le module de classe):

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]

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

Bonsoir, Jecherche, Papout-net

Je vous remercie et vous souhaite une bonne soirée