VBAVBA
Fonctions VBA
isNumeric
Permet de tester si le contenu d'un champ est numérique.Exemple de test sur un champ de formulaire nommé "text_annee"
pSub roc_test_sur_un_champ()
If isNumeric(txt_annee.Value) = False Then
MsgBox "Merci de saisir un chiffre",vbCritical+vbYesNo,"Données Erronées"
End If
End Sub
If isNumeric(txt_annee.Value) = False Then
MsgBox "Merci de saisir un chiffre",vbCritical+vbYesNo,"Données Erronées"
End If
End Sub
isEmpty
Permet de tester si le contenu d'un champ est vide.Exemple de test sur un champ de formulaire nommé "text_annee"
Sub proc_test_sur_un_champ()
If isEmpty(txt_annee.Value) = False Then
MsgBox "Merci de saisir une donnée",vbCritical+vbYesNo,"Donnée manquante"
End If
End Sub
If isEmpty(txt_annee.Value) = False Then
MsgBox "Merci de saisir une donnée",vbCritical+vbYesNo,"Donnée manquante"
End If
End Sub
GetURL
Permet d'extraire les liens hypertextes d'un texte
Function GetURL(pWorkRng As Range) As String
GetURL = pWorkRng.Hyperlinks(1).Address
End Function
-> voir la
liste des fonctions VBA par Dominique MANIEZ.GetURL = pWorkRng.Hyperlinks(1).Address
End Function
