dans un userform, j'ai des RefEdit et je voudrais savoir=20
s'il est possible de tester si les valeurs qui s'y=20
trouvent sont des adresses ou des valeurs entr=E9es =E0 la=20
mimine. Ou comment cr=E9er une fonction IsAddress =E0 la=20
mani=E8re de IsDate. Je voudrais =E9viter de travailler avec=20
la gestion des erreurs.
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
papou
Bonjour Tu peux essayer avec ceci (dans le code de ton userform) : Private Sub RefEdit1_Exit(ByVal Cancel As MSForms.ReturnBoolean) Dim NbCell As Long On Error Resume Next NbCell = Range(RefEdit1.Value).Cells.Count If Err <> 0 Then MsgBox "Désolé ceci n'est pas une adresse valide", vbExclamation, "Saisie invalide" RefEdit1.Value = "" End If On Error GoTo 0 End Sub
Cordialement Pascal
"sniper" a écrit dans le message de news: 4c3801c524c5$60bb92f0$ bonjour,
dans un userform, j'ai des RefEdit et je voudrais savoir s'il est possible de tester si les valeurs qui s'y trouvent sont des adresses ou des valeurs entrées à la mimine. Ou comment créer une fonction IsAddress à la manière de IsDate. Je voudrais éviter de travailler avec la gestion des erreurs.
merci d'avance
Bonjour
Tu peux essayer avec ceci (dans le code de ton userform) :
Private Sub RefEdit1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim NbCell As Long
On Error Resume Next
NbCell = Range(RefEdit1.Value).Cells.Count
If Err <> 0 Then
MsgBox "Désolé ceci n'est pas une adresse valide", vbExclamation, "Saisie
invalide"
RefEdit1.Value = ""
End If
On Error GoTo 0
End Sub
Cordialement
Pascal
"sniper" <sniper@discussions.microsoft.com> a écrit dans le message de news:
4c3801c524c5$60bb92f0$a501280a@phx.gbl...
bonjour,
dans un userform, j'ai des RefEdit et je voudrais savoir
s'il est possible de tester si les valeurs qui s'y
trouvent sont des adresses ou des valeurs entrées à la
mimine. Ou comment créer une fonction IsAddress à la
manière de IsDate. Je voudrais éviter de travailler avec
la gestion des erreurs.
Bonjour Tu peux essayer avec ceci (dans le code de ton userform) : Private Sub RefEdit1_Exit(ByVal Cancel As MSForms.ReturnBoolean) Dim NbCell As Long On Error Resume Next NbCell = Range(RefEdit1.Value).Cells.Count If Err <> 0 Then MsgBox "Désolé ceci n'est pas une adresse valide", vbExclamation, "Saisie invalide" RefEdit1.Value = "" End If On Error GoTo 0 End Sub
Cordialement Pascal
"sniper" a écrit dans le message de news: 4c3801c524c5$60bb92f0$ bonjour,
dans un userform, j'ai des RefEdit et je voudrais savoir s'il est possible de tester si les valeurs qui s'y trouvent sont des adresses ou des valeurs entrées à la mimine. Ou comment créer une fonction IsAddress à la manière de IsDate. Je voudrais éviter de travailler avec la gestion des erreurs.
merci d'avance
sniper
merci infiniment Pascal,
je voulais essayer de ne pas utiliser la gestion d'erreur, mais je crois qu'il n'y a pas d'autre soluce
-----Original Message----- Bonjour Tu peux essayer avec ceci (dans le code de ton userform) :
Private Sub RefEdit1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim NbCell As Long On Error Resume Next NbCell = Range(RefEdit1.Value).Cells.Count If Err <> 0 Then MsgBox "Désolé ceci n'est pas une adresse valide", vbExclamation, "Saisie
invalide" RefEdit1.Value = "" End If On Error GoTo 0 End Sub
Cordialement Pascal
"sniper" a écrit dans le message de news:
4c3801c524c5$60bb92f0$ bonjour,
dans un userform, j'ai des RefEdit et je voudrais savoir s'il est possible de tester si les valeurs qui s'y trouvent sont des adresses ou des valeurs entrées à la mimine. Ou comment créer une fonction IsAddress à la manière de IsDate. Je voudrais éviter de travailler avec la gestion des erreurs.
merci d'avance
.
merci infiniment Pascal,
je voulais essayer de ne pas utiliser la gestion
d'erreur, mais je crois qu'il n'y a pas d'autre soluce
-----Original Message-----
Bonjour
Tu peux essayer avec ceci (dans le code de ton
userform) :
Private Sub RefEdit1_Exit(ByVal Cancel As
MSForms.ReturnBoolean)
Dim NbCell As Long
On Error Resume Next
NbCell = Range(RefEdit1.Value).Cells.Count
If Err <> 0 Then
MsgBox "Désolé ceci n'est pas une adresse valide",
vbExclamation, "Saisie
invalide"
RefEdit1.Value = ""
End If
On Error GoTo 0
End Sub
Cordialement
Pascal
"sniper" <sniper@discussions.microsoft.com> a écrit dans
le message de news:
dans un userform, j'ai des RefEdit et je voudrais savoir
s'il est possible de tester si les valeurs qui s'y
trouvent sont des adresses ou des valeurs entrées à la
mimine. Ou comment créer une fonction IsAddress à la
manière de IsDate. Je voudrais éviter de travailler avec
la gestion des erreurs.
je voulais essayer de ne pas utiliser la gestion d'erreur, mais je crois qu'il n'y a pas d'autre soluce
-----Original Message----- Bonjour Tu peux essayer avec ceci (dans le code de ton userform) :
Private Sub RefEdit1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim NbCell As Long On Error Resume Next NbCell = Range(RefEdit1.Value).Cells.Count If Err <> 0 Then MsgBox "Désolé ceci n'est pas une adresse valide", vbExclamation, "Saisie
invalide" RefEdit1.Value = "" End If On Error GoTo 0 End Sub
Cordialement Pascal
"sniper" a écrit dans le message de news:
4c3801c524c5$60bb92f0$ bonjour,
dans un userform, j'ai des RefEdit et je voudrais savoir s'il est possible de tester si les valeurs qui s'y trouvent sont des adresses ou des valeurs entrées à la mimine. Ou comment créer une fonction IsAddress à la manière de IsDate. Je voudrais éviter de travailler avec la gestion des erreurs.
