format date et contenu de string

[Twuce]

bonjour

j ai besoin d'aide sur 2 points

1) je cherche en VB les formules qui permettent de vérifier si une string contient que des chiffres ou que des lettres


2) je dois vérifier que dans une plage de données les dates sont toutes au meme format AAAA-MM-JJ existe il des fonctions pour faire ca ?

perso je cherche sur les différents forum et j ai pas encore trouvé

merci si une personne peut m aider

Twuce

 

[michel]

bonsoir Twuce

pour la premiere partie de ta question ce lien devrait te dépanner

Lien supprimé

pour la deuxieme partie , cette exemple renvoie un message pour chaque cellule d'une plage selectionnée dont le format ne correspond pas au type spécifié

Sub TestFormatCellulesDansSelection()
Dim Cell As Range
For Each Cell In Selection
If Not Cell.NumberFormat = "yyyy-mm-dd" Then _
MsgBox "La cellule " & Cell.Address & " n'a pas le format yyyy-mm-dd"
Next Cell
End Sub


bonne soirée
MichelXld

 

[myDearFriend]

Bonsoir Twuce, Michel,


Michel, tu devances tout le monde aujourd'hui lol !....

Twuce, pour la première question, tu pourrais utiliser la fonction suivante :

Function TestChaine(S As String) As Byte
Dim Chiff As Boolean, Lettr As Boolean
Dim C As Byte
'Chaine vide
If Len(S) < 1 Then
TestChaine = 1
Exit Function
End If
'Chaine numérique
If IsNumeric(S) Then
TestChaine = 2
Exit Function
End If
'Chaine Alphanumérique
For C = 1 To Len(S)
Select Case Asc(Mid(S, C, 1))
Case 48 To 57 'Nombres
Chiff = True
Case Else 'Autres caractères
Lettr = True
End Select
If Chiff = Lettr = True Then
TestChaine = 4
Exit Function
End If
Next C
TestChaine = 3
End Function

Cette fonction renvoie une valeur de 1 à 4 suivant la nature de la chaine testée.

Pour tester la valeur de la cellule A1 par exemple :
MsgBox "Valeur A1 : " & Choose(TestChaine(Range("A1").Text), "Vide", "Numérique", "Alphabétique", "Alphanumérique")



Cordialement,
Didier_mDF