Salut "valou "
bonjour "LE FORUM"
je te remercie pour l'aide que tu m'as apporté j'ai modifié un peu pour adapter un peu et j'en suis actuellement à tenter de créer une fonction
qui celon l'OptionButton renvoyé m'ouvre un MsgBox
j'en suis la de mes recherches et je cale "une fois encore"
Public Sub OptBSupp_Click()
Dim CTL As Control
Dim Nm 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é
Nm = CTL.Name
Message (Nm) 'ici je ne sais pas comment faire pour appeler la fonction
Exit For 'comme opt, 1 seul est coché
End If
End If
Next
End Sub
'la fonction serait celle ci
Function Message(Nm)
Select Case Nm
Case Is = OptB1
MsgBox "ATTENTION Vous Allez Supprimer" & CmbB1.Value, vbOKCancel + vbCritical, "ATTENTION"
Case Is = OptB2
MsgBox "ATTENTION Vous Allez Supprimer" & CmbB2.Value, vbOKCancel + vbCritical, "ATTENTION"
Case Is = OptB3
MsgBox "ATTENTION Vous Allez Supprimer" & CmbB3.Value, vbOKCancel + vbCritical, "ATTENTION"
Case Is = OptB4
MsgBox "ATTENTION Vous Allez Supprimer" & CmbB4.Value, vbOKCancel + vbCritical, "ATTENTION"
Case Is = OptB5
MsgBox "ATTENTION Vous Allez Supprimer" & CmbB5.Value, vbOKCancel + vbCritical, "ATTENTION"
Case Is = OptB6
MsgBox "ATTENTION Vous Allez Supprimer" & CmbB6.Value, vbOKCancel + vbCritical, "ATTENTION"
Case Is = OptB7
MsgBox "ATTENTION Vous Allez Supprimer" & CmbB7.Value, vbOKCancel + vbCritical, "ATTENTION"
Case Is = OptB8
MsgBox "ATTENTION Vous Allez Supprimer" & CmbB8.Value, vbOKCancel + vbCritical, "ATTENTION"
End Select
End Function
si une bonne ame pouvait m'aider
Merci D'avance
A+++
Jean Marie