L
le CH'TI160
Guest
Re a tous c'est bien ici les Questions?
bon alors !!!!
mon probleme j'essais via une fonction de récupérer le texte d'un ComboBox
je joins le texte que j'ai pondu grace à vous
Public Sub OptionButton1_Click()
Dim CTL As Control
Dim NomOptB As String
Dim texte As String
For Each CTL In Frame1.Controls 'on parcours tous les ctrl du Frame1
'on verifie que c'est un option button
If TypeOf CTL Is MSForms.OptionButton Then
If CTL.Value = True Then 'bouton qui est coché
NomOptB = CTL.Name
TxtCombo (NomOptB) 'appel de la fonction
MsgBox "ATTENTION Vous Allez Supprimer" & texte, vbOKCancel + vbCritical, "ATTENTION"
'je n'arrive pas à inserer "texte" dans le MsgBox
Exit For 'comme opt, 1 seul est coché
End If
End If
Next
End Sub
Function TxtCombo(NomOptB) As Variant
' là je me perds car je n'arrive pas à récupérer le txt du CmbB
' pour le renvoyer dans mon MsGBox où la methode select case n'est elle pas adaptée
' j'ai 8 Optb et 8 CmbB
Select Case NomOptB
Case Is = OptB_1
texte = CmbB1.Value
Case Is = OptB_2
texte = CmbB2.Value
Case Is = OptB_3
texte = CmbB3.Value 'Etc etc...............jusqu'a 8
End Select
End Function
j'espère que je n'ai pas été trop long et que je ne me suis pas trompé de section lol !!!! c'est bien pour Le VBA Ici ?????
Alors Merci d'avance pour vos conseils et petits coups de mains
A+++
Jean Marie
bon alors !!!!
mon probleme j'essais via une fonction de récupérer le texte d'un ComboBox
je joins le texte que j'ai pondu grace à vous
Public Sub OptionButton1_Click()
Dim CTL As Control
Dim NomOptB As String
Dim texte As String
For Each CTL In Frame1.Controls 'on parcours tous les ctrl du Frame1
'on verifie que c'est un option button
If TypeOf CTL Is MSForms.OptionButton Then
If CTL.Value = True Then 'bouton qui est coché
NomOptB = CTL.Name
TxtCombo (NomOptB) 'appel de la fonction
MsgBox "ATTENTION Vous Allez Supprimer" & texte, vbOKCancel + vbCritical, "ATTENTION"
'je n'arrive pas à inserer "texte" dans le MsgBox
Exit For 'comme opt, 1 seul est coché
End If
End If
Next
End Sub
Function TxtCombo(NomOptB) As Variant
' là je me perds car je n'arrive pas à récupérer le txt du CmbB
' pour le renvoyer dans mon MsGBox où la methode select case n'est elle pas adaptée
' j'ai 8 Optb et 8 CmbB
Select Case NomOptB
Case Is = OptB_1
texte = CmbB1.Value
Case Is = OptB_2
texte = CmbB2.Value
Case Is = OptB_3
texte = CmbB3.Value 'Etc etc...............jusqu'a 8
End Select
End Function
j'espère que je n'ai pas été trop long et que je ne me suis pas trompé de section lol !!!! c'est bien pour Le VBA Ici ?????
Alors Merci d'avance pour vos conseils et petits coups de mains
A+++
Jean Marie