Bonjour le (nouveau?) forum,
Je poste un petit message d'appel à l'aide aujourd'hui quant à la gestion des erreurs. Voici mon code :
J'ai un frame contenant 4 optionbutton. Quand je ne sélectionner aucun d'entre eux, ma macro plante forcément à la ligne :
J'aimerais gérer l'erreur de manière à :
- Si aucun Option Button n'est sélectionner :
1°) Afficher un MsgBox ("Il faut sélectionner...")
2°) Revenir à l'userform pour sélectionner l'OptionButton
3°) Resume la procédure
Merci d'avance,
AntoineM
Je poste un petit message d'appel à l'aide aujourd'hui quant à la gestion des erreurs. Voici mon code :
VB:
Private Sub CommandButton1_Click()
Dim Ctrl As Control
Dim k As Integer
Dim j As Integer
For Each Ctrl In Frame1.Controls
If Ctrl.Object.Value = True Then
Exit For
End If
Next Ctrl
k = Application.Match(ComboBox1.Value, Feuil1.Range("A1:A100"), 0)
j = Application.Match(Ctrl.Object.Caption, Feuil1.Range("A1:H1"), 0)
Sheets("Suivi").Cells(k, j).Value = Format(DTPicker1.Value, "dd/mm/yyyy")
Sheets("Suivi").Cells(k, j).Font.Bold = True
Unload Me
End Sub
J'ai un frame contenant 4 optionbutton. Quand je ne sélectionner aucun d'entre eux, ma macro plante forcément à la ligne :
VB:
j = Application.Match(Ctrl.Object.Caption, Feuil1.Range("A1:H1"), 0)
J'aimerais gérer l'erreur de manière à :
- Si aucun Option Button n'est sélectionner :
1°) Afficher un MsgBox ("Il faut sélectionner...")
2°) Revenir à l'userform pour sélectionner l'OptionButton
3°) Resume la procédure
Merci d'avance,
AntoineM