Bonjour,

Situation : un groupe d'option nommé quickseak avec 2 valeurs 1 et 2
un texte indépendant pour saisie de valeur type numérque
un bouton ok pour valider.

Objectif :
- si aucune des cases n'est sélectionnée, je veux un msgbox pour la situation
- si 1 case est sélectionnée mais aucune valeur entrée dans la zone de texte indépendante, un autre msgbox de circonstance
- si aucune case n'est sélectonnée mais que la zone de texte est remplie, le msg box du premier cas de figure.

Mon problème:
Voici mon code au départ, et pour lequel je m'emmêle les pinceaux car je n'arrive plus à jouer avec les IF sans alourdir le code
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Private Sub Commande62_Click()
 
If Me.quickseak.Value = 1 Then
    Form_HOME.ACTUALISATION.Visible = True
    Form_HOME.ACTUALISATION.SetFocus
    Form_HOME.MENU.Visible = False
    Dim rec As Recordset
    Set rec = Form_HOME.ACTU.Form.Recordset
    rec.FindFirst ("Réfdossier =" & Me.Texte63.Value)
    Set rec = Nothing
Else
MsgBox "Veuillez sélectionner un critère de recherche", vbInformation + vbOKOnly, "AVERTISSEMENT"
 
If Me.quickseak.Value = 2 Then
    Form_HOME.ACTUALISATION.Visible = True
    Form_HOME.ACTUALISATION.SetFocus
    Form_HOME.MENU.Visible = False
    Set rec = Form_HOME.ACTU.Form.Recordset
    rec.FindFirst ("Réfmandat =" & Me.Texte63.Value)
    Set rec = Nothing
Else
MsgBox "Veuillez sélectionner un critère de recherche", vbInformation + vbOKOnly, "AVERTISSEMENT"
 
If Me.Texte63.Value = "" Then
MsgBox "Veuillez entrer une référence.", vbInformation + vbOKOnly, "AVERTISSEMENT"
 
End If
End If
End If
End Sub
Quelqu'un peut m'aider à démêler mon nœud ?

Merci par avance