J'aimerais en fait tout simplement améliorer cette portion de code (peut
être avec un Select Case?)
______
'On vérifie que les TextBox contiennent une valeur, sinon un message apparaît
If OptionButton11 Then
If Me.Controls("TextBox7") = "" Then
MsgBox ("Vous devez saisir la date du courrier précédent")
End If
End If
If OptionButton12 Then
If Me.Controls("TextBox7") = "" Then
MsgBox ("Vous devez saisir la date du courrier précédent")
End If
End If
______
De plus j'aimerais faire que si le message apparaît, la suite du code ne
s'exécute pas. Je n'arrive pas à trouver comment faire.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Garette
Bonjour,
Non testé :
If (OptionButton12 Or OptionButton11) And Me.Controls("TextBox7") = "" Then MsgBox ("Vous devez saisir la date du courrier précédent") End If
ou sur la meme ligne :
If (OptionButton12 Or OptionButton11) And Me.Controls("TextBox7") = "" Then MsgBox ("Vous devez saisir la date du courrier précédent")
"YeTi" a écrit dans le message de news:
Bonjour,
J'aimerais en fait tout simplement améliorer cette portion de code (peut être avec un Select Case?) ______ 'On vérifie que les TextBox contiennent une valeur, sinon un message apparaît
If OptionButton11 Then If Me.Controls("TextBox7") = "" Then MsgBox ("Vous devez saisir la date du courrier précédent") End If End If
If OptionButton12 Then If Me.Controls("TextBox7") = "" Then MsgBox ("Vous devez saisir la date du courrier précédent") End If End If ______
De plus j'aimerais faire que si le message apparaît, la suite du code ne s'exécute pas. Je n'arrive pas à trouver comment faire.
Merci d'avance
Bonjour,
Non testé :
If (OptionButton12 Or OptionButton11) And Me.Controls("TextBox7") = "" Then
MsgBox ("Vous devez saisir la date du courrier précédent")
End If
ou sur la meme ligne :
If (OptionButton12 Or OptionButton11) And Me.Controls("TextBox7") = "" Then
MsgBox ("Vous devez saisir la date du courrier précédent")
"YeTi" <YeTi@discussions.microsoft.com> a écrit dans le message de news:
2F7DF1B4-4BAA-4D92-98A6-9EBE83768C1E@microsoft.com...
Bonjour,
J'aimerais en fait tout simplement améliorer cette portion de code (peut
être avec un Select Case?)
______
'On vérifie que les TextBox contiennent une valeur, sinon un message
apparaît
If OptionButton11 Then
If Me.Controls("TextBox7") = "" Then
MsgBox ("Vous devez saisir la date du courrier précédent")
End If
End If
If OptionButton12 Then
If Me.Controls("TextBox7") = "" Then
MsgBox ("Vous devez saisir la date du courrier précédent")
End If
End If
______
De plus j'aimerais faire que si le message apparaît, la suite du code ne
s'exécute pas. Je n'arrive pas à trouver comment faire.
If (OptionButton12 Or OptionButton11) And Me.Controls("TextBox7") = "" Then MsgBox ("Vous devez saisir la date du courrier précédent") End If
ou sur la meme ligne :
If (OptionButton12 Or OptionButton11) And Me.Controls("TextBox7") = "" Then MsgBox ("Vous devez saisir la date du courrier précédent")
"YeTi" a écrit dans le message de news:
Bonjour,
J'aimerais en fait tout simplement améliorer cette portion de code (peut être avec un Select Case?) ______ 'On vérifie que les TextBox contiennent une valeur, sinon un message apparaît
If OptionButton11 Then If Me.Controls("TextBox7") = "" Then MsgBox ("Vous devez saisir la date du courrier précédent") End If End If
If OptionButton12 Then If Me.Controls("TextBox7") = "" Then MsgBox ("Vous devez saisir la date du courrier précédent") End If End If ______
De plus j'aimerais faire que si le message apparaît, la suite du code ne s'exécute pas. Je n'arrive pas à trouver comment faire.
Merci d'avance
YeTi
Merci Garette, tout marche très bien.
Cependant, j'avais une seconde question à laquelle vous n'avez pas donné de réponse:
De plus j'aimerais faire que si le message apparaît, la suite du code ne s'exécute pas. Je n'arrive pas à trouver comment faire.
Merci d'avance pour une réponse
Bonjour,
Non testé :
If (OptionButton12 Or OptionButton11) And Me.Controls("TextBox7") = "" Then MsgBox ("Vous devez saisir la date du courrier précédent") End If
ou sur la meme ligne :
If (OptionButton12 Or OptionButton11) And Me.Controls("TextBox7") = "" Then MsgBox ("Vous devez saisir la date du courrier précédent")
"YeTi" a écrit dans le message de news:
Bonjour,
J'aimerais en fait tout simplement améliorer cette portion de code (peut être avec un Select Case?) ______ 'On vérifie que les TextBox contiennent une valeur, sinon un message apparaît
If OptionButton11 Then If Me.Controls("TextBox7") = "" Then MsgBox ("Vous devez saisir la date du courrier précédent") End If End If
If OptionButton12 Then If Me.Controls("TextBox7") = "" Then MsgBox ("Vous devez saisir la date du courrier précédent") End If End If ______
De plus j'aimerais faire que si le message apparaît, la suite du code ne s'exécute pas. Je n'arrive pas à trouver comment faire.
Merci d'avance
Merci Garette, tout marche très bien.
Cependant, j'avais une seconde question à laquelle vous n'avez pas donné de
réponse:
De plus j'aimerais faire que si le message apparaît, la suite du code ne
s'exécute pas. Je n'arrive pas à trouver comment faire.
Merci d'avance pour une réponse
Bonjour,
Non testé :
If (OptionButton12 Or OptionButton11) And Me.Controls("TextBox7") = "" Then
MsgBox ("Vous devez saisir la date du courrier précédent")
End If
ou sur la meme ligne :
If (OptionButton12 Or OptionButton11) And Me.Controls("TextBox7") = "" Then
MsgBox ("Vous devez saisir la date du courrier précédent")
"YeTi" <YeTi@discussions.microsoft.com> a écrit dans le message de news:
2F7DF1B4-4BAA-4D92-98A6-9EBE83768C1E@microsoft.com...
Bonjour,
J'aimerais en fait tout simplement améliorer cette portion de code (peut
être avec un Select Case?)
______
'On vérifie que les TextBox contiennent une valeur, sinon un message
apparaît
If OptionButton11 Then
If Me.Controls("TextBox7") = "" Then
MsgBox ("Vous devez saisir la date du courrier précédent")
End If
End If
If OptionButton12 Then
If Me.Controls("TextBox7") = "" Then
MsgBox ("Vous devez saisir la date du courrier précédent")
End If
End If
______
De plus j'aimerais faire que si le message apparaît, la suite du code ne
s'exécute pas. Je n'arrive pas à trouver comment faire.
Cependant, j'avais une seconde question à laquelle vous n'avez pas donné de réponse:
De plus j'aimerais faire que si le message apparaît, la suite du code ne s'exécute pas. Je n'arrive pas à trouver comment faire.
Merci d'avance pour une réponse
Bonjour,
Non testé :
If (OptionButton12 Or OptionButton11) And Me.Controls("TextBox7") = "" Then MsgBox ("Vous devez saisir la date du courrier précédent") End If
ou sur la meme ligne :
If (OptionButton12 Or OptionButton11) And Me.Controls("TextBox7") = "" Then MsgBox ("Vous devez saisir la date du courrier précédent")
"YeTi" a écrit dans le message de news:
Bonjour,
J'aimerais en fait tout simplement améliorer cette portion de code (peut être avec un Select Case?) ______ 'On vérifie que les TextBox contiennent une valeur, sinon un message apparaît
If OptionButton11 Then If Me.Controls("TextBox7") = "" Then MsgBox ("Vous devez saisir la date du courrier précédent") End If End If
If OptionButton12 Then If Me.Controls("TextBox7") = "" Then MsgBox ("Vous devez saisir la date du courrier précédent") End If End If ______
De plus j'aimerais faire que si le message apparaît, la suite du code ne s'exécute pas. Je n'arrive pas à trouver comment faire.
Merci d'avance
Garette
Ouups... J'avais zappé la fin de la question :
If (OptionButton12 Or OptionButton11) And Me.Controls("TextBox7") = "" Then MsgBox ("Vous devez saisir la date du courrier précédent") Exit Sub End If
"YeTi" a écrit dans le message de news:
Merci Garette, tout marche très bien.
Cependant, j'avais une seconde question à laquelle vous n'avez pas donné de réponse:
De plus j'aimerais faire que si le message apparaît, la suite du code ne s'exécute pas. Je n'arrive pas à trouver comment faire.
Merci d'avance pour une réponse
Bonjour,
Non testé :
If (OptionButton12 Or OptionButton11) And Me.Controls("TextBox7") = "" Then MsgBox ("Vous devez saisir la date du courrier précédent") End If
ou sur la meme ligne :
If (OptionButton12 Or OptionButton11) And Me.Controls("TextBox7") = "" Then MsgBox ("Vous devez saisir la date du courrier précédent")
"YeTi" a écrit dans le message de news:
Bonjour,
J'aimerais en fait tout simplement améliorer cette portion de code (peut être avec un Select Case?) ______ 'On vérifie que les TextBox contiennent une valeur, sinon un message apparaît
If OptionButton11 Then If Me.Controls("TextBox7") = "" Then MsgBox ("Vous devez saisir la date du courrier précédent") End If End If
If OptionButton12 Then If Me.Controls("TextBox7") = "" Then MsgBox ("Vous devez saisir la date du courrier précédent") End If End If ______
De plus j'aimerais faire que si le message apparaît, la suite du code ne s'exécute pas. Je n'arrive pas à trouver comment faire.
Merci d'avance
Ouups...
J'avais zappé la fin de la question :
If (OptionButton12 Or OptionButton11) And Me.Controls("TextBox7") = "" Then
MsgBox ("Vous devez saisir la date du courrier précédent")
Exit Sub
End If
"YeTi" <YeTi@discussions.microsoft.com> a écrit dans le message de news:
65CE44BE-0A7D-4B0D-97BF-3EB92C4B3974@microsoft.com...
Merci Garette, tout marche très bien.
Cependant, j'avais une seconde question à laquelle vous n'avez pas donné
de
réponse:
De plus j'aimerais faire que si le message apparaît, la suite du code ne
s'exécute pas. Je n'arrive pas à trouver comment faire.
Merci d'avance pour une réponse
Bonjour,
Non testé :
If (OptionButton12 Or OptionButton11) And Me.Controls("TextBox7") = ""
Then
MsgBox ("Vous devez saisir la date du courrier précédent")
End If
ou sur la meme ligne :
If (OptionButton12 Or OptionButton11) And Me.Controls("TextBox7") = ""
Then
MsgBox ("Vous devez saisir la date du courrier précédent")
"YeTi" <YeTi@discussions.microsoft.com> a écrit dans le message de news:
2F7DF1B4-4BAA-4D92-98A6-9EBE83768C1E@microsoft.com...
Bonjour,
J'aimerais en fait tout simplement améliorer cette portion de code
(peut
être avec un Select Case?)
______
'On vérifie que les TextBox contiennent une valeur, sinon un message
apparaît
If OptionButton11 Then
If Me.Controls("TextBox7") = "" Then
MsgBox ("Vous devez saisir la date du courrier précédent")
End If
End If
If OptionButton12 Then
If Me.Controls("TextBox7") = "" Then
MsgBox ("Vous devez saisir la date du courrier précédent")
End If
End If
______
De plus j'aimerais faire que si le message apparaît, la suite du code
ne
s'exécute pas. Je n'arrive pas à trouver comment faire.
If (OptionButton12 Or OptionButton11) And Me.Controls("TextBox7") = "" Then MsgBox ("Vous devez saisir la date du courrier précédent") Exit Sub End If
"YeTi" a écrit dans le message de news:
Merci Garette, tout marche très bien.
Cependant, j'avais une seconde question à laquelle vous n'avez pas donné de réponse:
De plus j'aimerais faire que si le message apparaît, la suite du code ne s'exécute pas. Je n'arrive pas à trouver comment faire.
Merci d'avance pour une réponse
Bonjour,
Non testé :
If (OptionButton12 Or OptionButton11) And Me.Controls("TextBox7") = "" Then MsgBox ("Vous devez saisir la date du courrier précédent") End If
ou sur la meme ligne :
If (OptionButton12 Or OptionButton11) And Me.Controls("TextBox7") = "" Then MsgBox ("Vous devez saisir la date du courrier précédent")
"YeTi" a écrit dans le message de news:
Bonjour,
J'aimerais en fait tout simplement améliorer cette portion de code (peut être avec un Select Case?) ______ 'On vérifie que les TextBox contiennent une valeur, sinon un message apparaît
If OptionButton11 Then If Me.Controls("TextBox7") = "" Then MsgBox ("Vous devez saisir la date du courrier précédent") End If End If
If OptionButton12 Then If Me.Controls("TextBox7") = "" Then MsgBox ("Vous devez saisir la date du courrier précédent") End If End If ______
De plus j'aimerais faire que si le message apparaît, la suite du code ne s'exécute pas. Je n'arrive pas à trouver comment faire.
Merci d'avance
AH60
Bonjour
De plus j'aimerais faire que si le message apparaît, la suite du code ne s'exécute pas. Je n'arrive pas à trouver comment faire.
MsgBox ("Vous devez saisir la date du courrier précédent") Exit Sub
Abed_H
Merci Garette, tout marche très bien.
Cependant, j'avais une seconde question à laquelle vous n'avez pas donné de réponse:
De plus j'aimerais faire que si le message apparaît, la suite du code ne s'exécute pas. Je n'arrive pas à trouver comment faire.
Merci d'avance pour une réponse
Bonjour,
Non testé :
If (OptionButton12 Or OptionButton11) And Me.Controls("TextBox7") = "" Then MsgBox ("Vous devez saisir la date du courrier précédent") End If
ou sur la meme ligne :
If (OptionButton12 Or OptionButton11) And Me.Controls("TextBox7") = "" Then MsgBox ("Vous devez saisir la date du courrier précédent")
"YeTi" a écrit dans le message de news:
Bonjour,
J'aimerais en fait tout simplement améliorer cette portion de code (peut être avec un Select Case?) ______ 'On vérifie que les TextBox contiennent une valeur, sinon un message apparaît
If OptionButton11 Then If Me.Controls("TextBox7") = "" Then MsgBox ("Vous devez saisir la date du courrier précédent") End If End If
If OptionButton12 Then If Me.Controls("TextBox7") = "" Then MsgBox ("Vous devez saisir la date du courrier précédent") End If End If ______
De plus j'aimerais faire que si le message apparaît, la suite du code ne s'exécute pas. Je n'arrive pas à trouver comment faire.
Merci d'avance
Bonjour
De plus j'aimerais faire que si le message apparaît, la suite du code ne
s'exécute pas. Je n'arrive pas à trouver comment faire.
MsgBox ("Vous devez saisir la date du courrier précédent")
Exit Sub
Abed_H
Merci Garette, tout marche très bien.
Cependant, j'avais une seconde question à laquelle vous n'avez pas donné de
réponse:
De plus j'aimerais faire que si le message apparaît, la suite du code ne
s'exécute pas. Je n'arrive pas à trouver comment faire.
Merci d'avance pour une réponse
Bonjour,
Non testé :
If (OptionButton12 Or OptionButton11) And Me.Controls("TextBox7") = "" Then
MsgBox ("Vous devez saisir la date du courrier précédent")
End If
ou sur la meme ligne :
If (OptionButton12 Or OptionButton11) And Me.Controls("TextBox7") = "" Then
MsgBox ("Vous devez saisir la date du courrier précédent")
"YeTi" <YeTi@discussions.microsoft.com> a écrit dans le message de news:
2F7DF1B4-4BAA-4D92-98A6-9EBE83768C1E@microsoft.com...
Bonjour,
J'aimerais en fait tout simplement améliorer cette portion de code (peut
être avec un Select Case?)
______
'On vérifie que les TextBox contiennent une valeur, sinon un message
apparaît
If OptionButton11 Then
If Me.Controls("TextBox7") = "" Then
MsgBox ("Vous devez saisir la date du courrier précédent")
End If
End If
If OptionButton12 Then
If Me.Controls("TextBox7") = "" Then
MsgBox ("Vous devez saisir la date du courrier précédent")
End If
End If
______
De plus j'aimerais faire que si le message apparaît, la suite du code ne
s'exécute pas. Je n'arrive pas à trouver comment faire.
De plus j'aimerais faire que si le message apparaît, la suite du code ne s'exécute pas. Je n'arrive pas à trouver comment faire.
MsgBox ("Vous devez saisir la date du courrier précédent") Exit Sub
Abed_H
Merci Garette, tout marche très bien.
Cependant, j'avais une seconde question à laquelle vous n'avez pas donné de réponse:
De plus j'aimerais faire que si le message apparaît, la suite du code ne s'exécute pas. Je n'arrive pas à trouver comment faire.
Merci d'avance pour une réponse
Bonjour,
Non testé :
If (OptionButton12 Or OptionButton11) And Me.Controls("TextBox7") = "" Then MsgBox ("Vous devez saisir la date du courrier précédent") End If
ou sur la meme ligne :
If (OptionButton12 Or OptionButton11) And Me.Controls("TextBox7") = "" Then MsgBox ("Vous devez saisir la date du courrier précédent")
"YeTi" a écrit dans le message de news:
Bonjour,
J'aimerais en fait tout simplement améliorer cette portion de code (peut être avec un Select Case?) ______ 'On vérifie que les TextBox contiennent une valeur, sinon un message apparaît
If OptionButton11 Then If Me.Controls("TextBox7") = "" Then MsgBox ("Vous devez saisir la date du courrier précédent") End If End If
If OptionButton12 Then If Me.Controls("TextBox7") = "" Then MsgBox ("Vous devez saisir la date du courrier précédent") End If End If ______
De plus j'aimerais faire que si le message apparaît, la suite du code ne s'exécute pas. Je n'arrive pas à trouver comment faire.
