Affichage valeur optionButton dans une cellule
Rebonjour,
Un autre petit problème,
J'utilise un Userform où je rentre des données et je souhaiterai qu'en cliquant sur enregistrer, les informations s'enregistrent sur une feuille Hsup.
Pour les valeurs contenues dans le label et les 2 textboxs, tout fonctionne, mais pas pour les 2 option boutons.
Voici le code:
Private Sub Enregistrer_Click()
Dim derlign As Long
With Sheets("Hsup")
derlign = .Range("A65536").End(xlUp).Row
.Cells(derlign + 1, 1) = Label1
If OptionHsup Then Cells(derlign + 1, 2) = "H sup"
If OptionAstreinte Then Cells(derlign + 1, 2) = "Astreinte"
.Cells(derlign + 1, 3) = CDate(TextBox1)
.Cells(derlign + 1, 4) = CDate(TextBox2)
End With
Unload Me
End Sub
Private Sub UserForm_Initialize()
UserForm1.Label1.Caption = Sheets("Janv").Cells((Right(Application.Caller, 2)), 1).Value
End Sub
Quelle est l'erreur? sachant qu dans VBEsi je clique sur le petit bouton "lecture" il y a une Msgbox qui m'indique erreur d'éxécution '13'
Merci pour votre aide
Rebonjour,
Un autre petit problème,
J'utilise un Userform où je rentre des données et je souhaiterai qu'en cliquant sur enregistrer, les informations s'enregistrent sur une feuille Hsup.
Pour les valeurs contenues dans le label et les 2 textboxs, tout fonctionne, mais pas pour les 2 option boutons.
Voici le code:
Private Sub Enregistrer_Click()
Dim derlign As Long
With Sheets("Hsup")
derlign = .Range("A65536").End(xlUp).Row
.Cells(derlign + 1, 1) = Label1
If OptionHsup Then Cells(derlign + 1, 2) = "H sup"
If OptionAstreinte Then Cells(derlign + 1, 2) = "Astreinte"
.Cells(derlign + 1, 3) = CDate(TextBox1)
.Cells(derlign + 1, 4) = CDate(TextBox2)
End With
Unload Me
End Sub
Private Sub UserForm_Initialize()
UserForm1.Label1.Caption = Sheets("Janv").Cells((Right(Application.Caller, 2)), 1).Value
End Sub
Quelle est l'erreur? sachant qu dans VBEsi je clique sur le petit bouton "lecture" il y a une Msgbox qui m'indique erreur d'éxécution '13'
Merci pour votre aide
Dernière édition: