Bonsoir à tous

Je n’arrive pas exécuter la condition VBA suivante: Vérifier que l’utilisateur a saisi au moins un numéro de téléphone: portable ou fixe avec un message lui invitant à renseigner au moins champ et ensuite vérifier si les données saisies sont numériques et le nombre de caractères supérieur est ou égal à 10. Pour valider les données, au moins un des champs doit être renseigné

Or, le code code ci-après ne me valide les données que lorsque les 2 champs sont renseignés

Dans cette attente

Cordialement

Ci-après 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
If Trim(.Txt_Fixe_Membre.Value) = "" And Trim(.Txt_Portable_Membre.Value) = "" Then
 
MsgBox “Veuillez saisir au moins un numéro de téléphone.”, vbOKOnly + vbInformation, “Téléphone”
.Txt_Fixe_Membre.BackColor = vbRed
.Txt_Portable_Membre.BackColor = vbRed
.Txt_Fixe_Membre.SetFocus
 
Else
If Len(.Txt_Fixe_Membre.Value) < 10 And Not IsNumeric(.Txt_Fixe_Membre.Value) Then
 
MsgBox "Format du numéro de téléphone non valide.", vbOKOnly + vbInformation, "Téléphone Fixe"
 
ElseIf Len(.Txt_Portable_Membre.Value) < 10 And Not IsNumeric(.Txt_Portable_Membre.Value) Then
 
MsgBox "Format du numéro de téléphone non valide.", vbOKOnly + vbInformation, "Téléphone Portbale"
 
 
End If
End If